turnedtodust Posted March 18, 2009 Share 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 Link to comment Share on other sites More sharing options...
foster74 Posted March 18, 2009 Share Posted March 18, 2009 What will this single 5 character string look like? Link to comment Share on other sites More sharing options...
turnedtodust Posted March 18, 2009 Author Share Posted March 18, 2009 the string would be like 12345 $FinString = $OutPutFin1 + $OutPutFin2 etc Link to comment Share on other sites More sharing options...
foster74 Posted March 18, 2009 Share 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 Link to comment Share on other sites More sharing options...
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