[Pytanie] [Problem\Pytanie] Imagesearch W Pętli

Maggot666 · 1 Listopada 2010

Witajcie , wielcy programiści !! =D

Wyzej jest GUI, ale nie jest zwiazane z tym problemem ..
(...)

While 1
  $nMsg = GUIGetMsg()
  Switch $nMsg
Case $GUI_EVENT_CLOSE
        Exit
Case $Checkbox1
Global $x, $y
	$result = _ImageSearch("GFX\RSB 0.bmp", 1, $x, $y, 50)
		If $result = 1 Then
			Exit
		EndIf
Case $Checkbox2
Global $x, $y
	$result = _ImageSearch("GFX\SHD 0 box.bmp", 1, $x, $y, 50)
		If $result = 1 Then
			Send("C")
		EndIf
Case $Checkbox3
Global $x, $y
	$result = _ImageSearch("GFX\HP 0 box.bmp", 1, $x, $y, 50)
		If $result = 1 Then
			$empklawisz = GUICtrlRead($Input3)
				If $empklawisz = 1 Then
					Send("1")
				EndIf
				If $empklawisz = 2 Then
					Send("2")
				EndIf
				If $empklawisz = 3 Then
					Send("3")
				EndIf
				If $empklawisz = 4 Then
					Send("4")
				EndIf
				If $empklawisz = 5 Then
					Send("5")
				EndIf
				If $empklawisz = 6 Then
					Send("6")
				EndIf
				If $empklawisz = 7 Then
					Send("7")
				EndIf
				If $empklawisz = 8 Then
					Send("8")
				EndIf
				If $empklawisz = 9 Then
					Send("9")
				EndIf
				If $empklawisz = 0 Then
					Send("0")
				EndIf
		EndIf
Case $Button1

(...)
cos tam dalej...

To jest część mojego dłuuuuugiego kodu

Niby działa, ale nie do końca.

Jest problem gdyż obrazek wyszukuje tylko RAZ, a ja chciałbym żeby non-stop go próbował znaleźć, a kiedy znalazłby, to wykonałby odpowiednią czynność (tak jak powyżej pisze).

U niektórych w ogóle nie wyszukuje. Jeśli zaznaczą checkboxa pojawia się taki komunikat:

Error: Subscript used with non-Array variable.

Wiem że jeszcze muszę dodać aby naprawić powyższy błąd takie coś:

if @error then

cos tam cos tam

else

cos tam cos tam

endif

Ale boję się że wtedy nie będzie działało tak jak chcę - zadziała tylko 1 raz, czyli od razu po odpaleniu checkboxa wyświetli się komunikat że nie znalazł obrazka. Sęk w tym że ja nie chcę żadnych komunikatów i jednorazówek

Teraz pytanie.

Czy jeśli dodałbym pętle While 1 pomiędzy checkboxami to by działało? Jeśli tak, to gdzie? =D

---

Trochę pogmatwane nie ? =D ale chyba zrozumiecie o co mi chodzi.

Maggot666 · 2 Listopada 2010

Nie wierze ze nikt tego nie ogarnia. Blagam pomozcie bo to wazne ...

daje milion plusow piatek i czego tam jeszcze chcecie

Moze to was zachecilo heh...

jesli nie zrozumieliscie to napisze to krotko.

CHCĘ ABY FUNKCJA IMAGESEARCH NON STOP WYSZUKIWAŁA OBRAZKA, A NIE TYLKO RAZ (jak to jest w moim skrypcie).

To jest tak jakby refresh oj tylko chyba odczekalem 23 godziny a nie 24 sorry ...

matiszon · 2 Listopada 2010

Wiem że jeszcze muszę dodać aby naprawić powyższy błąd takie coś:

if @error then

cos tam cos tam

else

cos tam cos tam

endif

Ale boję się że wtedy nie będzie działało tak jak chcę - zadziała tylko 1 raz, czyli od razu po odpaleniu checkboxa wyświetli się komunikat że nie znalazł obrazka. Sęk w tym że ja nie chcę żadnych komunikatów i jednorazówek

Bez else i po prostu kod będzie kontynuowany jak nie znajdzie.

if @error then

cos tam cos tam

endif

Bo generalnie chodzi ci o to że gdy checkbox ma ptaszka to szuka obrazka a jak nie to nie szuka ?.

Bezmyślnym kopiowaniem kodu nic nie zdziałasz.

takie coś wklej w ODPOWIEDNIM miejscu.

Global $x, $y
If $Checkbox1 = $GUI_CHECKED Then

$result = _ImageSearch("GFX\RSB 0.bmp", 1, $x, $y, 50)
If $result = 1 Then
	Exit
EndIf
EndIf
If $Checkbox1 = $GUI_CHECKED Then
$result = _ImageSearch("GFX\SHD 0 box.bmp", 1, $x, $y, 50)
If $result = 1 Then
	Send("C")
EndIf
EndIf
If $Checkbox1 = $GUI_CHECKED Then
$result = _ImageSearch("GFX\HP 0 box.bmp", 1, $x, $y, 50)
If $result = 1 Then
	Send(GUICtrlRead($Input3))
EndIf
EndIf

Maggot666 · 2 Listopada 2010

Bez else i po prostu kod będzie kontynuowany jak nie znajdzie.

(...)

Bo generalnie chodzi ci o to że gdy checkbox ma ptaszka to szuka obrazka a jak nie to nie szuka ?.

Bezmyślnym kopiowaniem kodu nic nie zdziałasz.

(...)

