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

[Problem] Co jest tutaj nie tak!?

IZZER4

Rekomendowane odpowiedzi

IZZER4 Pasjonat

IZZER4

Opublikowano
Pasjonat

IZZER4

Opublikowano

Witam . Mam tutaj maly kod ale cos wgl nie chce smigac ;/ Zaden button nie dziala , pozycja myszki sie nie zmienia i wgl nic nie dziala..

 

 

#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

#include <SliderConstants.au3>

#Region ### START Koda GUI section ### Form=

$LikeMoreBot = GUICreate("LikeMoreBot", 387, 131, 0, 0, BitOR($WS_CAPTION,$WS_POPUP,$WS_BORDER,$WS_CLIPSIBLINGS))

GUISetCursor (0)

GUISetBkColor(0x808080)

$Pic1 = GUICtrlCreatePic("C:\Users\Renia.Renia-Komputer\Downloads\[uDF] ImageSearh\123.bmp", 0, 0, 385, 129, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))

$Input1 = GUICtrlCreateInput("x,y lewy górny róg", 8, 0, 121, 21)

$Input2 = GUICtrlCreateInput("x,y prawy dolny róg", 136, 0, 121, 21)

$START = GUICtrlCreateButton("START", 8, 32, 121, 25 )

$STOP = GUICtrlCreateButton("STOP", 136, 32, 121, 25)

$EXIT = GUICtrlCreateButton("EXIT", 280, 8, 81, 49 )

$Label1 = GUICtrlCreateLabel("Pozycja myszki to :", 0, 83, 93, 17)

$Label2 = GUICtrlCreateLabel("0", 0, 100, 101, 17)

$Label3 = GUICtrlCreateLabel("Zapisz pozycje [F1] : ", 0, 115, 1201, 17)

GUICtrlSetBkColor(-1, 0x800000)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

HotKeySet("{f2}","zapisz")

Global $Pozycja

Global $bt=0

$dane = GUICtrlRead($Input1)

$dane1 = GUICtrlRead($Input2)

 

$nMsg = GUIGetMsg()

Switch $nMsg

Case $EXIT

Exit

Case $START

AdlibRegister("start","1000")

Case $STOP

AdlibUnRegister("start")

EndSwitch

 

$Pozycja = MouseGetPos()

GUICtrlSetData($Label2, $Pozycja[0]&","&$Pozycja[1])

 

Func start ()

$zmienna = PixelSearch($dane,$dane1,0x6C79BD)

If $zmienna = 1 Then

MouseClick("left",$zmienna[0],$zmienna[1])

Sleep(3000)

EndIf

$zmienna1 = PixelSearch($dane,$dane1,0xB0AAAA)

If Not @error Then

MouseClick("left",$zmienna1[0]+280,$zmienna1[1]+40)

EndIf

$zmienna2 = PixelSearch = ($dane,$dane1,0xA2C88F)

If Not @error Then

MouseMove($zmienna2[0],$zmienna2[1])

EndIf

EndFunc

 

func zapisz()

GUICtrlSetData($Label3, "Zapisana pozycja [F1]: "&$Pozycja[0]&","&$Pozycja[1])

EndFunc

 

 

While 1

Sleep(100)

WEnd

 

No dobra.. Wywalilem zdjecie to niby sie odbugowalo ale nadal nic sie nie dzieje po wpisaniu kordow oraz po klikneciu start.

Agent K Pasjonat

Agent K

Opublikowano
Pasjonat

Agent K

Opublikowano

Po pierwsze PixelSearch przyjmuje 5 argumentów, a nie 3.

4417049059_6234f40fb5.jpg
Storm has passed but the destruction are still visible.

Agent K Pasjonat

Agent K

Opublikowano
Pasjonat

Agent K

Opublikowano

Co z tego, przecież i tak podajesz to 111,111 jako jeden argument.

4417049059_6234f40fb5.jpg
Storm has passed but the destruction are still visible.

Agent K Pasjonat

Agent K

Opublikowano
Pasjonat

Agent K

Opublikowano

Picture nic tu nie ma bo wywaliłem na samym początku jak ty to w ogóle uruchamiasz?

Może Ci się pomyliło i zły kod wstawiłeś tutaj.

