Jump to content

Need a little help understanding


Recommended Posts

Hi, seems to be my first post, really love and enjoy this lovely work of art.. It's just I seem to run across snags here and there.. I'm still learning to program things myself and would like to kindly ask for a little help with this.

Yes I borrowed the pause code from autoit's help file :P

Global $Paused
HotKeySet("{TAB}", "TogglePause")
$Get1 = PixelChecksum(268,301,277,318)
$Get2 = PixelChecksum(277,301,286,318)
$Get3 = PixelChecksum(286,301,295,318)
$Get4 = PixelChecksum(295,301,304,318)
$Get5 = PixelChecksum(304,301,313,318)

$key1 = 0
$Final = $key1
While 1
    WinWaitActive("WINDOW!")
Compare1()
Send($Final)


Wend

Func Compare1()
    While $key1 < 10
    if StringCompare( $Get1 , IniRead( "C:\Users\Zero\Desktop\hackwars\Captcha.ini" , "line" , $key1 , "default" ))== 0 Then
        $cap1fin = $key1
    ElseIf StringCompare( $Get1 , IniRead( "C:\Users\Zero\Desktop\hackwars\Captcha.ini" , "line" , $key1 , "default" )) <> 0 Then
        $key1 = $key1 + 1
    EndIf
    Wend
    EndFunc

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "Paused"',0,0)
    WEnd
    ToolTip("")
EndFunc

Basically, I have a set up numbers in my captcha INI, that are keyed to their number value.. Key 0 = Checksum of Number 0... after I get the checksum of all 5 numbers .. I'd like to check each one against my INI and then build them into a single 5 character string and send.

Any help understanding the workings of doing that would be very much appreciated.

Thank you,

Dust

Link to comment
Share on other sites

Global $Paused
HotKeySet("{TAB}", "TogglePause")
dim $Get[5]
$Get[0] = 7
$Get[1] = 5
$Get[2] = 4
$Get[3] = 2
$Get[4] = 9


Dim $key1
Dim $Final
While 1
    WinWaitActive("WINDOW!")
    Compare1()
Wend

Func Compare1()
    For $i = 0 to 4
        For $j = 0 to 9
            $check = $j
            If $Get[$i] = IniRead( "C:\Users\Zero\Desktop\hackwars\Captcha.ini" , "line" , $j ,'Error') Then Exitloop
        Next
        $Final &= $check
    Next
EndFunc

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "Paused"',0,0)
    WEnd
    ToolTip("")
EndFunc

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...