[Poszukuje]Program Autoclick

[NudlexD]

Poszukuje programdu do klikania klawiszy 1 2 3 4 a w d z na przemian w takiej kolejnosci jakiej napisalem

[jackraymund]

Send("1")

Send("2")

Send("3")

Send("4")

Send("a")

Send("w")

Send("d")

Send("z")

[edi22]

wpisz 1234awdz (jak chcesz żeby klikało enter to wpisz {enter}) :P

1000=1sek

 

#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

#NoTrayIcon

global $paused

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

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

Func gg()

Exit

EndFunc

Opt("GUIOnEventMode", 1)

$Form1 = GUICreate("Spam Bot v2 by edi22", 298, 74)

 

GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")

GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1Minimize")

GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1Maximize")

GUISetOnEvent($GUI_EVENT_RESTORE, "Form1Restore")

$Text = GUICtrlCreateInput("Text{enter}", 8, 8, 281, 21)

GUICtrlSetOnEvent(-1, "TextChange")

$czas = GUICtrlCreateInput("Czas w ms", 8, 40, 145, 21)

GUICtrlSetOnEvent(-1, "czasChange")

$Button1 = GUICtrlCreateButton("Start", 155, 32, 49, 33, $WS_GROUP)

GUICtrlSetOnEvent(-1, "Button1Click")

$Button2 = GUICtrlCreateButton("Exit", 206, 32, 41, 33, $WS_GROUP)

GUICtrlSetOnEvent(-1, "Button2Click")

$Label1 = GUICtrlCreateLabel("by edi22", 250, 41, 44, 17)

GUICtrlSetOnEvent(-1, "Label1Click")

GUISetState(@SW_SHOW)

Func pauza()

$Paused = Not $Paused

While $Paused

Sleep(100)

WEnd

EndFunc

 

While 1

Sleep(100)

WEnd

 

While 1

Sleep(100)

WEnd

 

Func Button1Click()

ToolTip( "3sek", 0, 0, "Spam Bot by edi22")

sleep(1000)

ToolTip( "2sek", 0, 0, "Spam Bot by edi22")

GUICtrlDelete( $button2 )

sleep(1000)

ToolTip( "1sek", 0, 0, "Spam Bot by edi22")

sleep(1000)

ToolTip( "Spamuje", 0, 0, "Spam Bot by edi22")

while 1

Send(GUICtrlRead($Text))

sleep(GUICtrlRead($czas))

wend

EndFunc

 

Func Button2Click()

Exit

EndFunc

 

Func Form1Close()

Exit

EndFunc

Func Form1Maximize()

Exit

EndFunc

 

[jackraymund]

przerobiłem troche skrypt bo nie działał + ulepszyłem go troche

 

#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

#NoTrayIcon

global $paused

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

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

Func gg()

Exit

EndFunc

Opt("GUIOnEventMode", 1)

$Form1 = GUICreate("Spam Bot v2 by edi22", 298, 74)

 

GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")

$Text = GUICtrlCreateInput("Text", 8, 8, 281, 21)

$czas = GUICtrlCreateInput("Czas w ms", 8, 40, 145, 21)

$Button1 = GUICtrlCreateButton("Start", 155, 32, 49, 33, $WS_GROUP)

GUICtrlSetOnEvent(-1, "Button1Click")

$Button2 = GUICtrlCreateButton("Exit", 206, 32, 41, 33, $WS_GROUP)

GUICtrlSetOnEvent(-1, "Button2Click")

$Label1 = GUICtrlCreateLabel("by edi22", 250, 41, 44, 17)

GUISetState(@SW_SHOW)

Func pauza()

$Paused = Not $Paused

While $Paused

Sleep(100)

WEnd

EndFunc

 

While 1

Sleep(100)

WEnd

 

While 1

Sleep(100)

WEnd

 

Func Button1Click()

ToolTip( "3sek", 0, 0, "Spam Bot by edi22")

sleep(1000)

ToolTip( "2sek", 0, 0, "Spam Bot by edi22")

GUICtrlDelete( $button2 )

sleep(1000)

ToolTip( "1sek", 0, 0, "Spam Bot by edi22")

sleep(1000)

ToolTip( "Spamuje", 0, 0, "Spam Bot by edi22")

while 1

Send(GUICtrlRead($Text) & "{ENTER}")

sleep(GUICtrlRead($czas))

wend

EndFunc

 

Func Button2Click()

Exit

EndFunc

 

Func Form1Close()

Exit

EndFunc

 

+ po co dodales takie zbędne smieci jak GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close") ?? i tak podczas pracy nie wylaczy sie bot