Skocz do zawartości

Problem z botem w AutoIT


maly95

Rekomendowane odpowiedzi

Chciałem zrobić sobie bota do ekino, ale nie potrafię zrobić szukania przycisku like. Napisałem coś takiego:

$s = 0Global $UnPausedHotKeySet("1", "TogglePause")HotKeySet("{ESC}", "Terminate")MouseMove(670,683)MouseClick("")sleep(3000)MouseMove(1357,230)MouseClick("")sleep(3000)$zmiennna = PixelSearch(175,90,831,705,230230230)if not @error Then   MouseMove($zmienna[0], $zmienna[1],0)   EndIfFunc TogglePause()    $UnPaused = NOT $UnPaused    While $UnPaused        ToolTip("PAUSED!",0,0)		Sleep(100)    WEndEndFuncFunc Terminate()   ExitEndFunc

Przykładowa strona. Mógłby ktoś spojrzeć na to i powiedzieć gdzie jest błąd?

Odnośnik do komentarza

Dołącz do nas za darmo i naucz się zarabiać!

  • Dostęp do darmowych poradników pokazujących krok po kroku jak zarabiać w Internecie
  • Sposoby zarabiania niepublikowane nigdzie indziej
  • Aktywna społeczność, która pomoże Ci rozwiązać problemy i doradzi
  • Profesjonalne treści na temat SEO, social media, afiliacji, kryptowalut i wiele więcej!

 

 

Dobra bo sobie pewnie nie poradzisz łap:

$s = 0Global $zmiennaGlobal $UnPausedHotKeySet("1", "TogglePause")HotKeySet("{ESC}", "Terminate")MouseMove(670,683)MouseClick("")sleep(3000)MouseMove(1357,230)MouseClick("")sleep(3000)Global $zmiennna = PixelSearch(175,90,831,705,230230230)if not @error Then   MouseMove($zmienna[0], $zmienna[1],0)   EndIfFunc TogglePause()    $UnPaused = NOT $UnPaused    While $UnPaused        ToolTip("PAUSED!",0,0)		Sleep(100)    WEndEndFuncFunc Terminate()   ExitEndFunc

Działa :). Pamiętaj że nie możesz deklarować zmiennych np. Zmienna[0], zmienna[1] jak nie są w globalu bo nie pójdzie. Ale i tak na twoim miejscu mini GUI bym zrobił

  • Super 1

 

Użytkownik oskarżony o oszustwo.

 

Odnośnik do komentarza
  • 4 tygodnie później...

Tamten problem już rozwiązałem wszystko działa. Ale teraz mam kolejny. Czy jest możliwość podania współrzędnej do kliknięcia przez myszkę jako zmienna?

Mam coś takiego:

Global $UnPaused1HotKeySet("1", "TogglePause")HotKeySet("{ESC}", "Terminate")Sleep(5000);MouseMove(1357, 111); #cs przenosi stronę do góry #ce   MouseClick("");   Sleep(1000);      MouseMove(234, 132); #cs otwiera główną stronę #ce   MouseClick("");   Sleep(1000);      MouseMove(1357, 314); #cs przesówa stronę w dół #ce   MouseClick("");   Sleep(1000);$wartosc = 438;   $pxf=PixelSearch(321, 89,377, 704,0xBBBBBB)   While IsArray($pxf) = True 	  $wartosc = $wartosc + 90;	  MouseMove(785,$wartosc);	  MouseClick("");	  Sleep(1000);	  	  MouseMove(1357, 700); #cs przesówa stronę w dół #ceMouseClick("");Sleep(1000);MouseClick("");Sleep(1000);MouseClick("");Sleep(1000);MouseClick("");Sleep(1000);MouseClick("");Sleep(1000);	  if IsArray($px) = True Then   MouseMove($px[0], $px[1],1); #cs sprawdza like #ce   MouseClick("");   sleep(10000);      MouseMove(1357, 110); #cs podnosi stronę w dół #ce   MouseClick("");   Sleep(1000);      MouseMove(1140, 159); #cs przenosi kursor na link wylogowywujący #ce   MouseClick("");   sleep(1000);MouseMove(837, 15); #cs zamyka ekino #ceMouseClick("");Sleep(1000);MouseMove(1136, 107); #cs ustawienia fb #ceMouseClick("");Sleep(1000);MouseMove(1016, 285); #cs wylogowuje z fb #ceMouseClick("");Sleep(5000);MouseMove(587, 14); #cs zamyka fb #ceMouseClick ("");Sleep(1000);MouseMove(1339, 10); #cs zamyka Firefoxa #ceMouseClick("");	  EndIf   Wend  Func TogglePause()    $UnPaused = NOT $UnPaused    While $UnPaused        ToolTip("PAUSED!",0,0)		Sleep(100)    WEndEndFuncFunc Terminate()   ExitEndFunc

