Nur als kleines Übungsprojekt gedacht, findet selbst heraus was er kann^^
Aktuelle Version:
R:2b
Source:
Aktuelle Version:
R:2b
Source:
PHP Code:
#include <GUIConstants.au3>
#include <Array.au3>
$Form1 = GUICreate("Spam-O-Mat R:2b", 238, 250)
$Input1 = GUICtrlCreateInput("Dein Text", 24, 16, 185, 21)
$Input2 = GUICtrlCreateInput("Anzahl der Wiederholungen", 24, 48, 185, 21)
$check = GUICtrlCreateRadio("Enter nach jeder Zeile", 24, 78)
$check2 = GUICtrlCreateRadio("Enter am Anfang und am Ende", 24, 100)
$check3 = GUICtrlCreateRadio("Enter am Anfang und nach jeder Zeile", 24, 122)
$Button1 = GUICtrlCreateButton("Start", 24, 215,50)
$Button2 = GUICtrlCreateButton("Stop", 79, 215, 50)
$Button3 = GUICtrlCreateButton("Fenster suchen", 24, 182,100)
$label = GUICtrlCreateLabel("", 185,220,30,20)
$Input3 = GUICtrlCreateInput("Fenstername", 24, 152, 185, 21)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_senden()
Case $Button3
_suchen()
EndSwitch
WEnd
Func _suchen()
$list = WinList()
MsgBox(0,"Hinweis","<Copy Selected> kopiert auch die beiden Spalten links und rechts. Per STRG+V einfügen und die beiden Spalten löschen")
_ArrayDisplay($list)
EndFunc
Func _senden()
$read1 = GUICtrlRead($Input1)
$read2 = GUICtrlRead($Input2)
$read3 = GUICtrlRead($Input3)
$read4 = Guictrlread($check)
$read5 = GUICtrlRead($check2)
$read6 = GUICtrlRead($check3)
GUICtrlSetData($label,"3")
Sleep(1000)
GUICtrlSetData($label,"2")
Sleep(1000)
GUICtrlSetData($label,"1")
Sleep(1000)
GUICtrlSetData($label,"Start")
WinActivate($read3)
If $read4 = 1 Then
For $i = 1 To $read2
GUICtrlSetData($label, $i)
Send($read1 & "{ENTER}")
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exitloop
Exit
Case $Button2
Exitloop
EndSwitch
Next
ElseIf $read5 = 1 Then
Send("{ENTER}")
For $i = 1 To $read2
GUICtrlSetData($label,$i)
Send($read1)
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
Exitloop
EndSwitch
Next
Send("{ENTER}")
ElseIf $read6 = 1 Then
Send("{ENTER}")
For $i = 1 To $read2
GUICtrlSetData($label, $i)
Send($read1 & "{ENTER}")
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
Exitloop
EndSwitch
Next
EndIf
GUICtrlSetData($label,"Ende")
EndFunc
