Prymitywny bot :D

Amfetaminek · 28 Września 2013

Chwilowo v1.0

Widziałem często tematy typu jak zrobić klikacza klawisza "x" co 2 sec ????
Więc właśnie dla tych macie klikacza v1.0.
Tych bardziej doświadczonych proszę o komentarze i sugestie.
Mianowicie jak zatrzymać klikacza ?

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
HotKeySet("{ESC}", "wyjscie")
Local $k1, $k2, $k3, $k4, $k5
Local $c1, $c2, $c3, $c4, $c5
Local $hk1,$hk2,$hk3,$hk4,$hk5
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Amfiproject", 397, 395, 192, 124)
$I1 = GUICtrlCreateInput("", 56, 128, 33, 21)
$I2 = GUICtrlCreateInput("", 56, 152, 33, 21)
$I3 = GUICtrlCreateInput("", 56, 176, 33, 21)
$I4 = GUICtrlCreateInput("", 56, 200, 33, 21)
$I5 = GUICtrlCreateInput("", 56, 224, 33, 21)
$I6 = GUICtrlCreateInput("", 128, 128, 33, 21)
$I7 = GUICtrlCreateInput("", 128, 152, 33, 21)
$I8 = GUICtrlCreateInput("", 128, 176, 33, 21)
$I9 = GUICtrlCreateInput("", 128, 200, 33, 21)
$I10 = GUICtrlCreateInput("", 128, 224, 33, 21)
$List1 = GUICtrlCreateedit("", 216, 16, 161, 227)
$Key = GUICtrlCreateLabel("Key", 56, 104, 22, 17)
$Czas_w_sec = GUICtrlCreateLabel("Czas_w_sec", 112, 104, 64, 17)
$Dk = GUICtrlCreateLabel(" Lista dostepnych klawiszy w linku", 10, 365, 380, 20)
$Dk2 = GUICtrlCreateLabel(" http://www.autoitscript.com/autoit3/docs/functions/Send.htm", 10, 380, 395, 20)
$List2 = GUICtrlCreateedit("", 8, 256, 369, 110)
$Start = GUICtrlCreateButton("Start", 32, 24, 153, 57)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1

$nMsg = GUIGetMsg()
Global $q = GUICtrlRead($Start)


	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			wyjscie()
		Case $Start
            startstop()
	EndSwitch
WEnd


Func start()
	$k = "Key :"
	$c = "  po  :"
	$s = "  sec."
	$k1 = Guictrlread($I1)
	$k2 = Guictrlread($I2)
	$k3 = Guictrlread($I3)
	$k4 = Guictrlread($I4)
	$k5 = Guictrlread($I5)
	$c1 = Guictrlread($I6)
	$c2 = Guictrlread($I7)
	$c3 = Guictrlread($I8)
	$c4 = Guictrlread($I9)
	$c5 = Guictrlread($I10)
    GUICtrlSetData($List1,"Dzialania" & @CRLF &$k &$k1& @CRLF& $c &  $c1 & $s &@CRLF, "append")
	 GUICtrlSetData($List1,"Dzialania" & @CRLF &$k &$k2& @CRLF& $c &  $c2 & $s &@CRLF, "append")
	  GUICtrlSetData($List1,"Dzialania" & @CRLF &$k &$k3& @CRLF& $c &  $c3 & $s &@CRLF, "append")
	   GUICtrlSetData($List1,"Dzialania" & @CRLF &$k &$k4& @CRLF& $c &  $c4 & $s &@CRLF, "append")
	    GUICtrlSetData($List1,"Dzialania" & @CRLF &$k &$k5& @CRLF& $c &  $c5 & $s &@CRLF, "append")

EndFunc



func startstop()
	 if $q = "Start" Then
		 GUICtrlSetData($Start, "Stop")
		 start()
		  AdlibRegister("jedziem")
	 else

		 GUICtrlSetData($Start, "Start")
		 wyjscie()
	 EndIf

	EndFunc
	Func wyjscie()
	Exit
EndFunc

func jedziem()
	send("{"&$k1&"}")
	Sleep(1000*$c1)
	send("{"&$k2&"}")
	Sleep(1000*$c2)
	send("{"&$k3&"}")
	Sleep(1000*$c3)
	send("{"&$k4&"}")
	Sleep(1000*$c4)
	send("{"&$k5&"}")
	Sleep(1000*$c5)

	EndFunc

Phoenix_PL · 28 Września 2013

pierwsze primo: PĘTLE I TABLICE.

Drugie primo: na ciul tyle inputów?

Zkumeku · 28 Września 2013

pierwsze primo: PĘTLE I TABLICE.

Drugie primo: na ciul tyle inputów?

pewnie będzie chciał przypisać jakieś konkretne funkcje do nich

Amfetaminek · 28 Września 2013

