| Retired Mod |
 |
 |
Joined: Tue Jul 30, 2002 6:41 am
Location: 127.0.0.1
|
Fugly code, but if it works, whatever:
CreateRandomAccount.exe
#Region
#AutoIt3Wrapper_Icon=..\..\D2 Ai\D2Ai.ico
#EndRegion
$D2PATH = IniRead("Config.ini", "Account", "D2Path", "Error when reading INI")
$D2FILE = IniRead("Config.ini", "Account", "D2File", "Game.exe")
$D2PARAMS = IniRead("Config.ini", "Account", "D2Params", "Error when reading INI")
$CHARLOCATION = IniWrite("config.ini", "Account", "CharLocation", "1")
$USERNAMELENGTH = Random(10, 15)
$PASSLENGTH = Random(10, 15)
Global $EMAILSAVED
Global $PASSWORD
Global $RETURNED
$CLICKDELAY = IniRead("CreateRandomAccountConfig.ini", "Delays", "ClickDelay", 650)
$LOGINDELAY = IniRead("CreateRandomAccountConfig.ini", "Delays", "LoginWaitDelay", 3000)
$USERNAMESAVED = CREATERANDOM($USERNAMELENGTH)
IniWrite("Config.ini", "Account", "Username", $USERNAMESAVED)
$SAVEDPASSWORD = CREATERANDOM($PASSLENGTH)
IniWrite("Config.ini", "Account", "Password", $SAVEDPASSWORD)
RUNDIABLO()
Sleep($LOGINDELAY)
MouseClick("Left", 413, 586)
Sleep($CLICKDELAY)
MouseClick("Left", 595, 526)
Sleep($CLICKDELAY)
MouseClick("Left", 408, 370)
Send("{ctrl}")
Sleep($CLICKDELAY)
Send("^a")
Sleep($CLICKDELAY)
Send("{BackSpace}")
Sleep($CLICKDELAY)
Send($USERNAMESAVED)
Sleep($CLICKDELAY)
Send("{TAB}")
Sleep($CLICKDELAY)
Send($SAVEDPASSWORD)
Send("{TAB}")
Sleep($CLICKDELAY)
Send($SAVEDPASSWORD)
Sleep($CLICKDELAY)
MouseClick("Left", 703, 580)
Sleep($CLICKDELAY)
MouseClick("Left", 597, 524)
Send($SAVEDPASSWORD & "@" & "gmail.com")
Sleep($CLICKDELAY)
Send("{TAB}")
Sleep($CLICKDELAY)
Send($SAVEDPASSWORD & "@" & "gmail.com")
Sleep($CLICKDELAY)
MouseClick("Left", 405, 543)
Sleep($CLICKDELAY)
MouseClick("Left", 403, 302)
Sleep($CLICKDELAY)
Send($SAVEDPASSWORD)
Sleep($CLICKDELAY)
Send("{Enter}")
Sleep($CLICKDELAY)
ProcessClose("Game.exe")
MsgBox(0, "Make-Game-Account by AI-Man. D2Ai.org", "the account name of: " & $USERNAMESAVED & " Has been saved" & @CRLF & "The password of: " & $SAVEDPASSWORD & " Have been saved." & @CRLF & "Both username and password have been saved to config.ini")
Func CREATERANDOM($LENGTH)
For $I = 0 To $LENGTH
$CHR = Chr(Random(Asc("A"), Asc("Z"), 1))
$RETURNED &= $CHR
Next
Return $RETURNED
EndFunc
Func RUNDIABLO()
If StringRight($D2PATH, 1) = "\" Then
$D2FULLPATH = $D2PATH & $D2FILE & " -w -ns -skiptobnet " & $D2PARAMS
Else
$D2FULLPATH = $D2PATH & "\" & $D2FILE & " -w -ns -skiptobnet " & $D2PARAMS
EndIf
Sleep(2500)
Run($D2FULLPATH, $D2PATH)
For $X1 = 0 To 29
If WinExists("Diablo II") = 1 Then
ExitLoop
EndIf
Sleep(1000)
Next
Sleep(2500)
WinMove("Diablo II", "", 0, 0)
WinActivate("Diablo II")
EndFunc
D2AISpammer.exe #Region
#AutoIt3Wrapper_Icon=..\..\D2 Ai\D2Ai.ico
#EndRegion
HotKeySet("{Home}", "TogglePause")
HotKeySet("{End}", "Terminate")
Global $PAUSED
$SPAMCOUNTER = 0
$GAMECOUNTER = 0
$MSG1 = IniRead("config.ini", "Spam", "MSG1", "Not Setup Yet")
$MSG2 = IniRead("config.ini", "Spam", "MSG2", "Not Setup Yet")
$MSG3 = IniRead("config.ini", "Spam", "MSG3", "Not Setup Yet")
$MSG4 = IniRead("config.ini", "Spam", "MSG4", "Not Setup Yet")
$LOBBYDELAY = IniRead("config.ini", "Spam", "LobbyDelay", "Not Setup Yet")
$GAMEJOIN = IniRead("config.ini", "Spam", "GameJoinDelay", "Not Setup Yet")
$KEYSENDDELAY = IniRead("config.ini", "Spam", "KeySendDelay", "Not Setup Yet")
$USERNAME = IniRead("config.ini", "Account", "Username", "Not Setup Yet")
$PASSWORD = IniRead("config.ini", "Account", "Password", "Not Setup Yet")
$CHARLOCATION = IniRead("config.ini", "Account", "CharLocation", "Not Setup Yet")
$D2PATH = IniRead("Config.ini", "Account", "D2Path", "Error when reading INI")
$D2FILE = IniRead("Config.ini", "Account", "D2File", "Game.exe")
$D2PARAMS = IniRead("Config.ini", "Account", "D2Params", "Error when reading INI")
RUNDIABLO()
While 1
WinActivate("Diablo II")
WinMove("Diablo II", "", 0, 0)
STATS()
Sleep(2500)
MouseMove(716, 493)
MouseDown("left")
MouseUp("left")
Sleep(2000)
MouseMove(478, 259)
MouseDown("left")
MouseUp("left")
Sleep($KEYSENDDELAY)
Sleep(250)
MouseMove(692, 449)
MouseDown("left")
MouseUp("left")
Sleep($GAMEJOIN)
$GAMECOUNTER = $GAMECOUNTER + 1
STATS()
Send("{ENTER}")
Sleep($KEYSENDDELAY)
Send($MSG1)
Sleep($KEYSENDDELAY)
Send("{ENTER}")
Sleep($KEYSENDDELAY)
Send("{ENTER}")
Sleep($KEYSENDDELAY)
Send($MSG2)
Sleep($KEYSENDDELAY)
Send("{ENTER}")
Sleep($KEYSENDDELAY)
Send("{ENTER}")
Sleep($KEYSENDDELAY)
Send($MSG3)
Sleep($KEYSENDDELAY)
Send("{ENTER}")
Sleep($KEYSENDDELAY)
Send("{ENTER}")
Sleep($KEYSENDDELAY)
Send($MSG4)
Sleep($KEYSENDDELAY)
Send("{ENTER}")
Sleep($KEYSENDDELAY)
Send("{ESC}")
Sleep($KEYSENDDELAY)
Send("{UP}")
Sleep($KEYSENDDELAY)
Send("{Enter}")
Sleep($KEYSENDDELAY)
$SPAMCOUNTER = $SPAMCOUNTER + 1
STATS()
Sleep($LOBBYDELAY)
$CHECKD2ERROR = WinActivate("Diablo II Exception!")
If $CHECKD2ERROR = 1 Then
ProcessClose("Game.exe")
Send("{Enter}")
EndIf
WEnd
Func STATS()
SplashTextOn("Spammer Information", @CRLF & "Spammer Information" & @CRLF & "==============================" & @CRLF & "Games Joined: " & $GAMECOUNTER & @CRLF & "==============================" & @CRLF & "Total Spams: " & $SPAMCOUNTER & @CRLF & "==============================" & @CRLF & "Press End to stop bot" & @CRLF & "Press Home to pause bot" & @CRLF & "==============================" & @CRLF & "This simple bot has been coded by AI-Man." & @CRLF & "==============================" & @CRLF & "Version 1.0" & @CRLF & "Homepage: D2Ai.org home of D2AI." & @CRLF & "==============================", 220, 600, 800, 0, 2, "", 8, "")
Sleep(100)
EndFunc
Func LOGIN()
Sleep(1000)
Send("{TAB}")
Sleep($KEYSENDDELAY)
Send($USERNAME)
Sleep($KEYSENDDELAY)
Send("{TAB}")
Sleep($KEYSENDDELAY)
Send($PASSWORD)
Sleep($KEYSENDDELAY)
MouseClick("left", 410, 500)
Sleep($KEYSENDDELAY)
MouseMove(50, 50, 0)
Sleep(3500)
Select
Case $CHARLOCATION = 1
Send("{ENTER}")
Case $CHARLOCATION = 2
Send("{RIGHT}{ENTER}")
Case $CHARLOCATION = 3
Send("{DOWN}{ENTER}")
Case $CHARLOCATION = 4
Send("{DOWN}{RIGHT}{ENTER}")
Case $CHARLOCATION = 5
Send("{DOWN}{DOWN}{ENTER}")
Case $CHARLOCATION = 6
Send("{DOWN}{DOWN}{RIGHT}{ENTER}")
Case $CHARLOCATION = 7
Send("{DOWN}{DOWN}{DOWN}{ENTER}")
Case $CHARLOCATION = 8
Send("{DOWN}{DOWN}{DOWN}{RIGHT}{ENTER}")
EndSelect
EndFunc
Func RUNDIABLO()
If StringRight($D2PATH, 1) = "\" Then
$D2FULLPATH = $D2PATH & $D2FILE & " -w -ns -skiptobnet " & $D2PARAMS
Else
$D2FULLPATH = $D2PATH & "\" & $D2FILE & " -w -ns -skiptobnet " & $D2PARAMS
EndIf
Sleep(2500)
Run($D2FULLPATH, $D2PATH)
For $X1 = 0 To 29
If WinExists("Diablo II") = 1 Then
ExitLoop
EndIf
Sleep(1000)
Next
Sleep(2500)
WinMove("Diablo II", "", 0, 0)
WinActivate("Diablo II")
AdlibEnable("CheckD2")
STATS()
LOGIN()
EndFunc
Func CHECKD2()
If WinExists("Diablo II") = 0 Then
MouseUp("left")
MouseUp("right")
ProcessClose("Game.exe")
Exit
EndIf
If WinActive("Diablo II") = 0 Then
$MSGCHECKD2 = MsgBox(4, "Diablo II", "Diablo was minimized, should we Reopen it, (Yes) or close it (No)")
Select
Case $MSGCHECKD2 = 6
WinActivate("Diablo II")
Case $MSGCHECKD2 = 7
Exit
EndSelect
EndIf
EndFunc
Func TERMINATE()
Send("{CtrlUP}")
Send("{AltUp}")
Send("{Shiftup}")
Exit
EndFunc
Func TOGGLEPAUSE()
$PAUSED = Not $PAUSED
While $PAUSED
Sleep(100)
ToolTip('D2 Bot Paused."', 0, 0)
WEnd
ToolTip("")
EndFunc
_________________
A little reading goes a long way.
Post count means nothing.
Jacob wrote: For Snarg, my ass is always open.
|
|
Login 
Register
FAQ
Search
Loops back to 2.
