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

[Pomoc]Prosty Bot

for-ever

Rekomendowane odpowiedzi

for-ever Budowniczy

for-ever

Opublikowano
Budowniczy

for-ever

Opublikowano

Witam,

Czy jest możliwość zrobienia w AutoIt takiego bota, który by robił takie czynności:

 

-Wyszukuje danego obrazka, jeżeli go niema to:

-wciska ctrl + h

-czeka 1,5s

-wciska F1

-czeka 1,5sh

-wciska ctrl + h

-Znowu szuka tego obrazku, jeżeli obrazek zniknie, to powtarza czynności

 

Jeżeli by ktoś wykonał taki skrypt z luką na adres obrazka to chyba bym dawał przez cały tydzień limit +`ików :D

 

Dziękuje

for-ever

33608.png

19072.png

  • Odpowiedzi 56
  • Dodano
  • Ostatniej odpowiedzi
for-ever Budowniczy

for-ever

Opublikowano
Budowniczy

for-ever

  • Autor
Opublikowano 

$result = _ImageSearch("bandyt.bmp", 1, $x, $y, 10)
If $result = 0 Then
Send("^h")
sleep(1500)
send("{F1}")
sleep(1500)
Send("^h")
EndIf

 

Jeszcze tylko daj start i stop pod end i powiedz jak ten obrazek wstawić i masz limit + przez tydzień czyli 70 xD

Sory, ale jakoś nie siedze w tym programie i dla mnie to jest czarna magia :D

for-ever

33608.png

19072.png

jackraymund Admin Cienia

jackraymund

Opublikowano
Admin Cienia

jackraymund

Opublikowano 

hotkeyset("{END}","stop")
#include <ImageSearch.au3>

Global $x, $y

hotkeyset("{home}","start")
func start()
$result = _ImageSearch("bandyt.bmp", 1, $x, $y, 10)
If $result = 0 Then
Send("^h")
sleep(1500)
send("{F1}")
sleep(1500)
Send("^h")
EndIf
endfunc

func stop()
exit
endfunc

 

obrazek musi byc .bmp 24 bitowy

masz biblioteke imagesearch? to ci podeśle

Woj96 Specjalista

Woj96

Opublikowano
Specjalista

Woj96

Opublikowano

Może coś takiego

 

 

#include <ButtonConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

#include <GUIConstants.au3>

HotKeySet("{HOME}", "start")

HotKeySet("{END}", "stop")

HotKeySet("{DEL}", "koniec")

GUICreate("NemoBot by Woj96", 370, 103)

$btn1 = GUICtrlCreateButton("start", 10, 10, 80, 80)

$btn4 = GUICtrlCreateButton("koniec", 280, 10, 80, 80)

GUISetState()

 

While 1

 

 

$msg = GUIGetMsg()

Switch $msg

 

Case $btn1

GUIDelete()

start()

Case $gui_event_close

exit

 

 

Case $btn4

koniec()

Case $gui_event_close

exit

EndSwitch

wend

 

 

 

 

func start()

$result = _ImageSearch("bandyt.bmp", 1, $x, $y, 10)

If $result = 0 Then

Send("^h")

sleep(1500)

send("{F1}")

sleep(1500)

Send("^h")

EndIf

endfunc

 

 

func stop()

while 1

sleep(1000)

wend

endfunc

 

func koniec()

exit

endfunc

 

 

Nie zapomnij o koordach x,y

 

 

Pomogłem daj +

4143_1.png

jackraymund Admin Cienia

jackraymund

Opublikowano
Admin Cienia

jackraymund

Opublikowano

@up

kliknie stop to już nie będzie można włączyc go ponownie pomyśl troche

@top

http://www.speedyshare.com/files/23572275/ImageSearch.au3

do autoit3/indycule

http://www.speedyshare.com/files/23572279/ImageSearchDLL.dll

ato ma byc w folderze ze skryptem

+ zapomniałem dodac pętli

 

hotkeyset("{END}","stop")
#include <ImageSearch.au3>

Global $x, $y

hotkeyset("{home}","start")
func start()
while 1
$result = _ImageSearch("bandyt.bmp", 1, $x, $y, 10)
If $result = 0 Then
Send("^h")
sleep(1500)
send("{F1}")
sleep(1500)
Send("^h")
EndIf
wend
endfunc

func stop()
sleep(100)
endfunc

4ggr35510n Mentor

4ggr35510n

Opublikowano
Mentor

4ggr35510n

Opublikowano

Daj mu 35 i mi 35 :D

 

1. Ściągasz obrazek i zapisujesz od folderu ze skryptem (to jest z plikiem nazwa.au3)

2. Odpalasz ten skrypt (dodałem hotkeye i pętlę nieskończoną, żeby robił w kółko, na podstawie skryptu jackraymunda)

 

HotKeySet("{PAUSE}", "zmien")

$zmienna = 0

While True
While $zmienna = 1
	$result = _ImageSearch("bandyt.bmp", 1, $x, $y, 10)
	If $result = 0 Then
        	Send("^h")
         	sleep(1500)
	        send("{F1}")
	        sleep(1500)
	         Send("^h")
	EndIf
WEnd
WEnd

Func zmien()
If $zmienna = 1 Then
	$zmienna = 0
Else
	$zmienna = 1
EndIf
EndFunc

 

A, i obrazek zapisujesz albo pod "bandyt.bmp", albo zmieniasz odpowiedni fragmencik kodu powyżej na nazwę obrazka WRAZ z rozszerzeniem

 

 

 

@Edit:

Ojj, spóźniłem się...

Ale mój jest łatwiejszy w obsłudze, bo tylko jeden hotkey do startowania/pauzowania! :D

 

@Edit2:

No i jak kliknie u mnie "Pause" to bez najmniejszego problemu da się odpalić znowu, pomyśl trochę ty, jackraymund ;P

 

@Edit3:

No i bez obrazy, ale twój ostatni skrypt w ogóle nie działa ;p sprawdź sobie ;)

Ta sygnatura jest pusta.

for-ever Budowniczy

for-ever

Opublikowano
Budowniczy

for-ever

  • Autor
Opublikowano

Kurcze, zaraz ja to wszystko jakoś ogarne i dam edita max do godziny 12, więc niech mi żaden modek nie daje warna.

 

@ 4ggr35510n & jackraymund

 

Czyli mam teraz pobrać tego autoita, wklepać te wasze kody i zapisać, a do folderu ze skryptem wrzucić te pliki od jacksona ta? xD

Sory, ale ja nie mam zielonego pojęcia :rolleyes:

for-ever

33608.png

19072.png

jackraymund Admin Cienia

jackraymund

Opublikowano
Admin Cienia

jackraymund

Opublikowano

http://www.autoitscript.com/autoit3/downloads.shtml

ściągasz Auto it v3 potem editora instalujesz

włączasz scite wklepujesz kod zapisujesz i program gotowy możesz też sobie zrobic go do .exe wystarczy że klikniesz na ten plik PPm i wybierzesz edit script i klikniesz F7

tak jak mówiłem dll do folderu ze skryptem a au3 musi byc w przykładowo "C:\Program Files\AutoIt3\Include"

adwi32 Specjalista

adwi32

Opublikowano
Specjalista

adwi32

Opublikowano

źle,źle,żle

On gra w metina po co skrypt przeszukiwać ekran jak to zawsze jest w lewym górnym rogu wystarczy że przeszuka kawałek ekranu co zajmie mu sek, a tak zamuli mu kompa i będzie szukało minuta wierzcie mi musicie ustawić malutki zakres szukania nalepiej metodą PixelGetColor to nawet nie zauważy że mu pracuje jakiś inny skrypt

Tyle miałem do powiedzenia.

liczylem na barce lecz ona niemogla wygrac.

Przez kibicow ktorzy przy rzutach roznych wolnych swiecili w messiego laserami

for-ever Budowniczy

for-ever

Opublikowano
Budowniczy

for-ever

  • Autor
Opublikowano

źle,źle,żle

On gra w metina po co skrypt przeszukiwać ekran jak to zawsze jest w lewym górnym rogu wystarczy że przeszuka kawałek ekranu co zajmie mu sek, a tak zamuli mu kompa i będzie szukało minuta wierzcie mi musicie ustawić malutki zakres szukania nalepiej metodą PixelGetColor to nawet nie zauważy że mu pracuje jakiś inny skrypt

Tyle miałem do powiedzenia.

 

On ma racje, ale nie będe was męczył ;) Chyba, że wam się chce i łatwo jest takie coś napisać, no ale nie musicie tego robić.

A jak już się podejmiecie, to ma być lewy górny róg ekranu 200 x 200 pixeli.

for-ever

33608.png

19072.png

for-ever Budowniczy

for-ever

Opublikowano
Budowniczy

for-ever

  • Autor
Opublikowano

Dałem link w poście z 2 strony, jakbyś mógł, to weź już zrób gotowe, bo znając mnie, to znowu coś nie wyjdzie i większy spam będzie <_<

for-ever

33608.png

19072.png

4ggr35510n Mentor

4ggr35510n

Opublikowano
Mentor

4ggr35510n

Opublikowano

 

#include <ImageSearch.au3>
HotKeySet("{PAUSE}", "zmien")

$zmienna = 0
Global $x, $y

$czas = InputBox("Ustawienia i instrukcja ", "PAUSE - włączasz i wyłączasz." & @LF & @LF & "Wpisz sobie poniżej co ile ma szukać obrazka. To jest wartość w milisekundach." & @LF & @LF & "Poniżej 250 może troche zamulać procesor  Optymalnie i domyślnie pięćset, jak będzie ci znacząco zacinał, to zwiększ nawet to 1000-2000" & @LF & @LF & "Jak chcesz wyłączyć cały program, to musisz w trayu (pasku zadań) kliknąć ikonkę i 'Exit', hotkey PAUSE służy tylko do pauzowania/startowania wyszukiwania/klikania, program cały czas jest włączony w trayu (pasku zadań)", 500, default, 500, 300)
MsgBox(0,"Programik stworzony", "~by 4gr35510n " & @LF & @LF & @LF & "z drobnom pomocom jackramund ;p")

If FileExists(@SystemDir & "/ImageSearchDLL.dll") = 0 Then
FileCopy(@ScriptDir & "/resources/ImageSearchDLL.dll", @SystemDir & "/")
EndIf

While True
       While $zmienna = 1
               $result = _ImageSearch("resources/img.bmp", 1, $x, $y, 10, "TRANSBLACK")
               If $result = 0 Then
                   Send("^h")
                   sleep(1500)
                   send("{F1}")
                   sleep(1500)
				Send("^h")
               EndIf
		Sleep($czas)
	WEnd
Sleep(500)
WEnd

Func zmien()
       If $zmienna = 1 Then
               $zmienna = 0
			TrayTip("","Wyłączam...", 1)
       Else
               $zmienna = 1
			TrayTip("","Włączam wyszukiwanie i klikanie!", 1)
       EndIf
EndFunc

 

 

Tutaj kod jakby ktoś chciał.

Ta sygnatura jest pusta.

Zarchiwizowany

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

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