Czlowieku ja tego nie kopiowałem sam pisałem od ZERA i to bardzo długo, bez poradników. Jedyne co zrobiłem to wkleiłem sobie kod na imagesearcha bo sam bym go nie wymyślił ,prawda ?

Tak.

I dzięki za pomoc zaraz to naprawie.

EDIT

I tak nie wiem gdzie to wstawic... wez mi pomoz ;P

matiszon · 2 Listopada 2010

Daj całą pętle while.

to ci to dobrze wstawie.

Maggot666 · 2 Listopada 2010

While 1
  $nMsg = GUIGetMsg()
  Switch $nMsg
Case $GUI_EVENT_CLOSE
        Exit
Global $x, $y
If $Checkbox1 = $GUI_CHECKED Then
       $result = _ImageSearch("GFX\RSB 0.bmp", 1, $x, $y, 50)
       If $result = 1 Then
               Exit
       EndIf
EndIf
If $Checkbox2 = $GUI_CHECKED Then
       $result = _ImageSearch("GFX\SHD 0 box.bmp", 1, $x, $y, 50)
       If $result = 1 Then
               Send("C")
       EndIf
EndIf
If $Checkbox3 = $GUI_CHECKED Then
       $result = _ImageSearch("GFX\HP 0 box.bmp", 1, $x, $y, 50)
       If $result = 1 Then
               Send(GUICtrlRead($Input3))
       EndIf
EndIf
Case $Button1
$rsbklawisz = GUICtrlRead($Input1)
$x4klawisz = GUICtrlRead($Input2)
If $rsbklawisz = 1 Then
	While 1
		Send("1")
			Sleep(1000)
		If $x4klawisz = 1 Then
			MsgBox(16,"RSB Shooter v1.3","WRONG x4 LASER BUTTON",5)
		EndIf
		If $x4klawisz = 2 Then
			Send("2")
				Sleep(3000)
		EndIf
		If $x4klawisz = 3 Then
			Send("3")
				Sleep(3000)
		EndIf
		If $x4klawisz = 4 Then
			Send("4")
				Sleep(3000)
		EndIf
		If $x4klawisz = 5 Then
			Send("5")
				Sleep(3000)
		EndIf
		If $x4klawisz = 6 Then
			Send("6")
				Sleep(3000)
		EndIf
		If $x4klawisz = 7 Then
			Send("7")
				Sleep(3000)
		EndIf
		If $x4klawisz = 8 Then
			Send("8")
				Sleep(3000)
		EndIf
		If $x4klawisz = 9 Then
			Send("9")
				Sleep(3000)
		EndIf
		If $x4klawisz = 0 Then
			Send("0")
				Sleep(3000)
		EndIf
	WEnd
EndIf
If $rsbklawisz = 2 Then
	While 1
		Send("2")
			Sleep(1000)
		If $x4klawisz = 1 Then
			Send("1")
				Sleep(3000)
		EndIf
		If $x4klawisz = 2 Then
			MsgBox(16,"RSB Shooter v1.3","WRONG x4 LASER BUTTON",5)
		EndIf
		If $x4klawisz = 3 Then
			Send("3")
				Sleep(3000)
		EndIf
		If $x4klawisz = 4 Then
			Send("4")
				Sleep(3000)
		EndIf
		If $x4klawisz = 5 Then
			Send("5")
				Sleep(3000)
		EndIf
		If $x4klawisz = 6 Then
			Send("6")
				Sleep(3000)
		EndIf
		If $x4klawisz = 7 Then
			Send("7")
				Sleep(3000)
		EndIf
		If $x4klawisz = 8 Then
			Send("8")
				Sleep(3000)
		EndIf
		If $x4klawisz = 9 Then
			Send("9")
				Sleep(3000)
		EndIf
		If $x4klawisz = 0 Then
			Send("0")
				Sleep(3000)
		EndIf
	WEnd
EndIf
If $rsbklawisz = 3 Then
	While 1
		Send("3")
			Sleep(1000)
		If $x4klawisz = 1 Then
			Send("1")
				Sleep(3000)
		EndIf
		If $x4klawisz = 2 Then
			Send("2")
				Sleep(3000)
		EndIf
		If $x4klawisz = 3 Then
 				MsgBox(16,"RSB Shooter v1.3","WRONG x4 LASER BUTTON",5)
		EndIf
		If $x4klawisz = 4 Then
			Send("4")
				Sleep(3000)
		EndIf
		If $x4klawisz = 5 Then
			Send("5")
				Sleep(3000)
		EndIf
		If $x4klawisz = 6 Then
			Send("6")
				Sleep(3000)
		EndIf
		If $x4klawisz = 7 Then
			Send("7")
				Sleep(3000)
		EndIf
		If $x4klawisz = 8 Then
			Send("8")
				Sleep(3000)
		EndIf
		If $x4klawisz = 9 Then
			Send("9")
				Sleep(3000)
		EndIf
		If $x4klawisz = 0 Then
			Send("0")
				Sleep(3000)
		EndIf
	WEnd
EndIf
If $rsbklawisz = 4 Then
	While 1
		Send("4")
			Sleep(1000)
		If $x4klawisz = 1 Then
			Send("1")
				Sleep(3000)
		EndIf
		If $x4klawisz = 2 Then
			Send("2")
				Sleep(3000)
		EndIf
		If $x4klawisz = 3 Then
			Send("3")
				Sleep(3000)
		EndIf
		If $x4klawisz = 4 Then
 				MsgBox(16,"RSB Shooter v1.3","WRONG x4 LASER BUTTON",5)
		EndIf
		If $x4klawisz = 5 Then
			Send("5")
				Sleep(3000)
		EndIf
		If $x4klawisz = 6 Then
			Send("6")
				Sleep(3000)
		EndIf
		If $x4klawisz = 7 Then
			Send("7")
				Sleep(3000)
		EndIf
		If $x4klawisz = 8 Then
			Send("8")
				Sleep(3000)
		EndIf
		If $x4klawisz = 9 Then
			Send("9")
				Sleep(3000)
		EndIf
		If $x4klawisz = 0 Then
			Send("0")
				Sleep(3000)
		EndIf
	WEnd
