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

Autoclicker

cyprianb

Przez cyprianb
w Niezbędnik Programisty - Archiwum

Rekomendowane odpowiedzi

cyprianb Nowicjusz

cyprianb

Opublikowano
Nowicjusz

cyprianb

Opublikowano

Dzień dobry

 

Poszukuję darmowego autoclickera, potrzebuję aby program po włączeniu:

 

1. kliknął w miejsce A

2. odczekał 2sek

3. kliknął w miejsce B

4. odczekał 2 sek

 

i tak cały czas. Szukam od dłuższego czasu, dlatego zwracam się do was z prośbą.

Jestem całkowicie zielony w programowaniu, więc nie potrafię sam zrobić takiego programu.

Mam nadzieję, że pomożecie.

 

Z góry dziękuję za pomoc

MpK7 Rekrut

MpK7

Opublikowano
Rekrut

MpK7

Opublikowano

rowniez jestem zielony w programowaniu ale mysle ze jestem w stanie Ci pomoc ;].

stworz w AutoIT, narzedzie ktore pozwoli Ci okreslic wspolrzedne (punktow na twoim ekranie, bowiem napisales ze chcesz by klikal w okreslonych miejscach)

Do tego posluzy Ci narzedzie z tego tematu: http://www.mpcforum.pl/topic/161158-tut-full-autoit-v3-tutorial/

czyli stworz cos z zawartoscia tego kodu:

 

Local $x, $y, $title

$title = "To jest tytuł okna."

$x = MouseGetPos(0)

$y = MouseGetPos(1)

 

MsgBox(0, $title, "Pozycja myszy to: " & @LF & $x &", " & $y & "!")

 

 

Nastepnie napisz w temacie (jesli nie odpisywalbym w ciagu 24h to znaczy ze nie mialem czasu, wiec napisz mi na PW)

wspolrzedne jakie maja byc, by kliker kliknol miejsce "A" i miejsce "B".

 

Mam nadzieje ze pomoge ;].

C.J Weteran

C.J

Opublikowano
Weteran

C.J

Opublikowano 

While 1 ;pętla
MouseClick("",x,y) ;kliknięcie w punkt a
Sleep(2000) ;czekanie 2 sec
MouseClick("",x2,y2) ;kliknięcie w punkt b
Sleep(2000) ;czekanie 2 sec
WEnd ;koniec pętli

 

Z tym, że musisz zdefiniować współrzędne do zmiennych x, y, x2, y2.

1329036830-U154499.png
cyprianb Nowicjusz

cyprianb

Opublikowano
Nowicjusz

cyprianb

  • Autor
Opublikowano

@MPC Elite Rank III

 

Dziękuję, wszystko działa, tylko mam dwa pytania.

 

1. Dla próby wpisałem przypadkowe współrzędne, ale jak mam sprawdzić jakie są dokładnie współrzędne tych punktów ?

2. W jaki sposób mogę wyłączyć program, żeby przestał klikać : P ?

`fsk Uczeń

`fsk

Opublikowano
Uczeń

