21-09-2012, 04:02 PM
Aprite il programma ed impostatelo come più vi piace.
(Il programma vi guiderà..)
E' molto semplice il codice, a portata di tutti dato che non ho nemmeno usato delle gui, ho messo le impostazioni tramite file .txt dato che tutti i bot sono sempre con le hotkeyset e ciò mi sembra noioso.
Script: In allegato.
Scan: Click
Codice sorgente:
(Il programma vi guiderà..)
E' molto semplice il codice, a portata di tutti dato che non ho nemmeno usato delle gui, ho messo le impostazioni tramite file .txt dato che tutti i bot sono sempre con le hotkeyset e ciò mi sembra noioso.
Script: In allegato.
Scan: Click
Codice sorgente:
Spoiler:
Codice:
;By iLoad(elseif);
; autoit.forumcommunity.net
#RequireAdmin
#NoTrayIcon
If FileExists("Crediti.txt") = false Then
FileWrite("Crediti.txt","By iLoad(elseif); => http://autoit.forumcommunity.net/ => http://bordergame.it")
EndIf
IF FileExists("Tipo.txt") = false Then
Filewrite("Tipo.txt","")
EndIf
if fileexists("Finestra.txt") = false Then
Filewrite("Finestra.txt","")
EndIf
Msgbox(64,"iGameBot(elseif);","Come uso il bot? - Premi F1 per uscire dallo script."& @crlf &"Su Tipo.txt scrivi Job per il JobBot ed Exp per l'ExpBot."& @Crlf &"Su Finestra.txt scrivi il nome della finestra di nostale."&@crlf&"Mirraccomando scrivi prima di premere OK.")
hotkeyset("{F1}","Esci")
Dim $Botx = FileRead("Tipo.txt")
Dim $Fin = FileRead("Finestra.txt")
If $Botx = "Job" Then
AdlibRegister("Jobbot",20)
Elseif $Botx = "Exp" Then
AdlibRegister("Expbot",20)
EndIf
func Esci()
Exit
EndFunc
Func Jobbot()
Msgbox(64,"JobBot(Avviato)","JobBot = ON")
While 1
ControlSend($Fin, "", "", "z")
Sleep(500)
ControlSend($Fin, "", "", "z")
Sleep(500)
ControlSend($Fin, "", "", "z")
Sleep(500)
ControlSend($Fin, "", "", "z")
Sleep(500)
WEnd
EndFunc
Func Expbot()
Msgbox(64,"ExpBot(Avviato)","ExpBot = ON")
while 1
ControlSend($Fin, "", "", "{SPACE}")
sleep(350)
ControlSend($Fin, "", "", "{SPACE}")
Sleep(350)
ControlSend($Fin, "", "", "w")
sleep(350)
ControlSend($Fin, "", "", "w")
sleep(350)
ControlSend($Fin, "", "", "w")
Sleep(350)
ControlSend($Fin, "", "", "{SPACE}")
sleep(350)
ControlSend($Fin, "", "", "{SPACE}")
Sleep(350)
WEnd
EndFunc