Sign in to follow this  
Followers 0
turnedtodust

Need a little help understanding

4 posts in this topic

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

Share this post


Link to post
Share on other sites



What will this single 5 character string look like?

Share this post


Link to post
Share on other sites

the string would be like 12345 $FinString = $OutPutFin1 + $OutPutFin2 etc

Share this post


Link to post
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

Share this post


Link to post
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
Sign in to follow this  
Followers 0