Program przestaje działać w

MouseMove(785,$wartosc);

miejscu ;)

Odnośnik do komentarza
  • 1 miesiąc temu...

Tamten problem już rozwiązałem wszystko działa. Ale teraz mam kolejny. Czy jest możliwość podania współrzędnej do kliknięcia przez myszkę jako zmienna?

Mam coś takiego:

Global $UnPaused1HotKeySet("1", "TogglePause")HotKeySet("{ESC}", "Terminate")Sleep(5000);MouseMove(1357, 111); #cs przenosi stronę do góry #ce   MouseClick("");   Sleep(1000);      MouseMove(234, 132); #cs otwiera główną stronę #ce   MouseClick("");   Sleep(1000);      MouseMove(1357, 314); #cs przesówa stronę w dół #ce   MouseClick("");   Sleep(1000);$wartosc = 438;   $pxf=PixelSearch(321, 89,377, 704,0xBBBBBB)   While IsArray($pxf) = True 	  $wartosc = $wartosc + 90;	  MouseMove(785,$wartosc);	  MouseClick("");	  Sleep(1000);	  	  MouseMove(1357, 700); #cs przesówa stronę w dół #ceMouseClick("");Sleep(1000);MouseClick("");Sleep(1000);MouseClick("");Sleep(1000);MouseClick("");Sleep(1000);MouseClick("");Sleep(1000);	  if IsArray($px) = True Then   MouseMove($px[0], $px[1],1); #cs sprawdza like #ce   MouseClick("");   sleep(10000);      MouseMove(1357, 110); #cs podnosi stronę w dół #ce   MouseClick("");   Sleep(1000);      MouseMove(1140, 159); #cs przenosi kursor na link wylogowywujący #ce   MouseClick("");   sleep(1000);MouseMove(837, 15); #cs zamyka ekino #ceMouseClick("");Sleep(1000);MouseMove(1136, 107); #cs ustawienia fb #ceMouseClick("");Sleep(1000);MouseMove(1016, 285); #cs wylogowuje z fb #ceMouseClick("");Sleep(5000);MouseMove(587, 14); #cs zamyka fb #ceMouseClick ("");Sleep(1000);MouseMove(1339, 10); #cs zamyka Firefoxa #ceMouseClick("");	  EndIf   Wend  Func TogglePause()    $UnPaused = NOT $UnPaused    While $UnPaused        ToolTip("PAUSED!",0,0)		Sleep(100)    WEndEndFuncFunc Terminate()   ExitEndFunc

Program przestaje działać w

MouseMove(785,$wartosc);

miejscu ;)

  $wartosc2 = $wartosc + 90;	  MouseMove(785,$wartosc2);

dsadadadaa la[ d,ssl, a pakdp, apd a, [23 ,[p,23 aposkd a,s da, podasdpdo dopasdspo dasm,s dampo2, p a2ap op, p 2pea 2p[l' ,zx d[c,';l zx;lm awe ka,'ad p[as ado[2,[ a409ia98ioj am98 89 a po,la 2pa2am p2k pa ?

Odnośnik do komentarza

Jeśli chcesz dodać odpowiedź, zaloguj się lub zarejestruj nowe konto

Jedynie zarejestrowani użytkownicy mogą komentować zawartość tej strony.

Zarejestruj nowe konto

Załóż nowe konto. To bardzo proste!

Zarejestruj się

Zaloguj się

Posiadasz już konto? Zaloguj się poniżej.

Zaloguj się
×
×
  • Dodaj nową pozycję...

Powiadomienie o plikach cookie

Ta strona korzysta z ciasteczek, aby świadczyć usługi na najwyższym poziomie. Dalsze korzystanie z witryny oznacza zgodę na ich wykorzystanie. Polityka prywatności .