EndIf
If $rsbklawisz = 5 Then
	While 1
		Send("5")
			Sleep(1000)
		If $x4klawisz = 1 Then
			Send("1")
				Sleep(3000)
		EndIf
		If $x4klawisz = 2 Then
			Send("2")
				Sleep(3000)
		EndIf
		If $x4klawisz = 3 Then
			Send("3")
				Sleep(3000)
		EndIf
		If $x4klawisz = 4 Then
			Send("4")
				Sleep(3000)
		EndIf
		If $x4klawisz = 5 Then
 				MsgBox(16,"RSB Shooter v1.3","WRONG x4 LASER BUTTON",5)
		EndIf
		If $x4klawisz = 6 Then
			Send("6")
				Sleep(3000)
		EndIf
		If $x4klawisz = 7 Then
			Send("7")
				Sleep(3000)
		EndIf
		If $x4klawisz = 8 Then
			Send("8")
				Sleep(3000)
		EndIf
		If $x4klawisz = 9 Then
			Send("9")
				Sleep(3000)
		EndIf
		If $x4klawisz = 0 Then
			Send("0")
				Sleep(3000)
		EndIf
	WEnd
EndIf
If $rsbklawisz = 6 Then
	While 1
		Send("6")
			Sleep(1000)
		If $x4klawisz = 1 Then
			Send("1")
				Sleep(3000)
		EndIf
		If $x4klawisz = 2 Then
			Send("2")
				Sleep(3000)
		EndIf
		If $x4klawisz = 3 Then
			Send("3")
				Sleep(3000)
		EndIf
		If $x4klawisz = 4 Then
			Send("4")
				Sleep(3000)
		EndIf
		If $x4klawisz = 5 Then
			Send("5")
				Sleep(3000)
		EndIf
		If $x4klawisz = 6 Then
 				MsgBox(16,"RSB Shooter v1.3","WRONG x4 LASER BUTTON",5)
		EndIf
		If $x4klawisz = 7 Then
			Send("7")
				Sleep(3000)
		EndIf
		If $x4klawisz = 8 Then
			Send("8")
				Sleep(3000)
		EndIf
		If $x4klawisz = 9 Then
			Send("9")
				Sleep(3000)
		EndIf
		If $x4klawisz = 0 Then
			Send("0")
				Sleep(3000)
		EndIf
	WEnd
EndIf
If $rsbklawisz = 7 Then
	While 1
		Send("7")
			Sleep(1000)
		If $x4klawisz = 1 Then
			Send("1")
				Sleep(3000)
		EndIf
		If $x4klawisz = 2 Then
			Send("2")
				Sleep(3000)
		EndIf
		If $x4klawisz = 3 Then
			Send("3")
				Sleep(3000)
		EndIf
		If $x4klawisz = 4 Then
			Send("4")
				Sleep(3000)
		EndIf
		If $x4klawisz = 5 Then
			Send("5")
				Sleep(3000)
		EndIf
		If $x4klawisz = 6 Then
			Send("6")
				Sleep(3000)
		EndIf
		If $x4klawisz = 7 Then
 				MsgBox(16,"RSB Shooter v1.3","WRONG x4 LASER BUTTON",5)
		EndIf
		If $x4klawisz = 8 Then
			Send("8")
				Sleep(3000)
		EndIf
		If $x4klawisz = 9 Then
			Send("9")
				Sleep(3000)
		EndIf
		If $x4klawisz = 0 Then
			Send("0")
				Sleep(3000)
		EndIf
	WEnd
EndIf
If $rsbklawisz = 8 Then
	While 1
		Send("8")
			Sleep(1000)
		If $x4klawisz = 1 Then
			Send("1")
				Sleep(3000)
		EndIf
		If $x4klawisz = 2 Then
			Send("2")
				Sleep(3000)
		EndIf
		If $x4klawisz = 3 Then
			Send("3")
				Sleep(3000)
		EndIf
		If $x4klawisz = 4 Then
			Send("4")
				Sleep(3000)
		EndIf
		If $x4klawisz = 5 Then
			Send("5")
				Sleep(3000)
		EndIf
		If $x4klawisz = 6 Then
			Send("6")
				Sleep(3000)
		EndIf
		If $x4klawisz = 7 Then
			Send("7")
				Sleep(3000)
		EndIf
		If $x4klawisz = 8 Then
 				MsgBox(16,"RSB Shooter v1.3","WRONG x4 LASER BUTTON",5)
		EndIf
		If $x4klawisz = 9 Then
			Send("9")
				Sleep(3000)
		EndIf
		If $x4klawisz = 0 Then
			Send("0")
				Sleep(3000)
		EndIf
	WEnd
