Jump to content
Sign in to follow this  
turnedtodust

Need a little help understanding

Recommended Posts

turnedtodust

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
foster74

What will this single 5 character string look like?

Share this post


Link to post
Share on other sites
turnedtodust

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

Share this post


Link to post
Share on other sites
foster74

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  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.