[Pytanie] Potrzebny Spam ...

[EximoxD]

Jak w temacie potrzebuje bota w którym będę mogł wpisać co bede chciał a on to będzie pisał i klikał enter ...

[jackraymund]

#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Form1", 633, 447, 192, 124)

$Input1 = GUICtrlCreateInput("Input1", 32, 8, 121, 21)

$Button1 = GUICtrlCreateButton("Button1", 72, 40, 75, 25, $WS_GROUP)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

 

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

case $button1

sleep(2000)

$l = guictrlread($input1)

send($l)

send("{enter}")

EndSwitch

WEnd

[Rand]

[lokuxd]

w przypietych... trudno popatrzec!

[Rower1310]

Wpisujesz tekst do pola $Input1 i klikasz na przycisk Start lub klikasz F5 a żeby program wyłączyć klikasz na przycisk Exit lub klikasz END.

 

#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)

#Region ### START Koda GUI section ### Form=

$Form1_1 = GUICreate("Form1", 244, 76, 265, 248)

$Input1 = GUICtrlCreateInput("", 8, 8, 121, 21)

$Button1 = GUICtrlCreateButton("Start F5", 144, 8, 75, 25, $WS_GROUP)

GUICtrlSetOnEvent(-1, "Button1Click")

$Label1 = GUICtrlCreateLabel("Tu wpisz tekst", 32, 32, 72, 17)

$Button2 = GUICtrlCreateButton("Exit END", 144, 40, 75, 25, $WS_GROUP)

GUICtrlSetOnEvent(-1, "Button2Click")

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

 

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

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

 

While 1

Sleep(100)

WEnd

 

Func Button1Click()

Send(GUICtrlRead($Input1))

Sleep(50)

Send("{enter}")

EndFunc

 

Func Button2Click()

Exit

EndFunc