EndIf
If $rsbklawisz = 9 Then
	While 1
		Send("9")
			Sleep(1000)
		If $x4klawisz = 1 Then
			Send("1")
				Sleep(3000)
		EndIf
		If $x4klawisz = 2 Then
			Send("2")
				Sleep(3000)
		EndIf
		If $x4klawisz = 3 Then
			Send("3")
				Sleep(3000)
		EndIf
		If $x4klawisz = 4 Then
			Send("4")
				Sleep(3000)
		EndIf
		If $x4klawisz = 5 Then
			Send("5")
				Sleep(3000)
		EndIf
		If $x4klawisz = 6 Then
			Send("6")
				Sleep(3000)
		EndIf
		If $x4klawisz = 7 Then
			Send("7")
				Sleep(3000)
		EndIf
		If $x4klawisz = 8 Then
			Send("8")
				Sleep(3000)
		EndIf
		If $x4klawisz = 9 Then
 				MsgBox(16,"RSB Shooter v1.3","WRONG x4 LASER BUTTON",5)
		EndIf
		If $x4klawisz = 0 Then
			Send("0")
				Sleep(3000)
		EndIf
	WEnd
EndIf
If $rsbklawisz = 0 Then
	While 1
		Send("0")
			Sleep(1000)
		If $x4klawisz = 1 Then
			Send("1")
				Sleep(3000)
		EndIf
		If $x4klawisz = 2 Then
			Send("2")
				Sleep(3000)
		EndIf
		If $x4klawisz = 3 Then
			Send("3")
				Sleep(3000)
		EndIf
		If $x4klawisz = 4 Then
			Send("4")
				Sleep(3000)
		EndIf
		If $x4klawisz = 5 Then
			Send("5")
				Sleep(3000)
		EndIf
		If $x4klawisz = 6 Then
			Send("6")
				Sleep(3000)
		EndIf
		If $x4klawisz = 7 Then
			Send("7")
				Sleep(3000)
		EndIf
		If $x4klawisz = 8 Then
			Send("8")
				Sleep(3000)
		EndIf
		If $x4klawisz = 9 Then
			Send("9")
				Sleep(3000)
		EndIf
		If $x4klawisz = 0 Then
 				MsgBox(16,"RSB Shooter v1.3","WRONG x4 LASER BUTTON",5)
		EndIf
	WEnd
EndIf
Case $Hotkeys
MsgBox(0,"RSB Shooter v1.3","F1 - Start bot" & @CRLF & "Q - Close bot" & @CRLF & "W - Pause bot for 5 seconds" & @CRLF & "E - Pause bot for 10 seconds" & @CRLF & "R - Pause bot for 30 seconds" & @CRLF & "T - Pause bot for infinity time - Message Box")
Case $Info
MsgBox(0,"RSB Shooter v1.3","Bot created by Maggot." & @CRLF & "Gadu-Gadu dla polaków: 12753084" & @CRLF & @CRLF & "If you have an idea for my bot, you can write about it in my topic:" & @CRLF & "http://www.udobot.com/forum/index.php?topic=2936.0" & @CRLF & "Thanks for download this bot. " & @CRLF & @CRLF & "Email:" & @CRLF & "[email protected]")
Case $Versions
MsgBox(0,"RSB Shooter v1.3","Current version is v1.3." & @CRLF & @CRLF & "In next versions I will add:" & @CRLF & "- ESCAPE if HP < XXX , then bot use a EMP-01 (FINISHED =D) and masking module (later ;P)" & @CRLF & @CRLF & "And more ideas, you can send to me idea on email [email protected].")
EndSwitch
WEnd

Twoje już wrzuciłem w te samo miejsce co było przedtem.

matiszon · 2 Listopada 2010

Global $x, $y

While 1
If $Checkbox1 = $GUI_CHECKED Then
	$result = _ImageSearch("GFX\RSB 0.bmp", 1, $x, $y, 50)
	If $result = 1 Then
		Exit
	EndIf
EndIf
If $Checkbox2 = $GUI_CHECKED Then
	$result = _ImageSearch("GFX\SHD 0 box.bmp", 1, $x, $y, 50)
	If $result = 1 Then
		Send("C")
	EndIf
EndIf
If $Checkbox3 = $GUI_CHECKED Then
	$result = _ImageSearch("GFX\HP 0 box.bmp", 1, $x, $y, 50)
	If $result = 1 Then
		Send(GUICtrlRead($Input3))
	EndIf
EndIf

