[Release]Spam-O-Mat

[mipez]

Nur als kleines Übungsprojekt gedacht, findet selbst heraus was er kann^^

Aktuelle Version:
R:2b

Source:

 Spoiler

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 


[bloodang3l]

Sry kenn mich mit sowas ned wirklich aus xD aber ich würde gern in einem Forum jedem ne Pm schicken ^^ kennst du zufällig nen weg wie das funst hab auch nix gefunden was in die Richtung geht

[mipez]

Originally Posted by bloodang3l

Sry kenn mich mit sowas ned wirklich aus xD aber ich würde gern in einem Forum jedem ne Pm schicken ^^ kennst du zufällig nen weg wie das funst hab auch nix gefunden was in die Richtung geht

Schau dir mal die FF.au3 an (einfach googeln)... Damit kannst du Firefox-spezifische Befehle ausführen.
Oder nimm die IE Befehle.

Btw. ist das ein einfacher Send-Bot. Für speziellere Sachen hege ich schlicht kein Interesse (wozu auch? Ich benutz z.B. den Bot nur für Excel).