4417049059_6234f40fb5.jpg
Storm has passed but the destruction are still visible.

hehe7 Pomocnik

hehe7

Opublikowano
Pomocnik

hehe7

Opublikowano 
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <SliderConstants.au3>
#Region ### START Koda GUI section ### Form=
$LikeMoreBot = GUICreate("LikeMoreBot", 387, 131, 0, 0, BitOR($WS_CAPTION,$WS_POPUP,$WS_BORDER,$WS_CLIPSIBLINGS))
GUISetCursor (0)
GUISetBkColor(0x808080)
$Pic1 = GUICtrlCreatePic("C:\Users\Renia.Renia-Komputer\Downloads\[UDF] ImageSearh\123.bmp", 0, 0, 385, 129, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Input1 = GUICtrlCreateInput("x,y lewy górny róg", 8, 0, 121, 21)
$Input2 = GUICtrlCreateInput("x,y prawy dolny róg", 136, 0, 121, 21)
$START = GUICtrlCreateButton("START", 8, 32, 121, 25 )
$STOP = GUICtrlCreateButton("STOP", 136, 32, 121, 25)
$EXIT = GUICtrlCreateButton("EXIT", 280, 8, 81, 49 )
$Label1 = GUICtrlCreateLabel("Pozycja myszki to :", 0, 83, 93, 17)
$Label2 = GUICtrlCreateLabel("0", 0, 100, 101, 17)
$Label3 = GUICtrlCreateLabel("Zapisz pozycje [F1] : ", 0, 115, 1201, 17)
GUICtrlSetBkColor(-1, 0x800000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
HotKeySet("{f2}","zapisz")
Global $Pozycja
Global $bt=0
Func start ()
$dane = GUICtrlRead($Input1)
$dane1 = GUICtrlRead($Input2)
$Pozycja = MouseGetPos()
GUICtrlSetData($Label2, $Pozycja[0]&","&$Pozycja[1])
$zmienna = PixelSearch($dane,$dane1,0x6C79BD)
If $zmienna = 1 Then
MouseClick("left",$zmienna[0],$zmienna[1])
Sleep(3000)
EndIf
$zmienna1 = PixelSearch($dane,$dane1,0xB0AAAA)
If Not @error Then
MouseClick("left",$zmienna1[0]+280,$zmienna1[1]+40)
EndIf
$zmienna2 = PixelSearch = ($dane,$dane1,0xA2C88F)
If Not @error Then
MouseMove($zmienna2[0],$zmienna2[1])
EndIf
EndFunc

func zapisz()
GUICtrlSetData($Label3, "Zapisana pozycja [F1]: "&$Pozycja[0]&","&$Pozycja[1])
EndFunc


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $EXIT
Exit
Case $START
AdlibRegister("start","1000")
Case $STOP
AdlibUnRegister("start")
EndSwitch
WEnd

Już sie uruchamia ! (petla byla zle z case)

 

Nastepnie ty odczytujesz dane z inputa zanim cos do niego wpiszesz !

 

Radzilbym jeszcze rozdzielic wspolrzedne na 4 a nie na dwie (kazda z osobna)

1387536187-U112334.png

Jeśli Ci pomogłem mógłbyś wynagrodzić lajkiem :)

Agent K Pasjonat

Agent K

Opublikowano
Pasjonat

Agent K

Opublikowano

@UP Na bank działa. ;)

 

$zmienna2 = PixelSearch = ($dane,$dane1,0xA2C88F)

4417049059_6234f40fb5.jpg
Storm has passed but the destruction are still visible.

hehe7 Pomocnik

hehe7

Opublikowano
Pomocnik

hehe7

Opublikowano

Wcisnij w kodzie f5 i zobaczysz ze sa bledy.

 

jesli to $zmienna2 = PixelSearch = ($dane,$dane1,0xA2C88F)

zastapisz tym $zmienna2 = PixelSearch = (0, 0, 500, 500, 0xA2C88F)

 

JUZ DZIALA-dlatego radze aby zrobil $zmienna2 = PixelSearch = ($dane1,$dane2, $dane3, $dane4,0xA2C88F)

bo to jest uznawane ze wspolrzedna ma 0,4 (ulamek) zamiast x = 0 y= 4

1387536187-U112334.png

