Zum Inhalt wechseln

Als Gast hast du nur eingeschränkten Zugriff!


Anmelden 

Benutzerkonto erstellen

Du bist nicht angemeldet und hast somit nur einen sehr eingeschränkten Zugriff auf die Features unserer Community.
Um vollen Zugriff zu erlangen musst du dir einen Account erstellen. Der Vorgang sollte nicht länger als 1 Minute dauern.

  • Antworte auf Themen oder erstelle deine eigenen.
  • Schalte dir alle Downloads mit Highspeed & ohne Wartezeit frei.
  • Erhalte Zugriff auf alle Bereiche und entdecke interessante Inhalte.
  • Tausche dich mich anderen Usern in der Shoutbox oder via PN aus.
 

   

Foto

[H] VB6

- - - - -

  • Bitte melde dich an um zu Antworten
2 Antworten in diesem Thema

#1
Terrafaux

Terrafaux

    Pentester

  • Premium Member
  • Likes
    48
  • 111 Beiträge
  • 5 Bedankt
  • Android [root]
  • Windows, Linux, Mac OS

†‹Liebe Members, ich bitte um geistige Unterstuetzung:

†‹

†‹Ein Programm wirft mir den Fehler "Ihr Zaehler ist schon aus.", welche Bedingung muss ich erfuellen, damit der Fehler nicht erscheint und das Programm weiter arbeitet?

†‹

†‹Festplattenplatz ist nicht das Problem > 2.147 MB und die "Maske Wave.PSD" wird beim Start von der Anwendung generiert und hat die Groesse von 106.000 Bytes.

Private Sub WievielWirklich()
    
    If dFree >= 2147000000 Then
        nPossible = nTotal
    Else
        nPossible = (dFree - BYTES_FOR_PHOTOSHOP) \ lBytesProBild
    End If
    If nPossible < 0 Then
        nPossible = 0
    End If
    If nPossible > nTotal - nSchlecht Then
        nPossible = nTotal - nSchlecht
    End If
    lErlaubt = (GetFileSize("C:\Bilder\Hintergrund\Maske Wave.PSD") - 106002) \ 2
    Read_ms_xxx
    Write_ms_xxx
    If lErlaubt <= 0 Then
        MsgBox "Ihr Zaehler ist schon aus."
        End
    End If
    If nPossible >= lErlaubt Then
        If bMessageZaehler = False Then
            If nPossible = 1 Then
                MsgBox "Ihrer Zaehler hat als Rest nur " & lErlaubt & " Bild."
            Else
                MsgBox "Ihrer Zaehler hat als Rest nur " & lErlaubt & " Bilder."
            End If
            bMessageZaehler = True
        End If
        lblWann.BackColor = vbRed
        lblWann.ForeColor = vbWhite
        nPossible = lErlaubt
    Else
        lblWann.BackColor = vbWindowBackground
        lblWann.ForeColor = vbActiveTitleBar
    End If

End Sub

Speak in such way that others love to listen to you...

             Listen in a such way that others love to speak to you...

icon-icq.png   664594696

icon-xmpp.png     terrafaux@jabber.ccc.de

 


#2
Cube

Cube

    Würfel

  • Banned
  • PIPPIPPIPPIPPIPPIPPIPPIPPIPPIP
  • Likes
    7
  • 819 Beiträge
  • 1062 Bedankt
  • Android, Android [root]
  • Windows, Linux

Hast du nun den kompletten Sourcecode vor dir liegen und kannst das Tool selbst erneut kompilieren?

Wenn ja streich doch einfach die if abfragen bezüglich der Fehlermeldungen?


Jabber: cube@exploit.im

Only with OTR!

 

HQ Password-Recovery-Tool (Browser, Mail uvm.): TripleCCC


Thanked by 1 Member:
Terrafaux

#3
Terrafaux

Terrafaux

    Pentester

  • Premium Member
  • Likes
    48
  • 111 Beiträge
  • 5 Bedankt
  • Android [root]
  • Windows, Linux, Mac OS

[Erledigt]

Loesung gefunden,

lErlaubt = (106000 - 106002) \ 2  [-2 / 2 = -1 ] darf nicht -1

lErlaubt = (106000 - 105000) \ 2  [-2 / 2 =>0]

 

Dank geht an smc2014 und Cube :)

†‹

†‹

†‹


Bearbeitet von Terrafaux, 09 July 2015 - 21:30 Uhr.

  • Cube gefällt das

Speak in such way that others love to listen to you...

             Listen in a such way that others love to speak to you...

icon-icq.png   664594696

icon-xmpp.png     terrafaux@jabber.ccc.de

 




  Thema Forum Themenstarter Statistik Letzter Beitrag

Besucher die dieses Thema lesen:

Mitglieder: , Gäste: , unsichtbare Mitglieder:


This topic has been visited by 26 user(s)


    Ar@m!s, B1nary, BlackZetsu, Crap, Cube, dep0x, Framerater, kiwitone, L!x, Liedar, loginman1, mantwohouse, Mr_NiceGuy, n1nja, Neonxen, notfound, paulaner, peppi200, R3s1stanc3, rzX0R, SkullSplitter, smc2014, sonykuccio, Terrafaux, Trillium, ueEqlL
Die besten Hacking Tools zum downloaden : Released, Leaked, Cracked. Größte deutschsprachige Hacker Sammlung.