$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit
	Case $Button1
		$rsbklawisz = GUICtrlRead($Input1)
		$x4klawisz = GUICtrlRead($Input2)
		If $rsbklawisz = 1 Then
			While 1
				Send("1")
				Sleep(1000)
				If $x4klawisz = 1 Then
					MsgBox(16, "RSB Shooter v1.3", "WRONG x4 LASER BUTTON", 5)
				EndIf
				If $x4klawisz = 2 Then
					Send("2")
					Sleep(3000)
				EndIf
				If $x4klawisz = 3 Then
					Send("3")
					Sleep(3000)
				EndIf
				If $x4klawisz = 4 Then
					Send("4")
					Sleep(3000)
				EndIf
				If $x4klawisz = 5 Then
					Send("5")
					Sleep(3000)
				EndIf
				If $x4klawisz = 6 Then
					Send("6")
					Sleep(3000)
				EndIf
				If $x4klawisz = 7 Then
					Send("7")
					Sleep(3000)
				EndIf
				If $x4klawisz = 8 Then
					Send("8")
					Sleep(3000)
				EndIf
				If $x4klawisz = 9 Then
					Send("9")
					Sleep(3000)
				EndIf
				If $x4klawisz = 0 Then
					Send("0")
					Sleep(3000)
				EndIf
			WEnd
		EndIf
		If $rsbklawisz = 2 Then
			While 1
				Send("2")
				Sleep(1000)
				If $x4klawisz = 1 Then
					Send("1")
					Sleep(3000)
				EndIf
				If $x4klawisz = 2 Then
					MsgBox(16, "RSB Shooter v1.3", "WRONG x4 LASER BUTTON", 5)
				EndIf
				If $x4klawisz = 3 Then
					Send("3")
					Sleep(3000)
				EndIf
				If $x4klawisz = 4 Then
					Send("4")
					Sleep(3000)
				EndIf
				If $x4klawisz = 5 Then
					Send("5")
					Sleep(3000)
				EndIf
				If $x4klawisz = 6 Then
					Send("6")
					Sleep(3000)
				EndIf
				If $x4klawisz = 7 Then
					Send("7")
					Sleep(3000)
				EndIf
				If $x4klawisz = 8 Then
					Send("8")
					Sleep(3000)
				EndIf
				If $x4klawisz = 9 Then
					Send("9")
					Sleep(3000)
				EndIf
				If $x4klawisz = 0 Then
					Send("0")
					Sleep(3000)
				EndIf
			WEnd
		EndIf
		If $rsbklawisz = 3 Then
			While 1
				Send("3")
				Sleep(1000)
				If $x4klawisz = 1 Then
					Send("1")
					Sleep(3000)
				EndIf
				If $x4klawisz = 2 Then
					Send("2")
					Sleep(3000)
				EndIf
				If $x4klawisz = 3 Then
					MsgBox(16, "RSB Shooter v1.3", "WRONG x4 LASER BUTTON", 5)
				EndIf
				If $x4klawisz = 4 Then
					Send("4")
					Sleep(3000)
				EndIf
				If $x4klawisz = 5 Then
					Send("5")
					Sleep(3000)
				EndIf
				If $x4klawisz = 6 Then
					Send("6")
					Sleep(3000)
				EndIf
				If $x4klawisz = 7 Then
					Send("7")
					Sleep(3000)
				EndIf
				If $x4klawisz = 8 Then
					Send("8")
					Sleep(3000)
				EndIf
				If $x4klawisz = 9 Then
					Send("9")
					Sleep(3000)
				EndIf
				If $x4klawisz = 0 Then
					Send("0")
					Sleep(3000)
				EndIf
			WEnd
		EndIf
		If $rsbklawisz = 4 Then
			While 1
				Send("4")
				Sleep(1000)
				If $x4klawisz = 1 Then
					Send("1")
					Sleep(3000)
				EndIf
				If $x4klawisz = 2 Then
					Send("2")
					Sleep(3000)
				EndIf
				If $x4klawisz = 3 Then
					Send("3")
					Sleep(3000)
				EndIf
				If $x4klawisz = 4 Then
					MsgBox(16, "RSB Shooter v1.3", "WRONG x4 LASER BUTTON", 5)
				EndIf
				If $x4klawisz = 5 Then
					Send("5")
					Sleep(3000)
				EndIf
				If $x4klawisz = 6 Then
					Send("6")
					Sleep(3000)
				EndIf
				If $x4klawisz = 7 Then
					Send("7")
					Sleep(3000)
				EndIf
				If $x4klawisz = 8 Then
					Send("8")
					Sleep(3000)
				EndIf
				If $x4klawisz = 9 Then
					Send("9")
					Sleep(3000)
				EndIf
				If $x4klawisz = 0 Then
					Send("0")
					Sleep(3000)
				EndIf
			WEnd
		EndIf
		If $rsbklawisz = 5 Then
			While 1
				Send("5")
				Sleep(1000)
				If $x4klawisz = 1 Then
					Send("1")
					Sleep(3000)
				EndIf
				If $x4klawisz = 2 Then
					Send("2")
					Sleep(3000)
				EndIf
				If $x4klawisz = 3 Then
					Send("3")
					Sleep(3000)
				EndIf
				If $x4klawisz = 4 Then
					Send("4")
					Sleep(3000)
				EndIf
				If $x4klawisz = 5 Then
					MsgBox(16, "RSB Shooter v1.3", "WRONG x4 LASER BUTTON", 5)
				EndIf
				If $x4klawisz = 6 Then
					Send("6")
					Sleep(3000)
				EndIf
				If $x4klawisz = 7 Then
					Send("7")
					Sleep(3000)
				EndIf
				If $x4klawisz = 8 Then
					Send("8")
					Sleep(3000)
				EndIf
				If $x4klawisz = 9 Then
					Send("9")
					Sleep(3000)
				EndIf
				If $x4klawisz = 0 Then
					Send("0")
					Sleep(3000)
				EndIf
			WEnd
		EndIf
		If $rsbklawisz = 6 Then
			While 1
				Send("6")
				Sleep(1000)
				If $x4klawisz = 1 Then
					Send("1")
					Sleep(3000)
				EndIf
				If $x4klawisz = 2 Then
					Send("2")
					Sleep(3000)
				EndIf
				If $x4klawisz = 3 Then
					Send("3")
					Sleep(3000)
				EndIf
				If $x4klawisz = 4 Then
					Send("4")
					Sleep(3000)
				EndIf
				If $x4klawisz = 5 Then
					Send("5")
					Sleep(3000)
				EndIf
				If $x4klawisz = 6 Then
					MsgBox(16, "RSB Shooter v1.3", "WRONG x4 LASER BUTTON", 5)
				EndIf
				If $x4klawisz = 7 Then
					Send("7")
					Sleep(3000)
				EndIf
				If $x4klawisz = 8 Then
					Send("8")
					Sleep(3000)
				EndIf
				If $x4klawisz = 9 Then
					Send("9")
					Sleep(3000)
				EndIf
				If $x4klawisz = 0 Then
					Send("0")
					Sleep(3000)
				EndIf
			WEnd
		EndIf
		If $rsbklawisz = 7 Then
			While 1
				Send("7")
				Sleep(1000)
				If $x4klawisz = 1 Then
					Send("1")
					Sleep(3000)
				EndIf
				If $x4klawisz = 2 Then
					Send("2")
					Sleep(3000)
				EndIf
				If $x4klawisz = 3 Then
					Send("3")
					Sleep(3000)
				EndIf
				If $x4klawisz = 4 Then
					Send("4")
					Sleep(3000)
				EndIf
				If $x4klawisz = 5 Then
					Send("5")
					Sleep(3000)
				EndIf
				If $x4klawisz = 6 Then
					Send("6")
					Sleep(3000)
				EndIf
				If $x4klawisz = 7 Then
					MsgBox(16, "RSB Shooter v1.3", "WRONG x4 LASER BUTTON", 5)
				EndIf
				If $x4klawisz = 8 Then
					Send("8")
					Sleep(3000)
				EndIf
				If $x4klawisz = 9 Then
					Send("9")
					Sleep(3000)
				EndIf
				If $x4klawisz = 0 Then
					Send("0")
					Sleep(3000)
				EndIf
			WEnd
		EndIf
		If $rsbklawisz = 8 Then
			While 1
				Send("8")
				Sleep(1000)
				If $x4klawisz = 1 Then
					Send("1")
					Sleep(3000)
				EndIf
				If $x4klawisz = 2 Then
					Send("2")
					Sleep(3000)
				EndIf
				If $x4klawisz = 3 Then
					Send("3")
					Sleep(3000)
				EndIf
				If $x4klawisz = 4 Then
					Send("4")
					Sleep(3000)
				EndIf
				If $x4klawisz = 5 Then
					Send("5")
					Sleep(3000)
				EndIf
				If $x4klawisz = 6 Then
					Send("6")
					Sleep(3000)
				EndIf
				If $x4klawisz = 7 Then
					Send("7")
					Sleep(3000)
				EndIf
				If $x4klawisz = 8 Then
					MsgBox(16, "RSB Shooter v1.3", "WRONG x4 LASER BUTTON", 5)
				EndIf
				If $x4klawisz = 9 Then
					Send("9")
					Sleep(3000)
				EndIf
				If $x4klawisz = 0 Then
					Send("0")
					Sleep(3000)
				EndIf
			WEnd
		EndIf
		If $rsbklawisz = 9 Then
			While 1
				Send("9")
				Sleep(1000)
				If $x4klawisz = 1 Then
					Send("1")
					Sleep(3000)
				EndIf
				If $x4klawisz = 2 Then
					Send("2")
					Sleep(3000)
				EndIf
				If $x4klawisz = 3 Then
					Send("3")
					Sleep(3000)
				EndIf
				If $x4klawisz = 4 Then
					Send("4")
					Sleep(3000)
				EndIf
				If $x4klawisz = 5 Then
					Send("5")
					Sleep(3000)
				EndIf
				If $x4klawisz = 6 Then
					Send("6")
					Sleep(3000)
				EndIf
				If $x4klawisz = 7 Then
					Send("7")
					Sleep(3000)
				EndIf
				If $x4klawisz = 8 Then
					Send("8")
					Sleep(3000)
				EndIf
				If $x4klawisz = 9 Then
					MsgBox(16, "RSB Shooter v1.3", "WRONG x4 LASER BUTTON", 5)
				EndIf
				If $x4klawisz = 0 Then
					Send("0")
					Sleep(3000)
				EndIf
			WEnd
		EndIf
		If $rsbklawisz = 0 Then
			While 1
				Send("0")
				Sleep(1000)
				If $x4klawisz = 1 Then
					Send("1")
					Sleep(3000)
				EndIf
				If $x4klawisz = 2 Then
					Send("2")
					Sleep(3000)
				EndIf
				If $x4klawisz = 3 Then
					Send("3")
					Sleep(3000)
				EndIf
				If $x4klawisz = 4 Then
					Send("4")
					Sleep(3000)
				EndIf
				If $x4klawisz = 5 Then
					Send("5")
					Sleep(3000)
				EndIf
				If $x4klawisz = 6 Then
					Send("6")
					Sleep(3000)
				EndIf
				If $x4klawisz = 7 Then
					Send("7")
					Sleep(3000)
				EndIf
				If $x4klawisz = 8 Then
					Send("8")
					Sleep(3000)
				EndIf
				If $x4klawisz = 9 Then
					Send("9")
					Sleep(3000)
				EndIf
				If $x4klawisz = 0 Then
					MsgBox(16, "RSB Shooter v1.3", "WRONG x4 LASER BUTTON", 5)
				EndIf
			WEnd
		EndIf
	Case $Hotkeys
		MsgBox(0, "RSB Shooter v1.3", "F1 - Start bot" & @CRLF & "Q - Close bot" & @CRLF & "W - Pause bot for 5 seconds" & @CRLF & "E - Pause bot for 10 seconds" & @CRLF & "R - Pause bot for 30 seconds" & @CRLF & "T - Pause bot for infinity time - Message Box")
	Case $Info
		MsgBox(0, "RSB Shooter v1.3", "Bot created by Maggot." & @CRLF & "Gadu-Gadu dla polaków: 12753084" & @CRLF & @CRLF & "If you have an idea for my bot, you can write about it in my topic:" & @CRLF & "http://www.udobot.com/forum/index.php?topic=2936.0" & @CRLF & "Thanks for download this bot. " & @CRLF & @CRLF & "Email:" & @CRLF & "[email protected]")
	Case $Versions
		MsgBox(0, "RSB Shooter v1.3", "Current version is v1.3." & @CRLF & @CRLF & "In next versions I will add:" & @CRLF & "- ESCAPE if HP < XXX , then bot use a EMP-01 (FINISHED =D) and masking module (later ;P)" & @CRLF & @CRLF & "And more ideas, you can send to me idea on email [email protected].")
