Bazan napisał
Daj kod twojej funkcji sprawdzajacej czy jestes zalogowany, czyli kod sprawdzenie_czy_zalogowano()
@
Bazan ;
Kod:
#Obfuscator_Parameters=/mergeonly
#include <ImageSearch.au3>
HotKeySet("{F1}","Start")
While 1
Sleep(100)
WEnd
Func Start()
RunTibia()
sleep(5000)
$zalogowany=False
While $zalogowany=False
OpenLogin()
sleep(1000)
send("passy")
Sleep(500)
Send("{TAB}")
sleep(500)
send("passy")
sleep(500)
send("{ENTER}")
sleep(3500)
send("{ENTER}")
sleep(3500)
send("{ENTER}")
sleep(3500)
SprawdzCzyZalogowany()
WEnd
sleep(1000)
MsgBox(0, "hyhy", "Skrypt Zakończył Działanie Poprawnie")
exit
EndFunc
;/////////////////[[[[[[[[[[[[[ F U N K C J E ]]]]]]]]]]]]] //////////////////////
Func RunTibia()
Local $mousex, $mousey
$result = _ImageSearch("images/Tibia.bmp", 1, $mousex, $mousey, 10)
If $result = 1 Then
MouseClick("left", $mousex, $mousey, 2, 2)
endif
EndFunc
Func OpenLogin()
Local $mousex, $mousey
$result = _ImageSearch("images/EnterGame.bmp", 1, $mousex, $mousey, 10)
If $result = 1 Then
MouseClick("left", $mousex, $mousey, 1, 2)
endif
EndFunc
Func SprawdzCzyZalogowany()
Local $mousex, $mousey
$result = _ImageSearch("images/Zalogowany.bmp", 1, $mousex, $mousey, 10)
If $result = 1 Then
$zalogowany = true
endif
EndFunc
Tu mam akurat z while, ale robiłem też z do .. untill a wyglądało to :
Kod:
RunTibia()
sleep(5000)
$zalogowany=False
Do
OpenLogin()
sleep(1000)
send("passy")
Sleep(500)
Send("{TAB}")
sleep(500)
send("passy")
sleep(500)
send("{ENTER}")
sleep(3500)
send("{ENTER}")
sleep(3500)
send("{ENTER}")
sleep(3500)
SprawdzCzyZalogowany()
Until $zalogowany=False
sleep(1000)
MsgBox(0, "hyhy", "Skrypt Zakończył Działanie Poprawnie")
exit
Czy jakoś tak ( pisane z palca, nie mam zapisanego tego)
Zakładki