turnedtodust Posted March 18, 2009 Posted March 18, 2009 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 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
foster74 Posted March 18, 2009 Posted March 18, 2009 What will this single 5 character string look like?
turnedtodust Posted March 18, 2009 Author Posted March 18, 2009 the string would be like 12345 $FinString = $OutPutFin1 + $OutPutFin2 etc
foster74 Posted March 18, 2009 Posted March 18, 2009 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
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now