EndSwitch
WEnd

TrejCero · 2 Listopada 2010

ps.do czego ten bot..?

Maggot666 · 3 Listopada 2010

ps.do czego ten bot..?

Do darkorbit =D

Bardzo przydatny i ma ładne GUI

Aha i ten twoj kod... nie działa, tak samo jak wtedy. Jeśli wlaczylem bota kiedy obrazek jest wyswietlony, to sie wylaczyl. Ok. Ale kiedy go wlaczylem i nie bylo widac obrazka, przeszedlem do katalogu gdzie on sie znajdywał i bot się nie wyłaczył. Hm...

Może to gdzieś dodajmy:

if @error then

cos tam cos tam

else

cos tam cos tam

endif

?

Tylko co tam wpisać? Bo ja bym komende na "szukaj jeszcze raz" i troche tu petli wkleił. Ale nie wiem jak.

dziób tukana · 3 Listopada 2010

tych if-ów nie dało sie więcej naprodukować?

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit
		Global $x, $y
		If (GUICtrlRead($Checkbox1) = $GUI_CHECKED) Then; <==;jesli to checkbox to bylo brak GUICtrlRead
			$result = _ImageSearch("GFX\RSB 0.bmp", 1, $x, $y, 50)
			If $result = 1 Then
				Exit
			EndIf
		EndIf
		If (GUICtrlRead($Checkbox2) = $GUI_CHECKED) Then ; <==;GUICtrlRead
			$result = _ImageSearch("GFX\SHD 0 box.bmp", 1, $x, $y, 50)
			If $result = 1 Then
				Send("C")
			EndIf
		EndIf
		If (GUICtrlRead($Checkbox3) = $GUI_CHECKED) Then ; <==;GUICtrlRead
			$result = _ImageSearch("GFX\HP 0 box.bmp", 1, $x, $y, 50)
			If $result = 1 Then
				Send(GUICtrlRead($Input3))
			EndIf
		EndIf
	Case $Button1
		$rsbklawisz = GUICtrlRead($Input1)
		$x4klawisz = GUICtrlRead($Input2)
		While 1
			Send($rsbklawisz)
			Sleep(1000)
			For $idx = 0 To 9
				If $x4klawisz = $idx Then
					If $x4klawisz = $rsbklawisz Then
						MsgBox(16, "RSB Shooter v1.3", "WRONG x4 LASER BUTTON", 5)
					Else
						Send($idx)
						Sleep(3000)
					EndIf
				EndIf
			Next
		WEnd
	Case $Hotkeys
		MsgBox(0, "RSB Shooter v1.3", "F1 - Start bot" & @CRLF & "Q - Close bot" & @CRLF & "W - Pause bot for 5 seconds" & @CRLF & "E - Pause bot for 10 seconds" & @CRLF & "R - Pause bot for 30 seconds" & @CRLF & "T - Pause bot for infinity time - Message Box")
	Case $Info
		MsgBox(0, "RSB Shooter v1.3", "Bot created by Maggot." & @CRLF & "Gadu-Gadu dla polaków: 12753084" & @CRLF & @CRLF & "If you have an idea for my bot, you can write about it in my topic:" & @CRLF & "http://www.udobot.com/forum/index.php?topic=2936.0" & @CRLF & "Thanks for download this bot. " & @CRLF & @CRLF & "Email:" & @CRLF & "[email protected]")
	Case $Versions
		MsgBox(0, "RSB Shooter v1.3", "Current version is v1.3." & @CRLF & @CRLF & "In next versions I will add:" & @CRLF & "- ESCAPE if HP < XXX , then bot use a EMP-01 (FINISHED =D) and masking module (later ;P)" & @CRLF & @CRLF & "And more ideas, you can send to me idea on email [email protected].")
