[AutoIT] Eingabefelder...

.Plazmaa · 05/01/2011, 12:26

Hey,

Ich habe vor ein kleines Tool zu bauen,
ich bekomme auch alles soweit hin.

Aber jetzt habe ich vor das man wenn man z.B.
"Test" in ein Eingabefeld/Labelfeld eingibt dies an z.B.
meine E-Mail gesendet wird.
Möglich?

---------------------------------------------------

Als 2. habe ich vor mir einen kleinen Spambot zu bauen.

Wie bekomme ich das hin wenn ich z.B. "Test" in ein Eingabefeld/labelfeld
eingebe dies dann auch beim drücken eines Buttons anfängt zu Spamen?

-----------------------------------------------------

Ich habe in dem Bereich mit Eingabefeldern noch nichts gemacht,
deshalb frage ich hier mal nach den Codes dafür.

--> SuFu und Google hat nichts sinnvolles ausgespuckt.

Danke im vorraus.

beatd0wn[] · 05/01/2011, 13:41

Hey,
um eine email zu versenden musst du die funktion _INetSmtpMail benutzen. Die Syntax lautet so:

Code:

_INetSmtpMail($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_helo = "", $s_first=" ", $b_trace = 0)

Hier sind die einzelnen parameter eklärt

Spoiler

Deine zweite Frage versteh ich nicht

.Plazmaa · 05/01/2011, 14:50

Zu 1.
Wo muss ich denn meine E-Mail eintragen?
Ich verstehe das nicht so ganz.

Zu 2.

Ich will einfach das man in ein Eingabefeld z.B. "Hallo" eingibt und man dann
auf ein Start Button klickt und dann das wort was man eingegeben hat( Hallo)
gespamt wird,

also in dem sinne:
Hallo
Hallo
Hallo
Hallo
Hallo
Hallo

---
und immer so weiter.

Aber wenn ich die Variante 1 hinbekomme ist 2 egal.

Wo muss ich denn das ganze bei 1 eintragen?

beatd0wn[] · 05/01/2011, 16:08

Hier ist ein kleines Beispiel, was das ganzen dann von selbst erklären sollte.

Code:

$s_SmtpServer = "smtp.googlemail.com"
$s_FromName = ".Plazma"
$s_FromAddress = "."
$s_ToAddress = "Empfä"
$s_Subject =  "Betreff"
$as_Body = "Inhalt"
_INetSmtpMail($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject , $as_Body)

vergiss nicht "inet.au3" in den source zu importieren!

Furkan · 05/01/2011, 20:33

zu deinem 2. Welchen Abstand soll es haben?
Ich nehme mal an keinen.

Code:

$1 = InputBox ("Spambot","Bitte gebe das Wort/den Satz ein den du spammen willst!")
MsgBox (0,"Beginn","Der Spambot beginnt nun!")
While 1
	Send ($1)
	Send ("{ENTER}")
	Sleep(0); Falls du z.B. willst das er im 1 Sekundenabstand (1000 millisekunden) spammt dann gebe statt 0, 1000 ein!
WEnd

Ludder231 · 05/02/2011, 15:33

Hi, zu dem Spambot hier mal ne kleine anregung kanns entweder alles benutzen oder als hilfe benutzen:

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)

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

$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)


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", "Delay", GUICtrlRead($Input5))
            if not FileExists(@DesktopCommonDir&"\Spammer.ini") Then
                msgbox(16, "Error", "Spammer.ini don't exist...")
                endif
            _tooltip()
    
        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()
    for $i=1 to GUICtrlRead($Input3)
    $Delay=opt("SendKeyDelay", GUICtrlRead($Input5))
    Send(Iniread(@DesktopCommonDir&"\Spammer.ini", "Config", "Spam", GUICtrlRead($Input1)))
    Send("{enter}")
    sleep(Iniread(@DesktopCommonDir&"\Spammer.ini", "Config", "Time", GUICtrlRead($Input2)))

next

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

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

endFunc  


func _stop()
    while 1
        GUICtrlSetState($Input2,$GUI_ENABLE)
        winsetstate("", "", @SW_show)
        
        GUISetState(@sw_show, " |:=-Spammer-=:|")
        sleep(500)
        wend
endfunc
        
func _shutoff()
    exit
endfunc

P.S: Ich weiß nicht ob der funktioniert, is bisschen älter und halt von mir (ich bin anfänger

)
Wenn du die ini benutzen willst muss du halt nen button mit iniread noch machen, oder halt nur guictrlread()