Erstes Autoit Programm(mini)

06/11/2011 00:25 matrix1997#1

da ich seit 2-3 tagen autoit lerne wollte ich mal ein programm machen(spambot :D) sehr einfach gescript (wollte nur einfaches programm machen

[Only registered and activated users can see links. Click Here To Register...]

Spoiler

[spoiler]

06/11/2011 11:53 WennsHilft#2

^^ habs mir nicht angesehen und werd ich auch nich ^^
(Virustotal check PLS)

Stell doch zum besseren �berblick lieber das script rein ^^
(dann wirste auch tips und infos zur verbesserung deiner f�higkeiten erhalten)

z.B.:

Spoiler

Code:

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode",1)
If @OSVersion = "WIN_VISTA" Or @OSVersion = "WIN_7" Then
    #RequireAdmin
EndIf

Global $sPause_Bef = ""
Global $i_StartCheckVar = 1

#Region ### START Koda GUI section ### Form=C:\Users\Kevin\Desktop\SpamBot Deluxe\Koda Formen\hWnd_MainMenu.kxf
$hWnd_MainMenu = GUICreate("SpamBot", 321, 355, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE,"_Exit",$hWnd_MainMenu)
$ctrl_MainMenu_1 = GUICtrlCreateMenu("Text")
$ctrl_Delete = GUICtrlCreateMenuitem("Textinhalt l�schen...",$ctrl_MainMenu_1)
GUICtrlSetOnEvent(-1,"_Delete")
$ctrl_SaveSpamText = GUICtrlCreateMenuitem("Speichere Spam-Text...",$ctrl_MainMenu_1)
GUICtrlSetOnEvent(-1,"_SaveSpamText")
$ctrl_LoadSpamText = GUICtrlCreateMenuitem("Lade Spam-Text...",$ctrl_MainMenu_1)
GUICtrlSetOnEvent(-1,"_LoadSpamText")
$ctrl_DeleteFile = GUICtrlCreateMenuitem("L�sche Speicher-Datei...",$ctrl_MainMenu_1)
GUICtrlSetOnEvent(-1,"_DeleteData")
If Not FileExists(@ScriptDir & "\Spamtext.data") Then
    GUICtrlSetState($ctrl_LoadSpamText,$GUI_DISABLE)
    GUICtrlSetState($ctrl_DeleteFile,$GUI_DISABLE)
EndIf
$ctrl_BigTitleLabel = GUICtrlCreateLabel("Spam-Bot Deluxe", 8, 8, 167, 33)
GUICtrlSetFont(-1, 18, 400, 0, "Impact")
$Optionen = GUICtrlCreateGroup("Optionen", 8, 48, 305, 105)
$ctrl_Pausen = GUICtrlCreateCombo("Ohne Pausen", 160, 64, 145, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Mit Pausen")
GUICtrlSetOnEvent(-1,"_GetStringComboPausen")
GUICtrlSetTip(-1,"Pausiert eine beliebige Zeit zwischen den Spams!","Information")
$ctrl_i_Sekunde = GUICtrlCreateInput("0", 160, 96, 145, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER,$ES_READONLY))
$Updown1 = GUICtrlCreateUpdown($ctrl_i_Sekunde)
GUICtrlSetState(-1, $GUI_DISABLE)
$ctrl_Anzahl = GUICtrlCreateCombo("Unendlich", 16, 64, 137, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Bestimmte Anzahl")
GUICtrlSetOnEvent(-1,"_GetStringComboAnzahl")
GUICtrlSetTip(-1,"Schreibt eine gewisse Menge an Spams!","Information")
$ctrl_i_Anzahl = GUICtrlCreateInput("5", 16, 96, 137, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY,$ES_NUMBER))
$Updown2 = GUICtrlCreateUpdown($ctrl_i_Anzahl)
GUICtrlSetState(-1, $GUI_DISABLE)
$ctrl_AnzahlLabel = GUICtrlCreateLabel("Anzahl", 48, 120, 57, 23)
GUICtrlSetFont(-1, 12, 800, 0, "Arial")
$ctrl_SekundeLabel = GUICtrlCreateLabel("Sekunden", 184, 120, 82, 23)
GUICtrlSetFont(-1, 12, 800, 0, "Arial")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ctrl_Text = GUICtrlCreateLabel("Text", 136, 160, 45, 27)
GUICtrlSetFont(-1, 12, 800, 0, "Arial Black")
$ctrl_s_Text = GUICtrlCreateEdit("", 8, 192, 305, 73, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
$ctrl_moreSettings = GUICtrlCreateButton("Zus�tzliche optionale Einstellungen", 8, 272, 307, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1,"_Options")
$ctrl_Start = GUICtrlCreateButton("Start", 8, 304, 99, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1,"_Start")
$ctrl_Exit = GUICtrlCreateButton("Beenden", 216, 304, 99, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1,"_Exit")
GUISetState(@SW_SHOW,$hWnd_MainMenu)
#EndRegion ### END Koda GUI section ###

#Region ### START Koda GUI section ### Form=C:\Users\Kevin\Desktop\Autoit\SpamBot Deluxe\Koda Formen\hWnd_optSettings.kxf
$hWnd_optSettings = GUICreate("Optionale Einstellungen", 323, 175, 189, 129)
GUISetOnEvent($GUI_EVENT_CLOSE,"_Options_Close",$hWnd_optSettings)
$ctrl_WinTitleLabel = GUICtrlCreateLabel("Auf ein bestimmtes Fenster zugreifen:", 8, 8, 179, 17)
$ctrl_s_Title = GUICtrlCreateInput("", 192, 6, 121, 21)
$ctrl_AtTheBeginning = GUICtrlCreateCheckbox("Am Anfang eine Pause einlegen", 8, 32, 169, 17)
GUICtrlSetTip(-1,"Am Anfang eine Pause in Sekunden einlegen!","Information")
GUICtrlSetOnEvent(-1,"_ReadCheckBoxAtTheBeg")
$ctrl_i_BeginningPause = GUICtrlCreateInput("0", 192, 32, 121, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY,$ES_NUMBER))
$Updown3 = GUICtrlCreateUpdown($ctrl_i_BeginningPause)
GUICtrlSetState(-1,$GUI_DISABLE)
$TasteAbschliessen = GUICtrlCreateGroup("Taste zum abschlie�en", 8, 56, 305, 89)
$ctrl_AskTastePressedLabel = GUICtrlCreateLabel("Welche Taste soll am Ende des Satzes gedr�ckt werden?", 16, 72, 278, 17)
$ctrl_Enter = GUICtrlCreateRadio("Enter", 16, 96, 113, 17)
GUICtrlSetState(-1,$GUI_CHECKED)
$ctrl_Nothing = GUICtrlCreateRadio("Nichts", 16, 120, 113, 17)
$ctrl_Leertaste = GUICtrlCreateRadio("Leertaste", 232, 107, 73, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ctrl_save_settings = GUICtrlCreateButton("Save Settings", 8, 152, 307, 17, $WS_GROUP)
GUICtrlSetOnEvent(-1,"_Save_Settings")
GUISetState(@SW_HIDE,$hWnd_optSettings)
#EndRegion ### END Koda GUI section ###

#Region ### START Koda GUI section ### Form=
$hWnd_ShowSpams = GUICreate("Gespeicherte Spams", 625, 443, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE,"Spams_Close",$hWnd_ShowSpams)
$ctrl_list_Spams = GUICtrlCreateList("", 8, 8, 609, 396)
$ctrl_use_Spams = GUICtrlCreateButton("Benutzen", 8, 416, 609, 17, $WS_GROUP)
GUICtrlSetOnEvent(-1,"_WriteSelectSpamInEdit")
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

While 1
    If GUICtrlRead($ctrl_i_Sekunde) < 0 Then
        GUICtrlSetData($ctrl_i_Sekunde,"0")
    EndIf
    If GUICtrlRead($ctrl_i_Anzahl) < 0 Then
        GUICtrlSetData($ctrl_i_Anzahl,"0")
    EndIf
    If GUICtrlRead($ctrl_i_BeginningPause) < 0 Then
        GUICtrlSetData($ctrl_i_BeginningPause,"0")
    EndIf
    If GUICtrlGetState($ctrl_LoadSpamText) = $GUI_DISABLE And FileExists(@ScriptDir & "\Spamtext.data") Then GUICtrlSetState($ctrl_LoadSpamText,$GUI_ENABLE)
    If GUICtrlGetState($ctrl_LoadSpamText) = $GUI_ENABLE And Not FileExists(@ScriptDir & "\Spamtext.data") Then GUICtrlSetState($ctrl_LoadSpamText,$GUI_DISABLE)
    If GUICtrlGetState($ctrl_DeleteFile) = $GUI_DISABLE And FileExists(@ScriptDir & "\Spamtext.data") Then GUICtrlSetState($ctrl_DeleteFile,$GUI_ENABLE)
    If GUICtrlGetState($ctrl_DeleteFile) = $GUI_ENABLE And Not FileExists(@ScriptDir & "\Spamtext.data") Then GUICtrlSetState($ctrl_DeleteFile,$GUI_DISABLE)
WEnd

Func _Exit()
    Exit
EndFunc

Func _AutoItBot()
    ShellExecute("http://www.*************/")
EndFunc

Func _Options()
    GUISetState(@SW_SHOW,$hWnd_optSettings)

    If FileExists(@ScriptDir & "\Settings.ini") Then
        $sFenster = IniRead(@ScriptDir & "\Settings.ini","Am Anfang","Titel","")
        $iAnfangspause = IniRead(@ScriptDir & "\Settings.ini","Am Anfang","Anfangspause","")
        $sTaste_Ini = IniRead(@ScriptDir & "\Settings.ini","Taste f�r den Abschluss","Taste","Enter")

        If $iAnfangspause > 0 Then
            GUICtrlSetState($ctrl_AtTheBeginning,$GUI_CHECKED)
            GUICtrlSetData($ctrl_i_BeginningPause,$iAnfangspause)
            GUICtrlSetStyle($ctrl_i_BeginningPause,BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
            GUICtrlSetState($Updown3,$GUI_ENABLE)
        EndIf

        If $sTaste_Ini = "Leertaste" Then
            GUICtrlSetState($ctrl_Enter,$GUI_UNCHECKED)
            GUICtrlSetState($ctrl_Leertaste,$GUI_CHECKED)
        EndIf

        GUICtrlSetData($ctrl_s_Title,$sFenster)
    EndIf
EndFunc

Func _Options_Close()
    GUISetState(@SW_HIDE,$hWnd_optSettings)
EndFunc

Func _Save_Settings()
    Local $sTitle = GUICtrlRead($ctrl_s_Title)
    Local $i_AtBegPause = GUICtrlRead($ctrl_i_BeginningPause)
    If GUICtrlRead($ctrl_Enter) = $GUI_CHECKED Then
        Local $sTaste = "Enter"
    ElseIf GUICtrlRead($ctrl_Leertaste) = $GUI_CHECKED Then
        Local $sTaste = "Leertaste"
    ElseIf GUICtrlRead($ctrl_Nothing) = $GUI_CHECKED Then
        Local $sTaste = "Nichts"
    EndIf
    IniWrite(@ScriptDir & "\Settings.ini","Am Anfang","Titel",$sTitle)
    IniWrite(@ScriptDir & "\Settings.ini","Am Anfang","Anfangspause",$i_AtBegPause)
    IniWrite(@ScriptDir & "\Settings.ini","Taste f�r den Abschluss","Taste",$sTaste)
    _Options_Close()
EndFunc

Func _GetStringComboPausen()
    Local $sString = GUICtrlRead($ctrl_Pausen)
    If $sString = "Mit Pausen" Then
        GUICtrlSetStyle($ctrl_i_Sekunde,BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
        GUICtrlSetState($Updown1,$GUI_ENABLE)
    ElseIf $sString = "Ohne Pausen" Then
        GUICtrlSetStyle($ctrl_i_Sekunde,BitOR($ES_AUTOHSCROLL,$ES_NUMBER,$ES_READONLY))
        GUICtrlSetState($Updown1,$GUI_DISABLE)
    EndIf
EndFunc

Func _GetStringComboAnzahl()
    Local $sString = GUICtrlRead($ctrl_Anzahl)
    If $sString = "Bestimmte Anzahl" Then
        GUICtrlSetStyle($ctrl_i_Anzahl,BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
        GUICtrlSetState($Updown2,$GUI_ENABLE)
    ElseIf $sString = "Unendlich" Then
        GUICtrlSetStyle($ctrl_i_Anzahl,BitOR($ES_AUTOHSCROLL,$ES_READONLY,$ES_NUMBER))
        GUICtrlSetState($Updown2,$GUI_DISABLE)
    EndIf
EndFunc

Func _ReadCheckBoxAtTheBeg()
    Local $hdState = GUICtrlRead($ctrl_AtTheBeginning)
    If $hdState = $GUI_CHECKED Then
        GUICtrlSetStyle($ctrl_i_BeginningPause,BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
        GUICtrlSetState($Updown3,$GUI_ENABLE)
    ElseIf $hdState = $GUI_UNCHECKED Then
        GUICtrlSetStyle($ctrl_i_BeginningPause,BitOR($ES_AUTOHSCROLL,$ES_READONLY,$ES_NUMBER))
        GUICtrlSetState($Updown3,$GUI_DISABLE)
        GUICtrlSetData($ctrl_i_BeginningPause,"0")
    EndIf
EndFunc

Func _Start()
    $i_StartCheckVar = 1
    If GUICtrlRead($ctrl_s_Text) = "" Then
        MsgBox(16,"Fehler","Der Text beinhaltet keine Zeichen!")
        Return 0
    EndIf
    MsgBox(64,"Standartm��ige Hotkeys","Alt+s" & @TAB & @TAB & "Stoppt das Programm" & @CRLF & "Alt+e" & @TAB & @TAB & "Beendet das Programm" & @CRLF & "Alt+r" & @TAB & @TAB & "Startet das Programm" & @CRLF & @CRLF & "Sicherheitswarnung:" & @CRLF & "Bitte setze das Fokus an einem Eingabefeld, damit das Programm da auch reinschreibt!" & @CRLF & @CRLF & "Information: Solltet ihr den Spam explizit auf das Fenster konzentrieren, dann aktiviert dieses, weil bei machnen Fenstern kann " & @CRLF & "es sein, dass, der Spam nicht ankommt bzw. erstellt wird!")
    _EnableHotkeys()
    If GUICtrlRead($ctrl_AtTheBeginning) = $GUI_CHECKED Then
        TrayTip("Anfangspause","Pausiert f�r " & GUICtrlRead($ctrl_i_BeginningPause) & " Sekunden!" & @CRLF & "Bitte setze das Fokus an einem Eingabefeld!",2)
        Sleep(GUICtrlRead($ctrl_i_BeginningPause) * 1000)
    EndIf
    If GUICtrlRead($ctrl_Anzahl) = "Unendlich" Then
        While 1
            If $i_StartCheckVar = 1 Then
                If WinExists(GUICtrlRead($ctrl_s_Title)) Then
                    ControlSend(GUICtrlRead($ctrl_s_Title),"","",GUICtrlRead($ctrl_s_Text),1)
                    If GUICtrlRead($ctrl_Enter) = $GUI_CHECKED Then
                        ControlSend(GUICtrlRead($ctrl_s_Title),"","","{enter}")
                    ElseIf GUICtrlRead($ctrl_Leertaste) = $GUI_CHECKED Then
                        ControlSend(GUICtrlRead($ctrl_s_Title),"",""," ")
                    EndIf
                    If GUICtrlRead($ctrl_Pausen) = "Mit Pausen" Then Sleep(GUICtrlRead($ctrl_i_Sekunde) * 1000)
                Else
                    Send(GUICtrlRead($ctrl_s_Text),1)
                    If GUICtrlRead($ctrl_Enter) = $GUI_CHECKED Then
                        Send("{enter}")
                    ElseIf GUICtrlRead($ctrl_Leertaste) = $GUI_CHECKED Then
                        Send(" ")
                    EndIf
                    If GUICtrlRead($ctrl_Pausen) = "Mit Pausen" Then Sleep(GUICtrlRead($ctrl_i_Sekunde) * 1000)
                EndIf
            Else
                MsgBox(16,"Fehler","Bitte starten sie mit dem Start Button noch einmal!")
                Return 0
            EndIf
        WEnd
    ElseIf GUICtrlRead($ctrl_Anzahl) = "Bestimmte Anzahl" Then
        If GUICtrlRead($ctrl_i_Anzahl) <= 0 Then
            MsgBox(16,"Fehler","Die Anzahl sollte gr��er als 1 sein!")
            Return 0
        EndIf
        For $i = 1 To GUICtrlRead($ctrl_i_Anzahl) Step +1
            If $i_StartCheckVar = 1 Then
                If WinExists(GUICtrlRead($ctrl_s_Title)) Then
                    ControlSend(GUICtrlRead($ctrl_s_Title),"","",GUICtrlRead($ctrl_s_Text),1)
                    If GUICtrlRead($ctrl_Enter) = $GUI_CHECKED Then
                        ControlSend(GUICtrlRead($ctrl_s_Title),"","","{enter}")
                    ElseIf GUICtrlRead($ctrl_Leertaste) = $GUI_CHECKED Then
                        ControlSend(GUICtrlRead($ctrl_s_Title),"",""," ")
                    EndIf
                    If GUICtrlRead($ctrl_Pausen) = "Mit Pausen" Then Sleep(GUICtrlRead($ctrl_i_Sekunde) * 1000)
                Else
                    Send(GUICtrlRead($ctrl_s_Text),1)
                    If GUICtrlRead($ctrl_Enter) = $GUI_CHECKED Then
                        Send("{enter}")
                    ElseIf GUICtrlRead($ctrl_Leertaste) = $GUI_CHECKED Then
                        Send(" ")
                    EndIf
                    If GUICtrlRead($ctrl_Pausen) = "Mit Pausen" Then Sleep(GUICtrlRead($ctrl_i_Sekunde) * 1000)
                EndIf
            Else
                MsgBox(16,"Fehler","Bitte starten sie mit dem Start Button noch einmal!")
                Return 0
            EndIf
        Next
    EndIf
    _DisableHotkeys()
EndFunc

Func _EnableHotkeys()
    HotKeySet("!s","_Stopp")
    HotKeySet("!e","_Exit")
    HotKeySet("!r","_Start")
EndFunc

Func _Stopp()
    $i_StartCheckVar = 0
EndFunc

Func _DisableHotkeys()
    HotKeySet("!s")
    HotKeySet("!e")
    HotKeySet("!r")
EndFunc

Func _Delete()
    GUICtrlSetData($ctrl_s_Text,"")
EndFunc

Func _SaveSpamText()
    If Not GUICtrlRead($ctrl_s_Text) <> "" Then Return 0
    If FileExists(@ScriptDir & "\Spamtext.data") Then
        $sRead_File = FileRead(@ScriptDir & "\Spamtext.data")
        FileDelete(@ScriptDir & "\Spamtext.data")
        FileWrite(@ScriptDir & "\Spamtext.data",$sRead_File & GUICtrlRead($ctrl_s_Text) & "|")
    Else
        FileWrite(@ScriptDir & "\Spamtext.data",GUICtrlRead($ctrl_s_Text) & "|")
    EndIf
EndFunc

Func Spams_Close()
    GUISetState(@SW_HIDE,$hWnd_ShowSpams)
EndFunc

Func _LoadSpamText()
    Local $sRead = FileRead(@ScriptDir & "\Spamtext.data")
    $aSplit = StringSplit($sRead,"|")
    GUISwitch($hWnd_ShowSpams)
    GUICtrlDelete($ctrl_list_Spams)
    $ctrl_list_Spams = GUICtrlCreateList("", 8, 8, 609, 396)
    GUICtrlSetData($ctrl_list_Spams,$sRead)
    GUISetState(@SW_SHOW,$hWnd_ShowSpams)
EndFunc

Func _WriteSelectSpamInEdit()
    Local $sRead_Spam = GUICtrlRead($ctrl_list_Spams)
    If Not $sRead_Spam <> "" Then Return 0
    GUICtrlSetData($ctrl_s_Text,$sRead_Spam)
    GUISetState(@SW_HIDE,$hWnd_ShowSpams)
EndFunc

Func _DeleteData()
    If Not FileExists(@ScriptDir & "\Spamtext.data") Then Return 0
    FileDelete(@ScriptDir & "\Spamtext.data")
EndFunc

und hier VirusTotal: [Only registered and activated users can see links. Click Here To Register...]

06/11/2011 16:20 Reeek#3

Quote:

while 1
wend;

der Teil kann raus

Quote:

func Pause()
sleep(5000)
EndFunc

W�rde lieber solange Pausieren, bis der Hotkey erneut gedr�ckt wird

PHP Code:


			
Func _Pause()
While 1
If _IsPressed([color=red]hex-code der Taste[/color]) Then
exitloop(2)
sleep(10)
endif
wend

sonst ganz gute Idee f�r ein erstes Programm

06/12/2011 23:23 matrix1997#4

#push

06/13/2011 09:59 Ludder231#5

Ich hab mal etwas l�ngerer Zeit auch einen Spammer gebaut, vllt willst du dir einige Ideen oderso abgucken. Wei� aber nicht ob noch alles funktioniert :D, wie gesagt ist schon etwas �lter...:

Spoiler

PHP Code:


			
#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=d:\neuer ordner\koda_1.7.3.0\forms\spammer.kxf

$Form1_1 = GUICreate(" |:=-Spammer-=:|", 211, 374, 190, 121)

$Label1 = GUICtrlCreateLabel("Text to Spam:", 8, 8, 86, 20)

GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")

$Input1 = GUICtrlCreateInput(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Spam", ""), 8, 32, 193, 21)

$Label2 = GUICtrlCreateLabel("How often to Spam:", 8, 64, 119, 20)

GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")

$Checkbox8 = GUICtrlCreateCheckbox("Checkbox8", 24, 136, 1, 9)

$Button1 = GUICtrlCreateButton("Activate", 56, 304, 97, 25)

GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")

$Label5 = GUICtrlCreateLabel("Wait between the last spam:", 8, 120, 170, 20)

GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")

$Input2 = GUICtrlCreateInput(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Time", ""), 8, 144, 41, 21)

$Label6 = GUICtrlCreateLabel("Milliseconds", 56, 144, 79, 20)

GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")

$Input3 = GUICtrlCreateInput(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Howmuch", ""), 8, 88, 41, 21)

$Label8 = GUICtrlCreateLabel("Made by Ludder231", 8, 344, 123, 20)

GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")

GUICtrlSetColor(-1, 0x000080)

$Input4 = GUICtrlCreateInput(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Window", ""), 8, 200, 121, 21)

$Label4 = GUICtrlCreateLabel("Wich Window:", 8, 176, 74, 17)

$Button2 = GUICtrlCreateButton("Hilfe", 136, 344, 65, 17)

$Label3 = GUICtrlCreateLabel("Send key delay:", 8, 232, 80, 17)

$Input5 = GUICtrlCreateInput(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Delay", ""), 8, 272, 121, 21)

$Label7 = GUICtrlCreateLabel("(Default is 5)", 8, 248, 63, 17)

$Checkbox1 = GUICtrlCreateCheckbox("Random", 136, 56, 65, 17)

$Checkbox2 = GUICtrlCreateCheckbox("Verstecken", 136, 272, 73, 17)



GUISetState(@SW_SHOW)







 HotKeySet("{F1}", "_Start")

 HotKeySet("{F3}", "_stop")

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

$random1=Random("1" , "90", 15)

    

While 1

    $nMsg = GUIGetMsg()

    Switch $nMsg

        Case $GUI_EVENT_CLOSE

            Exit

        case $Button1

            GUISetState(@sw_hide)

            iniWrite(@DesktopCommonDir&"\Spammer.ini", "Config", "Spam", GUICtrlRead($Input1))

            iniWrite(@DesktopCommonDir&"\Spammer.ini", "Config", "Time", GUICtrlRead($Input2))

            iniWrite(@DesktopCommonDir&"\Spammer.ini", "Config", "Howmuch", GUICtrlRead($Input3))

            iniWrite(@DesktopCommonDir&"\Spammer.ini", "Config", "Window", GUICtrlRead($Input4))

            iniWrite(@DesktopCommonDir&"\Spammer.ini", "Config", "Delay", GUICtrlRead($Input5))

            if not FileExists(@DesktopCommonDir&"\Spammer.ini") Then

                msgbox(16, "Error", "Spammer.ini don't exist...")

                endif

            _tooltip()

        case $Button2

            _help()

        case $CheckBox1

            GUICtrlSetState($Input1, $GUI_DISABLE)

        

        EndSwitch



WEnd



func _tooltip()

    ToolTip("Press F1 to Start spamming" & @CRLF & _

            "Press F3 to stop the bot" & @CRLF & _

            "Press F5 to end the bot", 0, 0, "Help", 1)

        EndFunc

        

Func _Start()

    $zeichen = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"

$string = StringSplit ($zeichen,"")

$anzahl_der_zeichen = 11

$zeichen2 = ""

    for $i=1 to GUICtrlRead($Input3)

    if GUICtrlRead($CheckBox1, $GUI_CHECKED) then

         GUICtrlSetData($input1, $string)

         GUICtrlSetState($Input1, $GUI_DISABLE)

        

         

        ControlSend(GUICtrlRead($Input4), "", "", $zeichen2)

    else

    $Delay=opt("SendKeyDelay", GUICtrlRead($Input5))

    WinWaitActive(Iniread(@DesktopCommonDir&"\Spammer.ini", "Config", "Window", GUICtrlRead($Input4)))

    winsetstate(GUICtrlRead($Input4), "", @SW_LOCK)

    ControlSend(GUICtrlRead($Input4), "", "", GUICtrlRead($Input1))

    controlsend(GUICtrlRead($Input4), "", "","{enter}")

    sleep(Iniread(@DesktopCommonDir&"\Spammer.ini", "Config", "Time", GUICtrlRead($Input2)))

        endif



    

next



GUISetState(@sw_show, " |:=-Spammer-=:|")

winsetstate(GUICtrlRead($Input4), "", @SW_UNLOCK)

MsgBox(0, "Ready", "Finished spamming...", 2) 



endFunc  





func _stop()

    while 1

        GUICtrlSetState($Input2,$GUI_ENABLE)

        winsetstate("", "", @SW_show)

        winsetstate(GUICtrlRead($Input4), "", @SW_show)

        GUISetState(@sw_show, " |:=-Spammer-=:|")

        sleep(500)

        wend

endfunc

        

func _shutoff()

    exit

endfunc









func _help()

    

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=d:\neuer ordner\koda_1.7.3.0\forms\spammerhilfe.kxf

$Form1_1 = GUICreate("Form1", 278, 167, 192, 124)

$Label1 = GUICtrlCreateLabel("F1 = Start", 8, 8, 50, 17)

GUICtrlSetColor(-1, 0xFF00FF)

$Label2 = GUICtrlCreateLabel("F2 = Pause", 8, 32, 58, 17)

GUICtrlSetColor(-1, 0x0054E3)

$Label3 = GUICtrlCreateLabel("F5 = Exit", 8, 56, 45, 17)

GUICtrlSetColor(-1, 0x008000)

$Label4 = GUICtrlCreateLabel("Please just type a real Window name", 8, 80, 259, 20)

GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")

$Label5 = GUICtrlCreateLabel("in the Inputbox under the", 8, 104, 171, 20)

GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")

$Label6 = GUICtrlCreateLabel("'Which Window'", 8, 128, 112, 20)

GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")

$Label7 = GUICtrlCreateLabel("", 8, 160, 4, 4)

GUISetState(@SW_SHOW)

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



While 1

    $nMsg = GUIGetMsg()

    Switch $nMsg

        Case $GUI_EVENT_CLOSE

            exit



    EndSwitch

WEnd

EndFunc

06/13/2011 11:29 BlackHybrid#6

Ludder ich w�rde die GUI schon ganz oben erstellen und unten nur noch mit @SW_SHOW arbeiten, da die GUI sonst jedes mal neu erstellt wird.

06/14/2011 10:24 Ludder231#7

Stimmt, wie gesagt er ist alt und da hab ich auf sowas noch nicht geachtet :)

06/14/2011 17:53 | Moep |#8

Quote:

Originally Posted by Reeek

der Teil kann raus

W�rde lieber solange Pausieren, bis der Hotkey erneut gedr�ckt wird

PHP Code:

Func _Pause() While 1 If _IsPressed([color=red]hex-code der Taste[/color]) Then exitloop(2) sleep(10) endif wend

sonst ganz gute Idee f�r ein erstes Programm

...warum so kompliziert, in der au3 hilfe gibts doch dazu schon ein gutes Beispiel.

Code:

Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script ist pausiert',0,0)
    WEnd
    ToolTip("")
EndFunc

06/14/2011 23:16 Reeek#9

naja.. nicht viel k�rzer, aber vom System her besser, das stimmt... gibt in der Welt der Programmierer immer viele Wege nach Rom ;D