Skocz do zawartości
  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • Pełny dostęp do działów i ukrytych treści
    • Możliwość pisania i odpowiadania w tematach
    • System prywatnych wiadomości
    • Zbieranie reputacji i rozwijanie swojego profilu
    • Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

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


Rekomendowane odpowiedzi

Opublikowano

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

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


Opublikowano

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" 

Opublikowano

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

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


Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

×
×
  • Dodaj nową pozycję...