[SGather] AutoIt - Stop bot and relog after random time

[serialboter]

Hi

I made this script to stop the bot after a random time (between Xmin and Ymin) and then relog (after Xmin and Ymin) and this the number time you want.
What i mean by relogin is that you stay on your caracter select before relog ! and not to enter your login and password !

$wowWindowTitle 		= "World of Warcraft"
$sGatherWindowTitle 	= "Nodes :"
$SGatherLogControl 		= "[NAME:Logs; INSTANCE:1]"
$sGatherMountSuccess	= "\[BOT\] Mount success !\s*$"
$SGatherProsses			= "SGather.exe"
$Time					= TimerInit()
$MinStopAfter 			= IniRead("StopSGather.ini", "TIME", "MinStopAfter", "40") 					; Minimum time to stop SGather (in minute)
$MaxStopAfter			= IniRead("StopSGather.ini", "TIME", "MaxStopAfter", "70") 					; Maximum time to stop SGather (in minute)
$MinLoginAfter			= IniRead("StopSGather.ini", "TIME", "MinLoginAfter", "5") 					; Minimum time to Login (in minute)
$MaxLoginAfter			= IniRead("StopSGather.ini", "TIME", "MaxLoginAfter", "9") 					; Maximum time to Login (in minute)
$timeleft 				= IniRead("StopSGather.ini", "TIME", "LoopNumber", "3") 					; Number session you want
$LOGOUT					= "{ENTER}/logout{ENTER}" 				
$sGatherInject			= "["&IniRead("StopSGather.ini", "TEXT", "sGatherInject", "LOOP")&"]"

AutoItSetOption("SendKeyDownDelay", 100)

While $timeleft >= 0
	$okok = 0
	$endloop = 0
	$sleeping = Random($MinStopAfter , $MaxStopAfter , 1) 				; Random time to stop SGather
	$sGatherLogText = ControlGetText($sGatherWindowTitle,"",$SGatherLogControl)
	ControlSetText($sGatherWindowTitle, "", $SGatherLogControl, $sGatherLogText&$sGatherInject&" starting loop :"&@CRLF&$sGatherInject&" stoping in "&$sleeping&" minutes"&@CRLF&$sGatherInject& " Loop remaining : "&$timeleft &@CRLF)
	sleep($sleeping  * 60 * 1000)
	$timeleft = ( $timeleft - 1 )
	while $timeleft <= 0
		$sGatherLogText = ControlGetText($sGatherWindowTitle,"",$SGatherLogControl)
		If StringRegExp ($sGatherLogText, $sGatherMountSuccess) Then
			If WinExists($wowWindowTitle) Then
				sleep ( 2 * 1000 )
				WinSetOnTop ( "Nodes", "", 1 )
				WinActivate ( "Nodes" )
				controlclick( "Nodes","","[NAME:button1]") 					; Stop SGather
				WinSetOnTop ( "Nodes", "", 0 )
				ControlSetText($sGatherWindowTitle, "", $SGatherLogControl, $sGatherLogText & $sGatherInject & " Stop boting till you restart it" & @CRLF)
				sleep ( 2 * 1000 )
				ControlSend ($wowWindowTitle, "", "", $LOGOUT, 0)			; Logout the game
				sleep ( 2 * 1000 )
				$endloop = 1
				ExitLoop
			EndIf
		EndIf	
		sleep (300)
	WEnd
	If $endloop == 1 Then ExitLoop
	while $okok == 0
		If ProcessExists($SGatherProsses) AND $timeleft > 0 Then 
			$sGatherLogText = ControlGetText($sGatherWindowTitle,"",$SGatherLogControl)
			If StringRegExp ($sGatherLogText, $sGatherMountSuccess) Then
				If WinExists($wowWindowTitle) Then
					sleep ( 2 * 1000 )
					WinSetOnTop ( "Nodes", "", 1 )
					WinActivate ( "Nodes" )
					controlclick( "Nodes","","[NAME:button1]") 					; Stop SGather
					WinSetOnTop ( "Nodes", "", 0 )
					sleep ( 2 * 1000 )
					ControlSetText($sGatherWindowTitle, "", $SGatherLogControl, $sGatherLogText & $sGatherInject & " stop boting" & @CRLF)
					sleep ( 1 * 1000 )
					ControlSend ($wowWindowTitle, "", "", $LOGOUT, 0)			; Logout the game
					$sleepinglogout = Random($MinLoginAfter , $MaxLoginAfter , 1) 	; Random time to login
					ControlSetText($sGatherWindowTitle, "", $SGatherLogControl, $sGatherLogText & $sGatherInject & " relogin in "&$sleepinglogout&" Minutes" & @CRLF)
					sleep ($sleepinglogout * 60 * 1000)
					ControlSetText($sGatherWindowTitle, "", $SGatherLogControl, $sGatherLogText & $sGatherInject & " relogin..." & @CRLF)
					ControlSend ($wowWindowTitle, "", "", "{ENTER}", 0)			; Login
					sleep ( 45 * 1000 )
					WinSetOnTop ( "Nodes", "", 1 )
					WinActivate ( "Nodes" )
					controlclick( "Nodes","","[NAME:button2]")					; Start SGather
					WinSetOnTop ( "Nodes", "", 0 )
					ControlSetText($sGatherWindowTitle, "", $SGatherLogControl, $sGatherLogText & $sGatherInject & " start boting" & @CRLF)
					sleep ( 1 * 1000 )
					ControlSetText($sGatherWindowTitle, "", $SGatherLogControl, $sGatherLogText & $sGatherInject & " reloop..." & @CRLF)
					$okok = 1
				EndIf
			EndIf						
		EndIf
		sleep (300)
	WEnd
