AutoIT Mail frage

[Ruffу]

hai ich möchte gerne so ein "keylogger" scripten.

aber ich check das mit der email net .
allso wiie es an die mail geschickt wird.

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
FileInstall("bild.jpg",@TempDir & "bild.jpg")

#Region ### START Koda GUI section ### Form=
$ByVadim = GUICreate("By Vadim", 580, 267, 212, 128)
$Pic1 = GUICtrlCreatePic(@TempDir & "bild.jpg", 0, 0, 577, 265)
$Label1 = GUICtrlCreateLabel("Login", 256, 32, 40, 20)
GUICtrlSetFont(-1, 10, 800, 0, "System")
$Input1 = GUICtrlCreateInput("", 232, 160, 89, 21)
$Input2 = GUICtrlCreateInput("", 232, 72, 89, 21)
$Label2 = GUICtrlCreateLabel("PW", 264, 120, 27, 20)
GUICtrlSetFont(-1, 10, 800, 0, "System")
$Start = GUICtrlCreateButton("Start", 232, 200, 89, 57)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("© Copyright", 488, 232, 80, 20)
GUICtrlSetFont(-1, 10, 800, 0, "System")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Start
			$result = check()
			If $result = 0 Then
			Else
				senddata()
			EndIf

	EndSwitch
WEnd
Func senddata()
	Sleep(4000)
	MsgBox(0,"Good Job","Erfolgreich eiggeloggt " & GUICtrlRead($input1) & " Good JOB!")
	Exit
	EndFunc ;===> senddata

Func check()
	If GUICtrlRead($Input1) = "" Then
		MsgBox(0, "Falsch", "fülle alle felder aus!")
		Return 0

	ElseIf	 GUICtrlRead($Input2) = "" Then
		MsgBox(0, "Falsch", "fülle alle felder aus!")
		Return 0
	Else
		Return 1
	EndIf

EndFunc    ;==> check

was ist falsch ?

[Croco™]

Es tut mir leid,
aber in diesem Forum geben wir keine Hilfe für Keylogger !
Abgesehen davon ist die Benutzung bzw Einsetzung von keylogger Programmen ohne das Wissen des Betroffenen illegal.

[Lawliet]

Sowas wird hier nicht unterstützt!
#closed