`fsk

Opublikowano

1. są 2 sposoby:

-1. robisza screenshota całego pulpitu, wklejasz go do painta, najeżdżasz na wybrane mioejsce, w prawym dolnym rogu będą podane współżędne.

-2. Jak masz zainstalowane Autoit to w folderze w którym zainstalowałeś (domyślnie Program Files\AutoIt3\AU3Info.exe) masz program AU3Info.exe, włączasz go, masz taki celownik, klikasz na niego i "trzymasz", przejeżdzasz na punk w który ma kliknąć, gdy kursor będzie na tym miejscu "puszczasz" celownik i w programie przechodzisz do zakładki "Mouse", tam masz współrzędne.

 

2. Użyj HotKeySet i z func z tego przykładu w swoim skrypcie

HotKeySet("{ESC}","stop")
Func stop()
Exit ;wychodzi z programu
EndFunc   ;==>stop

Phoenix_PL Weteran

Phoenix_PL

Opublikowano
Weteran

Phoenix_PL

Opublikowano

@UP: A ja podam dwa inne sposoby.

 

Co do sprawdzania współrzędnych, to masz tutaj niewielki skrypt który to umożliwi, F4 zapisujesz aktualne współrzędne do pliku:

 

HotKeySet ("{F4}", "save")
HotKeySet ("{F5}", "knc")

$hLog = FileOpen (@ScriptDir&"\wspolrzedne.txt", 10)

Func save()
   FileWrite ($hLog, MouseGetPos(0)&", "&MouseGetPos(1)&@CRLF)
EndFunc

Func knc()
   Exit
EndFunc

While 1
   ToolTip ("Współrzędne myszki: "&MouseGetPos(0)&", "&MouseGetPos(1), 0, 0)
   Sleep (10)
WEnd

 

 

Co do zamykania, to można zrobić tak, albo można po prostu spauzować działanie programu, jak na poniższym przykładzie:

 

HotKeySet ("{F4}", "pause")
HotKeySet ("{F5}", "knc")

Local $pokazuj = True

Func pause()
   $pokazuj = not $pokazuj
EndFunc

Func knc()
   Exit
EndFunc

While 1
   If $pokazuj Then
       ToolTip ("Jestem przyczepiony :P")
   Else
       ToolTip ("Przyczep mnie znowu!", 0, 0)
   EndIf
   Sleep (10)
WEnd

 

846331404756772371599.jpeg
GameOverMan Specjalista

GameOverMan

Opublikowano
Specjalista

GameOverMan

Opublikowano

1. Dla próby wpisałem przypadkowe współrzędne, ale jak mam sprawdzić jakie są dokładnie współrzędne tych punktów ?

 

Możesz taki programik:

 

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Pozycja myszy", 155, 85, 192, 85)
$Label1 = GUICtrlCreateLabel("", 24, 32, 105, 21, $SS_CENTER)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
   $Pozycja = MouseGetPos()
   GUICtrlSetData($Label1, $Pozycja[0] & ", " & $Pozycja[1])
   $nMsg = GUIGetMsg()
   Switch $nMsg
       Case $GUI_EVENT_CLOSE
           Exit
   EndSwitch
WEnd

obraz24.png


cyprianb Nowicjusz

cyprianb

Opublikowano
Nowicjusz

cyprianb

  • Autor
Opublikowano

Ok, więc mam coś takiego. Najpierw daję sobie 5s na włączenie stronki

koordy się zgadzają, klikanie działa, ale wyłączanie już nie.

Tę komendę co napisał Phoenix mam wkleić do tego samego okna co Autoclicker, czy zrobić osobny program tylko do wyłączania ?

Czy gdzieś może jest błąd ?

 

 

Sleep(5000)

While 1

MouseClick("",431,399)

Sleep(3000)

MouseClick("",545,315)

Sleep(3000)

WEnd

HotKeySet ("{F4}", "pause")

HotKeySet ("{F5}", "knc")

 

Local $pokazuj = True

 

Func pause()

$pokazuj = not $pokazuj

EndFunc

 

Func knc()

Exit

EndFunc

 

While 1

If $pokazuj Then

ToolTip ("Jestem przyczepiony :P")

Else

ToolTip ("Przyczep mnie znowu!", 0, 0)

EndIf

Sleep (10)

WEnd

woBniaR Pomocnik

woBniaR

Opublikowano
Pomocnik

woBniaR

Opublikowano

Klik na ikonke AutoIT w zasobniku i wybierasz Exit.

Ewentualnie jeśli musi być na klawisz to coś w ten styl:

HotKeySet("{F5}","koniec")
func koniec()
 exit
endfunc

Twoja stara robi catch the clowny w Game Makerze.

cyprianb Nowicjusz

cyprianb

Opublikowano
Nowicjusz

cyprianb

  • Autor
Opublikowano

Niestety to nie działa, chyba że mam zrobić osobny plik z tą komendą, bo wkleiłem go do tego samego.

Zmieniłem F5 na inny klawisz i też nie działa.

GameOverMan Specjalista

GameOverMan

Opublikowano
Specjalista

GameOverMan

Opublikowano

Szybciej i łatwiej to byłoby z WinHTTP albo IE jak to nie jest flash.

 

Pauza pod F2:

 

#include <Misc.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Czekaj = 0
$Form1 = GUICreate("Form1", 258, 107, 192, 124)
$Button1 = GUICtrlCreateButton("Start", 48, 8, 161, 33)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
While 1
While 1
If _IsPressed(71) Then
 ExitLoop(2)
EndIf
Sleep(10)
$Czekaj = $Czekaj + 1
If $Czekaj = 200 Then
 $Czekaj = 0
 ExitLoop
EndIf
WEnd
MouseClick("left", 200, 500, 1, 0)
While 1
If _IsPressed(71) Then
 ExitLoop(2)
EndIf
Sleep(10)
$Czekaj = $Czekaj + 1
If $Czekaj = 200 Then
 $Czekaj = 0
 ExitLoop
EndIf
WEnd
MouseClick("left", 500, 200, 1, 0)
WEnd
EndSwitch
WEnd

obraz24.png


RobeM Arcymistrz

RobeM

Opublikowano
Arcymistrz

RobeM

Opublikowano

1 ) nauczyć się pisać skrypty jak należy bo te wyżej to ...

2 ) zaglądnąć do działu ze skryptami , tam jest naprawdę wszystko

 

3 ) przeczytać albo użyć choć raz do qrw... nędzy pierd... kawisza F1 w SCITE , np pod hasłem HotKeySet jest przykład

 

co do programu jest kilka na forum i nawet nie szukał nikt jak widać, jeden jest np w moim statusie

 

 

Global $Paused
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
; tu wstawić funkcje co ma być zatrzymywana i wznawiana
WEnd
EndFunc

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

  • 1 miesiąc temu...
matuty Nowicjusz

matuty

Opublikowano
Nowicjusz

matuty

Opublikowano · Ukryte przez 4ggr35510n, 1 Października 2012 - Brak powodu
Ukryte przez 4ggr35510n, 1 Października 2012 - Brak powodu

Nowy Prywatny serwer Ogame

Nowe swiaty : namek(speed 4x),Akson(speed 7x),hellsus(speed 2x)

bugi

przyjazna atmoswera

HellHer Najlepszy serwer jest to nowy,najlepszy prywatny serwer Ogame ja jest przegladarkowa jak Pemiona,Margonem,Ikariam, itp... na uniwers 1 jest speed gry 13,na uniwers 2 speed 7 Jedynego czego potrzebujesz to tylko przegladarka (Polecana jest FireFox) prywatny,serwer,ogame,ikariam,tanoth,szybki,speed,fajna grafika,dluga gra,fajne forum.

Zarchiwizowany

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

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