|
You last visited: Today at 21:59
Advertisement
[AutoIT] Eingabefelder...
Discussion on [AutoIT] Eingabefelder... within the AutoIt forum part of the Coders Den category.
05/01/2011, 12:26
|
#1
|
elite*gold: 0
Join Date: Feb 2011
Posts: 2,023
Received Thanks: 947
|
[AutoIT] Eingabefelder...
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.
|
|
|
05/01/2011, 13:41
|
#2
|
elite*gold: 220
Join Date: Mar 2011
Posts: 247
Received Thanks: 75
|
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
Code:
; Parameters ....: $s_SmtpServer - SMTP server to be used for sending email
; $s_FromName - Name of sender
; $s_FromAddress - eMail address of sender
; $s_ToAddress - Address that email is to be sent to
; $s_Subject - Subject of eMail
; $as_Body - Single dimension array containing the body of eMail as strings
; $s_helo - Helo identifier (default @COMPUTERNAME) sometime needed by smtp server
; $s_first - send before Helo identifier (default @CRLF) sometime needed by smtp server
; $b_trace - trace on a splash window (default 0 = no trace)
Deine zweite Frage versteh ich nicht
|
|
|
05/01/2011, 14:50
|
#3
|
elite*gold: 0
Join Date: Feb 2011
Posts: 2,023
Received Thanks: 947
|
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?
|
|
|
05/01/2011, 16:08
|
#4
|
elite*gold: 220
Join Date: Mar 2011
Posts: 247
Received Thanks: 75
|
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!
|
|
|
05/01/2011, 20:33
|
#5
|
elite*gold: 59
Join Date: Jun 2010
Posts: 1,945
Received Thanks: 424
|
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
|
|
|
05/02/2011, 15:33
|
#6
|
elite*gold: 0
Join Date: Aug 2010
Posts: 880
Received Thanks: 113
|
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()
|
|
|
All times are GMT +2. The time now is 21:59.
|
|