To jest tymczasowo zarys programu
Inputy są potrzebne po to by w kolejnej wersji w każdym momencie można było zmienić key
5 to będzie max jak ktoś chcę niech przerobi sobie pod siebie

IeMaster · 28 Września 2013

"po drugie primo"

not sure if troll or stupid

------

dzięki za skrypt przyda mi sie do pracy magisterskiej - czy mogę go użyć, oczywiście podam źródło, autora etc ?

JestemPolakiem · 28 Września 2013

Po 1 - tablice

Po 2 - po co Ci tyle include ? żrą tylko pamięć.

@edit

daj możliwość kopiowania strony

Jeżeli nic się nie wpisze w key i czas to zrób by nic się nie wyświetlało

I po co Ci :

Czas_w_sec skoro możesz napisać tak :

Czas w sec ? tylko $zmienna musisz tak robić.

Amfetaminek · 28 Września 2013

Taką ilość include wygenerowała Koda.
Które wyrzucić według Cb?
Tablice może kiedyś gdyż uczę się C++ a tu tylko okazyjnie
Z tym czasem sam nie wiem dlaczego tak napisałem

A teraz kod.
Zatrzymuje się po naciśnięciu stop
Stop - zmiana keya - start


#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
HotKeySet("{ESC}", "wyjscie")
HotKeySet("{F11})" , "startstop")
Local $k1, $k2, $k3, $k4, $k5
Local $c1, $c2, $c3, $c4, $c5
Local $hk1,$hk2,$hk3,$hk4,$hk5
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Amfiproject", 397, 395, 192, 124)
$I1 = GUICtrlCreateInput("", 56, 128, 33, 21)
$I2 = GUICtrlCreateInput("", 56, 152, 33, 21)
$I3 = GUICtrlCreateInput("", 56, 176, 33, 21)
$I4 = GUICtrlCreateInput("", 56, 200, 33, 21)
$I5 = GUICtrlCreateInput("", 56, 224, 33, 21)
$I6 = GUICtrlCreateInput("", 128, 128, 33, 21)
$I7 = GUICtrlCreateInput("", 128, 152, 33, 21)
$I8 = GUICtrlCreateInput("", 128, 176, 33, 21)
$I9 = GUICtrlCreateInput("", 128, 200, 33, 21)
$I10 = GUICtrlCreateInput("", 128, 224, 33, 21)
$List1 = GUICtrlCreateedit("", 216, 16, 161, 227)
$Key = GUICtrlCreateLabel("Key", 56, 104, 22, 17)
$Czas_w_sec = GUICtrlCreateLabel("Czas_w_sec", 112, 104, 64, 17)
$Dk = GUICtrlCreateLabel(" Lista dostepnych klawiszy w linku", 10, 365, 380, 20)
$Dk2 = GUICtrlCreateLabel(" http://www.autoitscript.com/autoit3/docs/functions/Send.htm", 10, 380, 395, 20)
$List2 = GUICtrlCreateedit("", 8, 256, 369, 110)
$Start = GUICtrlCreateButton("Start", 32, 24, 153, 57)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1

$nMsg = GUIGetMsg()
Global $q = GUICtrlRead($Start)


    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            wyjscie()
        Case $Start
startstop()
    EndSwitch
WEnd


Func start()
    $k = "Key :"
    $c = " po :"
    $s = " sec."
    $k1 = Guictrlread($I1)
    $k2 = Guictrlread($I2)
    $k3 = Guictrlread($I3)
    $k4 = Guictrlread($I4)
    $k5 = Guictrlread($I5)
    $c1 = Guictrlread($I6)
    $c2 = Guictrlread($I7)
    $c3 = Guictrlread($I8)
    $c4 = Guictrlread($I9)
    $c5 = Guictrlread($I10)
GUICtrlSetData($List1,"Dzialania" & @CRLF &$k &$k1& @CRLF& $c & $c1 & $s &@CRLF, "append")
     GUICtrlSetData($List1,"Dzialania" & @CRLF &$k &$k2& @CRLF& $c & $c2 & $s &@CRLF, "append")
     GUICtrlSetData($List1,"Dzialania" & @CRLF &$k &$k3& @CRLF& $c & $c3 & $s &@CRLF, "append")
     GUICtrlSetData($List1,"Dzialania" & @CRLF &$k &$k4& @CRLF& $c & $c4 & $s &@CRLF, "append")
     GUICtrlSetData($List1,"Dzialania" & @CRLF &$k &$k5& @CRLF& $c & $c5 & $s &@CRLF, "append")

EndFunc



func startstop()
     if $q = "Start" Then
         GUICtrlSetData($Start, "Stop")
         start()
         AdlibRegister("jedziem")
     else

         GUICtrlSetData($Start, "Start")
         AdlibUnregister('jedziem')
     EndIf

    EndFunc
    Func wyjscie()
    Exit
