Autoit Dateien Senden

[Shyreon]

Hey,
habe grade eben mein Login Skript mit AutoIt fertig bekommen und jetzt habe ich aber eine Frage wenn ich einlogge kommen die Daten nur auf meinem Desktop,doch wie mache ich es das sie an meine Email verschickt werden?
Skript sieht im Moment so aus:

 Spoiler

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

#Region ### START Koda GUI section ### Form=C:\Users\Michaela\Desktop\REGI_GUI\REGI_GUI.k xf
$Form1 = GUICreate("Registration | Login", 434, 307, -1, -1)
$Tab1 = GUICtrlCreateTab(8, 8, 417, 289)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Registration")
$Label2 = GUICtrlCreateLabel("Registration", 24, 40, 175, 42)
GUICtrlSetFont(-1, 25, 400, 0, "Arial")
$Label3 = GUICtrlCreateLabel("INFO: Falls du versuchst einen zweiten Account zu erstellen, ", 16, 240, 391, 19)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
$Label4 = GUICtrlCreateLabel(" sowird der erste gelöscht.", 16, 264, 396, 19)
GUICtrlSetFont(-1, 9, 400, 0, "arial")
$Label7 = GUICtrlCreateLabel("Gewünschter Benutzername:", 32, 128, 147, 18)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
$Label8 = GUICtrlCreateLabel("Gewünschtes Passwort :", 32, 160, 153, 18)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
$Input1 = GUICtrlCreateInput("", 192, 128, 121, 22)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
$Input2 = GUICtrlCreateInput("", 192, 160, 121, 22)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
$Button1 = GUICtrlCreateButton("Jetzt registrieren !", 192, 192, 123, 25, 0)
GUICtrlSetFont(-1, 9, 400, 0, "arial")
$TabSheet2 = GUICtrlCreateTabItem("Login")
$Label1 = GUICtrlCreateLabel("Login", 24, 40, 82, 42)
GUICtrlSetFont(-1, 25, 400, 0, "Arial")
$Label5 = GUICtrlCreateLabel("INFO: Falls du deine Accountdaten vergssen hast,", 16, 240, 283, 19)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
$Label6 = GUICtrlCreateLabel("kannst du dir einfach einen neuen erstellen.", 16, 264, 244, 19)
GUICtrlSetFont(-1, 9, 400, 0, "arial")
$Label9 = GUICtrlCreateLabel("Benutzername:", 32, 128, 77, 18)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
$Label10 = GUICtrlCreateLabel(" Passwort :", 24, 160, 86, 17)
$Input3 = GUICtrlCreateInput("", 120, 128, 121, 22)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
$Input4 = GUICtrlCreateInput("", 120, 160, 121, 22)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
$Button2 = GUICtrlCreateButton("Jetzt einloggen !", 120, 192, 123, 25, 0)
GUICtrlSetFont(-1, 9, 400, 0, "arial")
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$reader01 = GUICtrlRead ( $input1 )
$reader02 = GUICtrlRead ( $input2 )
FileDelete ("no_func_01.loggui" )
FileDelete ("no_func_02.loggui" )
FileWrite ( "no_func_01.loggui" , $reader01 )
FileWrite ( "no_func_02.loggui" , $reader02 )
MsgBox (0, "INFORMATION" , "Du hast deinen Accout erfolgreich erstellt ! Du kannst dich nun beim Login einloggen . " )
Case $Button2
$reader03 = GUICtrlRead ( $input3 )
$reader04 = GUICtrlRead ( $input4 )
$reader05 = FileRead ( "no_func_01.loggui" )
$reader06 = FileRead ( "no_func_02.loggui" )
If $reader03 = $reader05 And $reader04 = $reader06 Then
MsgBox (0, "INFO" , "Sie haben das richtige Passwort und den richtigen Benutzernamen eingegeben.")
Else
MsgBox (0, "INFO" , "Sie haben das falsche Passwort / den falschen Benutzernamen eingegeben. Versuchen sie sich erneut einzuloggen oder einen neuen Account zu erstellen.")
EndIf
EndSwitch
WEnd

Ich hoffe ihr könnt mir helfen gibt THX

[SmackJew]

[Shyreon]

Was? xD

[ZeraPain]

Also erstmal würde ich deinen code etwas optimieren und verständlicher machen,
ungefähr so:

#include <string.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>