Jeśli Ci pomogłem mógłbyś wynagrodzić lajkiem :)

Agent K Pasjonat

Agent K

Opublikowano
Pasjonat

Agent K

Opublikowano

Co ty dajesz, jak jest z tym dodatkowym znakiem = to error:

 

>Running AU3Check (1.54.22.0) from:C:\Program Files (x86)\AutoIt 3

C:\Users\123\Desktop\Nowy AutoIt v3 Script (2).au3(62,26) : ERROR: syntax error

$zmienna2 = PixelSearch =

~~~~~~~~~~~~~~~~~~~~~~~~^

C:\Users\123\Desktop\Nowy AutoIt v3 Script (2).au3(62,37) : ERROR: unbalanced paranthesis expression.

$zmienna2 = PixelSearch = ($dane[1],

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

C:\Users\123\Desktop\Nowy AutoIt v3 Script (2).au3(62,37) : ERROR: syntax error

$zmienna2 = PixelSearch = ($dane[1],

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

C:\Users\123\Desktop\Nowy AutoIt v3 Script (2).au3 - 3 error(s), 0 warning(s)

 

Co do obrazka to wystarczy GUICtrlSetState($Pic1, $GUI_DISABLE) :).Proszę, masz tu w pełni działający kod:

#include 
#include 
#include 
#include 
#include 
#include 
#region ### START Koda GUI section ### Form=
$LikeMoreBot = GUICreate("LikeMoreBot", 387, 131, 0, 0, BitOR($WS_CAPTION, $WS_POPUP, $WS_BORDER, $WS_CLIPSIBLINGS))
GUISetCursor(0)
GUISetBkColor(0x808080)
$Pic1 = GUICtrlCreatePic("C:\Users\Renia.Renia-Komputer\Downloads\[UDF] ImageSearh\123.bmp", 0, 0, 385, 129, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS)) ; 
GUICtrlSetState(-1, $GUI_DISABLE)
$Input1 = GUICtrlCreateInput("x,y lewy górny róg", 8, 0, 121, 21)
$Input2 = GUICtrlCreateInput("x,y prawy dolny róg", 136, 0, 121, 21)
$START = GUICtrlCreateButton("START", 8, 32, 121, 25)
$STOP = GUICtrlCreateButton("STOP", 136, 32, 121, 25)
$EXIT = GUICtrlCreateButton("EXIT", 280, 8, 81, 49)
$Label1 = GUICtrlCreateLabel("Pozycja myszki to :", 0, 83, 93, 17)
$Label2 = GUICtrlCreateLabel("0", 0, 100, 101, 17)
$Label3 = GUICtrlCreateLabel("Zapisz pozycje [F1] : ", 0, 115, 1201, 17)
GUICtrlSetBkColor(-1, 0x800000)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
HotKeySet("{f1}", "zapisz")
Global $Pozycja
Global $bt = 0
$Do = 0
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $START
			$Do = 1
			$dane = StringSplit(GUICtrlRead($Input1), ",")
			$dane1 = StringSplit(GUICtrlRead($Input2), ",")
			$Timer = TimerInit()
		Case $STOP
			$Do = 0
		Case $EXIT
			Exit
	EndSwitch
	$Pozycja = MouseGetPos()
	GUICtrlSetData($Label2, $Pozycja[0] & "," & $Pozycja[1])

	If $Do == 1 And TimerDiff($Timer) >= 1000 Then
		start()
		$Timer = TimerInit()
	EndIf
WEnd

Func start()
	$zmienna = PixelSearch($dane[1], $dane[2], $dane1[1], $dane1[2], 0x6C79BD)
	If $zmienna = 1 Then
		MouseClick("left", $zmienna[0], $zmienna[1])
		Sleep(3000)
	EndIf
	$zmienna1 = PixelSearch($dane[1], $dane[2], $dane1[1], $dane1[2], 0xB0AAAA)
	If Not @error Then
		MouseClick("left", $zmienna1[0] + 280, $zmienna1[1] + 40)
	EndIf
	$zmienna2 = PixelSearch($dane[1], $dane[2], $dane1[1], $dane1[2], 0xA2C88F)
	If Not @error Then
		MouseMove($zmienna2[0], $zmienna2[1])
	EndIf