EndSwitch
WEnd

Maggot666 · 3 Listopada 2010

tych if-ów nie dało sie więcej naprodukować?

(...)

Dzieki ale teraz to w ogole nie działa , jesli chodzi o checkboxy .

Wtedy to chociaz raz wyszukiwało a teraz w ogole.

dziób tukana · 3 Listopada 2010

	Case $GUI_EVENT_CLOSE
	Exit
	Global $x, $y

	[...]

a jak ma niby działać?

brakuje 1 guzika miedzy kontrolką exit a tym szukaniem

nie podałeś to nikt ci jej nie wywróży

Maggot666 · 4 Listopada 2010

	Case $GUI_EVENT_CLOSE
	Exit
	Global $x, $y

	[...]
a jak ma niby działać?

brakuje 1 guzika miedzy kontrolką exit a tym szukaniem

nie podałeś to nikt ci jej nie wywróży

O co chodzi bo nie rozumiem ? podalem cala petle while 1...

dziób tukana · 4 Listopada 2010

to usunąć z tego kodu

Exit

a będziesz mugol odpalać te sprawdzanie za pomocą krzyżyka w prawym górnym rogu <_<

kapiszon?

poprawiłem ci jeszcze raz

czytaj przypisy na zielono

Global $x, $y

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit

	Case $BUTON_JAKIS ;<========: TU DAC KONTROLKE JAKIEGOS GUZIKA TA JEST TYLKO PRZYKŁADOWA BO NIEBYLO
		PRACA_JEDEN()
	Case $Button1
		PRACA_DWA()

	Case $Hotkeys
		MsgBox(0, "RSB Shooter v1.3", "F1 - Start bot" & @CRLF & "Q - Close bot" & @CRLF & "W - Pause bot for 5 seconds" & @CRLF & "E - Pause bot for 10 seconds" & @CRLF & "R - Pause bot for 30 seconds" & @CRLF & "T - Pause bot for infinity time - Message Box")
	Case $Info
		MsgBox(0, "RSB Shooter v1.3", "co to K* jest(?)")
	Case $Versions
		MsgBox(0, "", "")
