[SCL]

raga, chi mi rimette insensto stò exp/job bot? xDD non me va..
lol..
io lo fatto in background.. se riuscite va bene anche no bg xD
Il bot e questo:


#RequireAdmin

HotKeySet("{F1}", "Avvia")
HotKeySet("{ESC}","ESCI")
HotKeySet("{F2}","Pausa")
$Title = "NosTale"

HotKeySet("{F}", "Avvia")
HotKeySet("{ESC}","ESCI")
HotKeySet("{F2}","Pausa")
$Title = "NosTale"

While 1
ToolTip("NosBot by SCL - F1 starta bot- F2 stoppa solo per 30 secondi ed ESC per farlo fermare.Enjoy!",0,0)
Sleep(30)
WEnd
Func Avvia()
ToolTip("NosBot by SCL - F2 stoppa solo per 30 secondi ed ESC per farlo fermare.Enjoy!",0,0)
While 1
ControlSend($Title, "", "", "{1}")
sleep(350)
ControlSend($Title, "", "", "{1}")
Sleep(350)
ControlSend($Title, "", "", "{2}")
sleep(350)
ControlSend($Title, "", "", "{2}")
Sleep(350)
ControlSend($Title, "", "", "{3}")
sleep(350)
ControlSend($Title, "", "", "{3}")
Sleep(350)
WEnd
EndFunc

Func Pausa()
sleep (30000)
EndFunc
Func ESCI()
Exit 0

Func Bot_Job()
While 1
ToolTip("NosBot by SCL - F1 starta bot- F2 stoppa solo per 30 secondi ed ESC per farlo fermare.Enjoy!",0,0)
Sleep(30)
WEnd
Func Avvia()
ToolTip("NosBot by SCL - F2 stoppa solo per 30 secondi ed ESC per farlo fermare.Enjoy!",0,0)
ControlSend($WinTitle, "", "", "z")
Sleep(500)
ControlSend($WinTitle, "", "", "z")
Sleep(500)
ControlSend($WinTitle, "", "", "z")
Sleep(500)
ControlSend($WinTitle, "", "", "z")
Sleep(500)
WEnd
EndFunc

Func Ferma_Bot()
While 1
Sleep(100)
WEnd
EndFunc

[Narutomega96]

Codice PHP:

#RequireAdmin

HotKeySet("{F1}", "Avvia")
HotKeySet("{ESC}","ESCI")
HotKeySet("{F3}","Pausa")
HotKeySet("{F2}","Avvia1")

$Title = "NosTale"


While 1
ToolTip("NosBot by SCL - F1 starta bot[EXP], F2 starta bot[JOB]- F3 stoppa solo per 30 secondi ed ESC per farlo fermare.Enjoy!",0,0)
Sleep(100)
WEnd

Func Avvia()
ToolTip("NosBot by SCL - F3 stoppa solo per 30 secondi ed ESC per farlo fermare.Enjoy!",0,0)
While 1
ControlSend($Title, "", "", "{SPACE}")
sleep(350)
ControlSend($Title, "", "", "1")
Sleep(350)
ControlSend($Title, "", "", "2")
sleep(350)
ControlSend($Title, "", "", "2")
Sleep(350)
ControlSend($Title, "", "", "{SPACE}")
sleep(350)
ControlSend($Title, "", "", "3")
Sleep(350)
WEnd
EndFunc

Func Pausa()
sleep (30000)
EndFunc

Func ESCI()
Exit 0
EndFunc


Func Avvia1()
While 1
ToolTip("NosBot by SCL - F3 stoppa solo per 30 secondi ed ESC per farlo fermare.Enjoy!",0,0)
ControlSend($Title, "", "", "z")
Sleep(500)
ControlSend($Title, "", "", "z")
Sleep(500)
ControlSend($Title, "", "", "z")
Sleep(500)
ControlSend($Title, "", "", "z")
Sleep(500)
WEnd
EndFunc 


Ecco ora funziona

P.s : Se hai altri problemi mandami pm

[SCL]

Naruto, credo di aver riscontrato un errore xD
Nel senso provandolo preme tasti "1", "2", "3".. però quando finisce di killare si blocca xD per questo bisogna dare una piccola modifica

[andreaparavani]

ormai questo programma con nostale nn va piu

[doddo978]

andrea cavolata funziona benissimo solo che deve inserire questo codice alla fine

Spoiler:

$restart

[Narutomega96]

@[doddo978] Questo non è AcTool...
@[andreaparavani] devi cambiare il nome della finestra a cui manda i comandi($Title) da "NosTale" a "Nostale"

[doddo978]

@[Narutomega96] non so tè ma io mettendo $restart mi funziona e non cn actool ma cn visualstudio 2010!
...

[Narutomega96]

:|

Il linguaggio scritto sopra è AutoIt..

[Clover]

(10-02-2012 04:25 PM)andreaparavani Ha scritto:  ormai questo programma con nostale nn va piu

Non spammiamo su discussioni vecchie di 5 mesi e oltre :l
Ti meriteresti un avvertimento per necropost, ma per questa volta sono buona dato che sei un nuovo utente.
Narutomega e Doddo per discutere esistono i pm o contattarsi in privato.