EndFunc

func jedziem()
    send("{"&$k1&"}")
    Sleep(1000*$c1)
    send("{"&$k2&"}")
    Sleep(1000*$c2)
    send("{"&$k3&"}")
    Sleep(1000*$c3)
    send("{"&$k4&"}")
    Sleep(1000*$c4)
    send("{"&$k5&"}")
    Sleep(1000*$c5)

    EndFunc

Jeżeli mówisz poważnie to bierz śmiało.
Lepiej jednak napisz że z serii AmfiProject.
Amfetaminek może słabo tam wyglądać
Myślę że ten bot przyda się jeszcze komuś

"po drugie primo"

not sure if troll or stupid

------

dzięki za skrypt przyda mi sie do pracy magisterskiej - czy mogę go użyć, oczywiście podam źródło, autora etc ?

@@@@Edit
JestemPolakiem
Przecież jak nic nie wpiszesz to nic nie robi

@@@Edit
Dodałem jeszcze hotkey na start stop pod F11
Program może być zminimalizowany i tak wystartuje
Przynajmniej u mnie

JestemPolakiem · 28 Września 2013

@up

wyświetla co robi.

a co do includów to sam próbuj

ale ja bym zostawił tylko te 2 :

#include <GUIConstantsEx.au3>

#include <GUIListBox.au3>

i na serio poucz się tablic.

Amfetaminek · 28 Września 2013

Na dniach
Teraz lecę w tango miłego week
A w jakim sensie wyświetla ?
Bo może nie do końca się rozumiemy

Na tym

#include <GUIConstantsEx.au3>

#include <GUIListBox.au3>

Wszystko sprawnie działa

Danke bardzo

@up

wyświetla co robi.

a co do includów to sam próbuj

ale ja bym zostawił tylko te 2 :

#include <GUIConstantsEx.au3>

#include <GUIListBox.au3>

i na serio poucz się tablic.

Ok co do tych tablic nie jestem pewien ale coś takiego ?

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
HotKeySet("{END}", "wyjscie")
global $Ilosc
Dim $Song[65025]
Dim $Song2[65025]
#Region ### START Koda GUI section ### Form=c:\users\tomek\documents\playlista.kxf
$Form1_1 = GUICreate("Form1", 264, 438, 192, 124)
$List = GUICtrlCreateList("", 32, 24, 193, 329)
$Bt1 = GUICtrlCreateButton("Add", 56, 360, 145, 49)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            wyjscie()
        Case $Bt1
            Find()

    EndSwitch
WEnd
func Find()
$Folder = FileSelectFolder("Wybierz folder.", "", 2)
    if @error Then
        Switch MsgBox(3,"","kontynuowac?")
            case 7
                wyjscie()

            case 2
                Find()
            case 6
                if $Ilosc = 0 Then
                    Switch MsgBox(4,"","Musisz wybrac katalog. " &@crlf& "kontynuowac?")
                        case 6
                        Find()
                    case 7
                        wyjscie()
                        EndSwitch
                        EndIf
        EndSwitch
EndIf


$Ilosc2=$Ilosc

$FileList = _FileListToArray($Folder,"*.mp3")
        if @Error=4 Then
        MsgBox(0,"Error","Brak plików *.mp3 w podanym katalogu.")
Find()
        EndIf
     $Ilosc = $FileList[0]
        $Ilosc=$Ilosc+$Ilosc2

     For $Ilosc2 = $Ilosc2 To $Ilosc
            For $idx = 1 To $FileList[0]
            $Song[$Ilosc2]=$Folder&"\"&$FileList[$idx]
            $Song2[$Ilosc2]=$FileList[$idx]
            Guictrlsetdata($List, $Song2[$Ilosc2])
     Next
     next

$Ilosc2=$Ilosc

$Firstload = False
endfunc









        Func wyjscie()
    Exit
EndFunc

Amfetaminek · 25 Stycznia 2016

Hmm..
Ten bot nie działał tak jak chciałem ponieważ czas wpisywania klawiszy się sumował przez komendę sleep()

Edytowałem go na szybko i mam nadzieje że już działa poprawnie

Przepraszam że nie edytowałem poprzedniego posta :/
My mistake