EndSwitch
WEnd

Func PRACA_JEDEN()
;Global $x, $y <====; TO PRZENIESC NA SAM POCZATEK
While 1 ;<======; JESLI TO TEZ MA BYC W PETLI (POCZATEK PETLI)
	If (GUICtrlRead($Checkbox1) = $GUI_CHECKED) Then; <==;jesli to checkbox to bylo brak GUICtrlRead
		$result = _ImageSearch("GFX\RSB 0.bmp", 1, $x, $y, 50)
		If $result = 1 Then
			Exit
		EndIf
	EndIf
	If (GUICtrlRead($Checkbox2) = $GUI_CHECKED) Then ; <==;GUICtrlRead
		$result = _ImageSearch("GFX\SHD 0 box.bmp", 1, $x, $y, 50)
		If $result = 1 Then
			Send("C")
		EndIf
	EndIf
	If (GUICtrlRead($Checkbox3) = $GUI_CHECKED) Then ; <==;GUICtrlRead
		$result = _ImageSearch("GFX\HP 0 box.bmp", 1, $x, $y, 50)
		If $result = 1 Then
			Send(GUICtrlRead($Input3))
		EndIf
	EndIf
WEnd ;<======; JESLI TO TEZ MA BYC W PETLI (KONIEC PETLI)

EndFunc   ;==>PRACA_JEDEN

Func PRACA_DWA()
$rsbklawisz = GUICtrlRead($Input1)
$x4klawisz = GUICtrlRead($Input2)
While 1
	Send($rsbklawisz)
	Sleep(1000)
	For $idx = 0 To 9
		If $x4klawisz = $idx Then
			If $x4klawisz = $rsbklawisz Then
				MsgBox(16, "RSB Shooter v1.3", "WRONG x4 LASER BUTTON", 5)
			Else
				Send($idx)
				Sleep(3000)
			EndIf
		EndIf
	Next
WEnd
EndFunc   ;==>PRACA_DWA

Maggot666 · 4 Listopada 2010

Po co mam psuć sobie GUI jakimś niepotrzebnym guzikiem skoro i tak się będzie używało checkboxów ?

Wysle ci caly kod na gg 12753084 a ty bys go poprawil ok ?

Bo malo zrozumialem z tego co napisales.

Aha i moglbys zrobic zeby zaczynał od RSBButtona a nie od x4 ? To jest bardzo wazne gdyz jak jestes w niewidce, zaznaczasz kolesia i hotkeyem F1 wlaczasz bota wtedy walnie z rsb a nie ze slabszej bialki.

To wróce do starszego kodu .

---

Albo sam poprawie kod.

Maggot666 · 6 Listopada 2010

Ok dzięki za pomoc, działa mi bardzo dobrze (na XP)

Tylko niektórzy mają taki błąd (na Win7):

Jak to naprawić ?

Już pisałem o tym wyżej tylko nie wiem co tam wpisać.

jackraymund · 6 Listopada 2010

a w folderze ze skryptem masz imagesearch.dll?

Maggot666 · 6 Listopada 2010

a w folderze ze skryptem masz imagesearch.dll?

yy nie

Ja mam imagesearch w windowsie to chyba dlatego tylko mi dizala.

Jak wrzuce do folderu ze skryptem to bedzie dzialac ?

matiszon · 6 Listopada 2010

tak.

RobeM · 6 Listopada 2010

nie wiadomo czy będzie

pewnie niektórzy mają 64bitowy windows a dla niego jest całkiem odmienna biblioteka mimo że taka sama ale tylko dla systemów 64bitowych

podaje ci dokładnie gdzie błąd , sprawdz w danej lini skryptu

Maggot666 · 7 Listopada 2010

nie wiadomo czy będzie

pewnie niektórzy mają 64bitowy windows a dla niego jest całkiem odmienna biblioteka mimo że taka sama ale tylko dla systemów 64bitowych

podaje ci dokładnie gdzie błąd , sprawdz w danej lini skryptu

Ta linia nie ma nic wspolnego z bledem -.- '

To jest zwykly EndIf

A jesli bym wrzucil imagesearch.dll do folderu z bocikiem... mysle ze to nie wystarczy ;/. A moze jakaś komenda na otworzenie biblioteczki ?

RobeM · 7 Listopada 2010

nie, biblioteka to nie program tylko zbiór funkcji w jednym pliku

zarejestruj biblioteke w systemie , moze cos to da

regsvr32 nazwabiblioteki.dll

Maggot666 · 7 Listopada 2010

nie, biblioteka to nie program tylko zbiór funkcji w jednym pliku

zarejestruj biblioteke w systemie , moze cos to da

regsvr32 nazwabiblioteki.dll

Ale co mi to da ? Mi działa to wszystko tylko innym nie.

Ok to robie tak.

Wrzucam imagesearcha.dll to folderu ze skryptem i z nadzieja ze bedzie dzialac wysylam go innym. =D

Zaloguj się

👋 Witaj na MPCForum!

[Pytanie] [Problem\Pytanie] Imagesearch W Pętli

Rekomendowane odpowiedzi

Zarchiwizowany