Skocz do zawartości

Prosty skrypt wywala błąd po prawidłowym działaniu

Polecane posty

Autor tematu Napisano (edytowany)

Bot ma najechać na obrazek, rzeczywiście to robi gdy zaznaczę Checkbox'a, lecz od razu po wykonaniu tego wywala w compilatorze błąd, utknąłem w ciemnej dupie. :/

 

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ImageSearch.au3>
#include <GUIConstantsEx.au3>
#Region ### START Koda GUI section ### Form=D:\Program Files (x86)\AutoIt3\Forms\Form1.kxf
$Form1 = GUICreate("ANTY BUGOWANIE BOTA", 291, 124, 192, 124)
$Checkbox1 = GUICtrlCreateCheckbox("SZUKAJ X LUB PTASZKA", 68, 40, 161, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
 
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
 
While 2
If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
EndIf
global $y = 0, $x = 0
Local $search = _ImageSearch('check.bmp', 1, $x, $y, 0)
   If $search = 1 Then
   MouseMove ($x, $y, 2))
   EndIf
WEnd
 
WEnd
Błąd:

"C:\Users\Tieru\Desktop\AutoIT\ifimage.au3" (27) : ==> Illegal text at the end of statement (one statement per line).:
MouseMove ($x, $y, 2))
MouseMove ($x, $y, 2)^ ERROR
>Exit code: 1    Time: 2.713
Edytowano przez Tieru

Wszystkie poradniki w "O mnie" i na moim profilu YouTube.


51dd70965ae71.png


!!!HIT!!! -- Pełno klientów na DT nawet na najstarszym kompie bez zamuły!


!!!HIT!!! -- Nowa modyfikacja do Metina FastKill


World of Metin2


Udostępnij ten post


Link to postu
Udostępnij na innych stronach
Pani Kasia

Masz błąd, masz pokazane w którym miejscu, naprawdę go nie widzisz??

 

Pro tip: policz nawiasy.


Chcesz precyzyjnej i zrozumiałej odpowiedzi? - Zadaj precyzyjne i zrozumiałe pytanie. Nie przyjmuję zleceń.
Nie odpowiadam na priv na pytania, które można zadać na forum. Chcesz mojej pomocy - oznacz mnie w poście =>  @"Hans Kloss PL" 

Udostępnij ten post


Link to postu
Udostępnij na innych stronach
Autor tematu Napisano (edytowany)

Masz błąd, masz pokazane w którym miejscu, naprawdę go nie widzisz??

 

Pro tip: policz nawiasy.

Masakra... dzięki Ci wielkie za pomoc. :)

 

@Edit

Jeszcze jedno, jak zrobić by ten program wyłączał się prawidłowo poprzez naciśnięcie krzyżyka i jeśli checkbox się odznaczy przestał działać? :/

 

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ImageSearch.au3>
#include <GUIConstantsEx.au3>
#Region ### START Koda GUI section ### Form=D:\Program Files (x86)\AutoIt3\Forms\Form1.kxf
$Form1 = GUICreate("ANTY BUGOWANIE BOTA", 291, 124, 192, 124)
$Checkbox1 = GUICtrlCreateCheckbox("SZUKAJ X LUB PTASZKA", 68, 40, 161, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
 
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
 
While 2
If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
 
global $y = 0, $x = 0
Local $search = _ImageSearch('check.bmp', 1, $x, $y, 0)
   If $search = 1 Then
   MouseMove ($x, $y, 10)
   MouseClick( "PRIMARY", $x, $y)
EndIf
EndIf
WEnd

Tak się program wyłącza, lecz bot nie szuka obrazku, hmm...

@Edit - jednak działa, lecz może mniej efektywniej niż poprzedni kod.  ._.

@Edit2 - wiem, znajduje obrazek i działa gdy wcisnę... ale to nie button, żeby tak działał, ma mi szukać w pętli...

Jakiego kodu mam użyć by działał jak w (If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then)?

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ImageSearch.au3>
#include <GUIConstantsEx.au3>
#Region ### START Koda GUI section ### Form=D:\Program Files (x86)\AutoIt3\Forms\Form1.kxf
$Form1 = GUICreate("ANTY BUGOWANIE BOTA", 291, 124, 192, 124)
$Checkbox1 = GUICtrlCreateCheckbox("SZUKAJ X LUB PTASZKA", 68, 40, 161, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
 
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Checkbox1
global $y = 0, $x = 0
Local $search = _ImageSearch('check.bmp', 1, $x, $y, 0)
   If $search = 1 Then
   MouseMove ($x, $y, 10)
   MouseClick( "PRIMARY", $x, $y)
EndIf
EndSwitch
WEnd
Edytowano przez Tieru

Wszystkie poradniki w "O mnie" i na moim profilu YouTube.


51dd70965ae71.png


!!!HIT!!! -- Pełno klientów na DT nawet na najstarszym kompie bez zamuły!


!!!HIT!!! -- Nowa modyfikacja do Metina FastKill


World of Metin2


Udostępnij ten post


Link to postu
Udostępnij na innych stronach
Pani Kasia


  • Kto przegląda   0 użytkowników

    Brak zalogowanych użytkowników przeglądających tę stronę.

×
Okienko zamknie się za 5 sekund...