EndFunc   ;==>start

Func zapisz()
	GUICtrlSetData($Label3, "Zapisana pozycja [F1]: " & $Pozycja[0] & "," & $Pozycja[1])
EndFunc   ;==>zapisz

4417049059_6234f40fb5.jpg
Storm has passed but the destruction are still visible.

Agent K Pasjonat

Agent K

Opublikowano
Pasjonat

Agent K

Opublikowano

Działa, może zły kolor masz?

Najlepiej sprawdzić czy działa:

To:

GUICtrlSetBkColor(-1, 0x800000)

Zamień na to:

GUICtrlSetBkColor(-1, 0xA2C88F)

 

I wtedy powinno Ci na okienko programu klikać. Spróbuj.

4417049059_6234f40fb5.jpg
Storm has passed but the destruction are still visible.

hehe7 Pomocnik

hehe7

Opublikowano
Pomocnik

hehe7

Opublikowano

Ale powiedz mi w czym problem skoro jego kod dziala dobrze?

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <SliderConstants.au3>
#Region ### START Koda GUI section ### Form=
HotKeySet ( "`", "exituj")
$LikeMoreBot = GUICreate("LikeMoreBot", 387, 131, 0, 0, BitOR($WS_CAPTION,$WS_POPUP,$WS_BORDER,$WS_CLIPSIBLINGS))
GUISetCursor (0)
GUISetBkColor(0x808080)
$Pic1 = GUICtrlCreatePic("C:\Users\Renia.Renia-Komputer\Downloads\[UDF] ImageSearh\123.bmp", 0, 0, 385, 129, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Input1 = GUICtrlCreateInput("x lewy górny róg", 8, 0, 61, 21)
$Input2 = GUICtrlCreateInput("y lewy górny róg", 8, 60, 61, 21)
$Input3 = GUICtrlCreateInput("x prawy dolny róg", 136, 0, 61, 21)
$Input4 = GUICtrlCreateInput("y prawy dolny róg", 136, 60, 61, 21)
$START = GUICtrlCreateButton("START", 8, 32, 121, 25 )
$STOP = GUICtrlCreateButton("STOP", 136, 32, 121, 25)
$EXIT = GUICtrlCreateButton("EXIT", 280, 8, 81, 49 )
$Label1 = GUICtrlCreateLabel("Pozycja myszki to :", 0, 83, 93, 17)
$Label2 = GUICtrlCreateLabel("0", 0, 100, 101, 17)
$Label3 = GUICtrlCreateLabel("Zapisz pozycje [F1] : ", 0, 115, 1201, 17)
GUICtrlSetBkColor(-1, 0x800000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
HotKeySet("{f2}","zapisz")
Global $Pozycja
Global $bt=0
Func start ()
$dane1 = GUICtrlRead ($Input1)
$dane2 = GUICtrlRead ($Input2)
$dane3 = GUICtrlRead ($Input3)
$dane4 = GUICtrlRead ($Input4)
$Pozycja = MouseGetPos()
GUICtrlSetData($Label2, $Pozycja[0]&","&$Pozycja[1])
$zmienna = PixelSearch($dane1,$dane2,$dane3,$dane4,0x6C79BD)
If $zmienna = 1 Then
MouseClick("left",$zmienna[0],$zmienna[1])
Sleep(3000)
EndIf
$zmienna1 = PixelSearch($dane1,$dane2,$dane3,$dane4,0xB0AAAA)
If Not @error Then
MouseClick("left",$zmienna1[0]+280,$zmienna1[1]+40)
EndIf
$zmienna2 = PixelSearch($dane1,$dane2,$dane3,$dane4,0xA2C88F)
If Not @error Then
MouseMove($zmienna2[0],$zmienna2[1])
EndIf
EndFunc

func zapisz()
GUICtrlSetData($Label3, "Zapisana pozycja [F1]: "&$Pozycja[0]&","&$Pozycja[1])
EndFunc
Func exituj()
	Exit
	EndFunc

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $EXIT
Exit
Case $START
	start()
EndSwitch
WEnd

1387536187-U112334.png

Jeśli Ci pomogłem mógłbyś wynagrodzić lajkiem :)

Zarchiwizowany

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

Tematy
×
×
  • Dodaj nową pozycję...