#include <GUIConstantsEx.au3>
HotKeySet("{ESC}", "wyjscie")
HotKeySet("{F11})" , "startstop")
Local $k1, $k2, $k3, $k4, $k5
Local $c1, $c2, $c3, $c4, $c5
$Form1 = GUICreate("Amfiproject", 397, 395, 192, 124)
$I1 = GUICtrlCreateInput("", 56, 128, 33, 21)
$I2 = GUICtrlCreateInput("", 56, 152, 33, 21)
$I3 = GUICtrlCreateInput("", 56, 176, 33, 21)
$I4 = GUICtrlCreateInput("", 56, 200, 33, 21)
$I5 = GUICtrlCreateInput("", 56, 224, 33, 21)
$I6 = GUICtrlCreateInput("", 128, 128, 33, 21)
$I7 = GUICtrlCreateInput("", 128, 152, 33, 21)
$I8 = GUICtrlCreateInput("", 128, 176, 33, 21)
$I9 = GUICtrlCreateInput("", 128, 200, 33, 21)
$I10 = GUICtrlCreateInput("", 128, 224, 33, 21)
$List1 = GUICtrlCreateedit("", 216, 16, 161, 227)
$Key = GUICtrlCreateLabel("Key", 56, 104, 22, 17)
$Czas_w_sec = GUICtrlCreateLabel("Czas_w_sec", 112, 104, 64, 17)
$Dk = GUICtrlCreateLabel(" Lista dostepnych klawiszy w linku", 10, 365, 380, 20)
$Dk2 = GUICtrlCreateLabel(" http://www.autoitscript.com/autoit3/docs/functions/Send.htm", 10, 380, 395, 20)
$List2 = GUICtrlCreateedit("", 8, 256, 369, 110)
$Start = GUICtrlCreateButton("Start", 32, 24, 153, 57)
GUISetState(@SW_SHOW)
While 1

$nMsg = GUIGetMsg()
Global $q = GUICtrlRead($Start)


    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            wyjscie()
        Case $Start
			startstop()
    EndSwitch
WEnd
Func start()
    $k = "Key :"
    $c = " po :"
    $s = " sec."
    $k1 = Guictrlread($I1)
    $k2 = Guictrlread($I2)
    $k3 = Guictrlread($I3)
    $k4 = Guictrlread($I4)
    $k5 = Guictrlread($I5)
    $c1 = Guictrlread($I6)
    $c2 = Guictrlread($I7)
    $c3 = Guictrlread($I8)
    $c4 = Guictrlread($I9)
    $c5 = Guictrlread($I10)
GUICtrlSetData($List1,"Dzialania" & @CRLF &$k &$k1& @CRLF& $c & $c1 & $s &@CRLF, "append")
     GUICtrlSetData($List1,"Dzialania" & @CRLF &$k &$k2& @CRLF& $c & $c2 & $s &@CRLF, "append")
     GUICtrlSetData($List1,"Dzialania" & @CRLF &$k &$k3& @CRLF& $c & $c3 & $s &@CRLF, "append")
     GUICtrlSetData($List1,"Dzialania" & @CRLF &$k &$k4& @CRLF& $c & $c4 & $s &@CRLF, "append")
     GUICtrlSetData($List1,"Dzialania" & @CRLF &$k &$k5& @CRLF& $c & $c5 & $s &@CRLF, "append")

EndFunc



func startstop()
     if $q = "Start" Then
         GUICtrlSetData($Start, "Stop")
         start()
         AdlibRegister("j1",1000*$c1)
         AdlibRegister("j2",1000*$c2)
         AdlibRegister("j3",1000*$c3)
         AdlibRegister("j4",1000*$c4)
         AdlibRegister("j5",1000*$c5)
     else

         GUICtrlSetData($Start, "Start")
         AdlibUnregister('j1')
         AdlibUnregister('j2')
         AdlibUnregister('j3')
         AdlibUnregister('j4')
         AdlibUnregister('j5')
     EndIf

    EndFunc
    Func wyjscie()
    Exit
EndFunc

func j1()
	send("{"&$k1&"}")
	EndFunc
func j2()
	send("{"&$k2&"}")
EndFunc
func j3()
	send("{"&$k3&"}")
EndFunc
func j4()
	send("{"&$k4&"}")
EndFunc
func j5()
	send("{"&$k5&"}")
EndFunc

Ozzzj · 27 Stycznia 2016

Jeżeli można wiedzieć, w czym Tobie przykładowo pomógł ten ~~bot~~ klikacz? :makka:

Amfetaminek · 28 Stycznia 2016

chociażby w grze mmo gdzie masz opcje autotarget
Dawniej grając w pewną grę pierwsze boty wyglądały w ten sposób

Zaloguj się

👋 Witaj na MPCForum!

Prymitywny bot :D

Rekomendowane odpowiedzi

Amfetaminek

Amfetaminek

Phoenix_PL

Phoenix_PL

Zkumeku

Zkumeku

Amfetaminek

Amfetaminek

IeMaster

IeMaster

JestemPolakiem

JestemPolakiem

Amfetaminek

Amfetaminek

JestemPolakiem

JestemPolakiem

Amfetaminek

Amfetaminek

Amfetaminek

Amfetaminek

Ozzzj

Ozzzj

Amfetaminek

Amfetaminek

Zarchiwizowany