Global $config = @ScriptDir & "\config.ini"
Global $crypt = "@[]²}!!%§"

$Form1 = GUICreate("Registration | Login", 434, 307, -1, -1)
GUICtrlCreateTab(8, 8, 417, 289)

#Region Tab1
GUICtrlCreateTabItem("Registration")
GUICtrlCreateLabel("Registration", 24, 40, 175, 42)
GUICtrlSetFont(-1, 25, 400, 0, "Arial")
GUICtrlCreateLabel("INFO: Falls du versuchst einen zweiten Account zu erstellen, " & @CRLF & _
					"so wird der erste gelöscht.", 16, 240, 391, 40)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
GUICtrlCreateLabel("Gewünschter Benutzername:", 32, 128, 147, 18)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
GUICtrlCreateLabel("Gewünschtes Passwort :", 32, 160, 153, 18)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
$REG_ID = GUICtrlCreateInput("", 192, 128, 121, 22)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
$REG_PW = GUICtrlCreateInput("", 192, 160, 121, 22, $ES_PASSWORD)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
$REG_Button = GUICtrlCreateButton("Jetzt registrieren !", 192, 192, 123, 25, 0)
GUICtrlSetFont(-1, 9, 400, 0, "arial")
#EndRegion

#Region Tab2
GUICtrlCreateTabItem("Login")
GUICtrlCreateLabel("Login", 24, 40, 82, 42)
GUICtrlSetFont(-1, 25, 400, 0, "Arial")
GUICtrlCreateLabel("INFO: Falls du deine Accountdaten vergssen hast," & @CRLF & _
					"kannst du dir einfach einen neuen erstellen.", 16, 240, 283, 40)
GUICtrlSetFont(-1, 9, 400, 0, "arial")
GUICtrlCreateLabel("Benutzername:", 32, 128, 77, 18)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
GUICtrlCreateLabel(" Passwort :", 24, 160, 86, 17)
$LOG_ID = GUICtrlCreateInput("", 120, 128, 121, 22)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
$LOG_PW = GUICtrlCreateInput("", 120, 160, 121, 22, $ES_PASSWORD)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
$LOG_Button = GUICtrlCreateButton("Jetzt einloggen !", 120, 192, 123, 25, 0)
GUICtrlSetFont(-1, 9, 400, 0, "arial")
#EndRegion

GUISetState()

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $REG_Button
			IniWrite($config, GUICtrlRead($REG_ID), "password", _StringEncrypt(1, GUICtrlRead($REG_PW), $crypt))
			MsgBox(0, "INFORMATION", "Du hast deinen Accout erfolgreich erstellt ! Du kannst dich nun beim Login einloggen . ")
		Case $LOG_Button
			$names = IniReadSectionNames($config)
			For $i = 1 To $names[0]
				If $names[$i] = GUICtrlRead($LOG_ID) Then
					If GUICtrlRead($LOG_PW) = _StringEncrypt(0, IniRead($config, $names[$i], "password", ""), $crypt) Then
						MsgBox(0, "INFO", "Sie haben das richtige Passwort und den richtigen Benutzernamen eingegeben.")
					Else
						MsgBox(0, "INFO", "Sie haben das falsche Passwort / den falschen Benutzernamen eingegeben. Versuchen sie sich erneut einzuloggen oder einen neuen Account zu erstellen.")
					EndIf
				EndIf
			Next
	EndSwitch
WEnd

damit kannst du jetzt auch mehrere benutzer erstellen lassen.

E-mail versenden funktioniert am besten mit smtp.
Das funktioniert dann ungefähr so:


(btw: warum die daten an email senden?)

[amnesi]

OMG diese kiddys.... warum willst du das die Daten an eine E-mail gesendet werden?
hört sich i. wie nach Passwort Klau an....

[Shyreon]

An Email weil ich vlt nen Server aufmachen will und das Skript umbaue und dann über Email Accounts aktiviere?

[ZeraPain]

Originally Posted by lalala912

An Email weil ich vlt nen Server aufmachen will und das Skript umbaue und dann über Email Accounts aktiviere?

das könntest du dann aber direkt durch ein php script lösen, sodass die daten direkt in die die datenbank geschrieben werden (würde sowohl mit tool als auch über eine webseite funktionieren)

dann könnten sie gleich automatisch aktiviert werden.

[amnesi]

achso sry wusste ich ned xD
erst fragen dann rumjammern... hab ich vergessen xD