wend

This new code will read StopSGather.ini file located in the same directory as your script

[TIME]
MinStopAfter = 50
MaxStopAfter = 80

MinLoginAfter = 5
MaxLoginAfter = 9

LoopNumber = 4

[TEXT]
sGatherInject = LOOP

In this exemple the bot will stop boting after 50 to 80 minutes and will relog 5 to 9 minutes later and will redo this loop 4 times and then will stop.

You can change the StopSGather.ini with your own choices but i recommend to let "MinLoginAfter" and "MaxLoginAfter" to 5 and 9 to keep you on the caracter selection screen and not been disconnect or getting error because of the loading screen etc...

DOWNLOAD :StopSGather.zip - 281 Kb
VirusTotal

EDIT : Tested on 09/03/2011 and work like a charm now !

PLEASE give me feedback

[serialboter]

Tried it this night and the 3 loop were done but it didn't stop after the 3 loop...
I will correct that today

---------- Post added at 12:02 PM ---------- Previous post was at 11:44 AM ----------

Just did it
Shoudl work (ll test it later.
Anyone else tried ?

[ahf620]

I haven't tried it yet, but im planning on it tonight.
I read the code for it, but couldn't find where to enter the account/pass.
and does this inject itself into wow ? or sgather? or both?
thanks.

[serialboter]

it doesn"t need login and password since it only logout the game you ll stay on your caracter selection page till you'll login again then don"t put more than 20min in max time login

but if you really need i could do something to login again but it's gonna be little more complex thandle

[ahf620]

oh that's pretty cool, even better hehe. i'll give you some feedback after i try it, definitely tonight.

[ahf620]

Oops, forgot to even check.. any executable version? not much experience with scripts. Thanks.

[serialboter]

The thing is that the script make you change value of time and the bind you want or five me all time you want and the bind and maybe i ll make you one

---------- Post added at 08:18 PM ---------- Previous post was at 07:43 PM ----------

OK I just find a simple way thx I'm learning AutoIt better when I have feedback or request
Look at first post

[serialboter]

I've upload an other one because the previous one was giving an error when the final loop was done and did'nt stop :x

[serialboter]

just tested it during work time and now it work nicely
I'll make some change in the code tonight or tomorrow to make it cleaner and more readanle

[serialboter]

Just post another version with less bug and no more macro needed !
let me know if you find other bugs

[serialboter]

I missed a "2" in my code
sorry about that just reupload it