Andrewp30
Member!
- Joined
- Jul 25, 2005
- Messages
- 157
- Reaction score
- 0
my new spambot didn't seem to get noticed by admin. so i am reposting it so that i can get it cleared.
http://www.freewebs.com/gwtw/files/ap30's_spambot_2.1.ace
please wait for admin to clear the file befor downloading. i do not want to get my neck ringed because some hates my bot and is gana make crap up about it.
fixes:
made it so that diablo 2 no longer looks like it is glitching while bot runs and after bot is done running.
fixed the time setting so that the bot actualy sends the spam messages when it is programed to do so. the time setting was also changed so that 1= 1 second and 2= seconds etc.
a little preview of my bot's script since the faget right below me likes to make shit up.
$GameCreateDelay = 0
$Name = 0
$Pass = 0
$SettingsFile = @SCRIPTDIR & '\Settings.ini'
$ChannelSettings = @SCRIPTDIR & '\ChannelSettings.ini'
HotKeySet("^!x", "MyExit")
$Spam1 = IniRead ( $SettingsFile, 'spam', 'spammessage1', "ERROR" )
$Spam2 = IniRead ( $SettingsFile, 'spam', 'spammessage2', "ERROR" )
$Spam3 = IniRead ( $SettingsFile, 'spam', 'spammessage3', "ERROR" )
$Spam4 = IniRead ( $SettingsFile, 'spam', 'spammessage4', "ERROR" )
$Spammm1 = IniRead ( $SettingsFile, 'spam', 'sendspammessage1', "ERROR" )
$Spammm2 = IniRead ( $SettingsFile, 'spam', 'sendspammessage2', "ERROR" )
$Spammm3 = IniRead ( $SettingsFile, 'spam', 'sendspammessage3', "ERROR" )
$Spammm4 = IniRead ( $SettingsFile, 'spam', 'sendspammessage4', "ERROR" )
$privateChat = IniRead ( $ChannelSettings, 'chat', 'private', "ERROR")
$privateChatC = IniRead ( $ChannelSettings, 'chat', 'channel', "ERROR")
$sleeep = IniRead ( $ChannelSettings, 'chat', 'sendevery', "ERROR")
$Channel1 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel1', "ERROR" )
$Channel2 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel2', "ERROR" )
$Channel3 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel3', "ERROR" )
$Channel4 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel4', "ERROR" )
$Channel5 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel5', "ERROR" )
$Channel6 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel6', "ERROR" )
$Channel7 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel7', "ERROR" )
$Channel8 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel8', "ERROR" )
$Channel9 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel9', "ERROR" )
$Channel10 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel10', "ERROR" )
$Channel11 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel11', "ERROR" )
$Channel12 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel12', "ERROR" )
$Channel13 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel13', "ERROR" )
$Channel14 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel14', "ERROR" )
$Channel15 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel15', "ERROR" )
$Channel16 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel16', "ERROR" )
$Channel17 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel17', "ERROR" )
$Channel18 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel18', "ERROR" )
$Channel19 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel19', "ERROR" )
$Channel20 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel20', "ERROR" )
$ActiveAccount = IniRead ( $SettingsFile, 'Account', 'AccountName', "ERROR" )
$ActivePassword = IniRead ( $SettingsFile, 'Account', 'Password', "ERROR" )
$RealmSelection = IniRead ( $SettingsFile, 'Account', 'Realm', "ERROR" )
$CharLocation = IniRead ( $SettingsFile, 'Account', 'CharacterLocation', "ERROR" )
$Switches = IniRead ( $SettingsFile, 'Account', 'D2Parameter', "ERROR" )
$D2Path = IniRead ( $SettingsFile, 'Settings', 'D2Path', "ERROR")
if $D2Path = '' then $D2Path = RegRead ('C:/program files/Diablo II', 'InstallPath')
$D2Executable = IniRead ( $SettingsFile, 'Settings', 'D2Executable', "" )
if $D2Executable = '' then $D2Executable = 'Diablo II.exe'
StartDiablo ()
RealmSelect ()
LogonAccount ()
CharacterSelection ()
if $PrivateChat='yes' Then
$i = 0
Do
$i = privatechat ()
Until $i = 10
EndIf
if $PrivateChat='no' Then
$i = 0
Do
$i = ChatRoomSelection ()
Until $i = 10
EndIf
http://www.freewebs.com/gwtw/files/ap30's_spambot_2.1.ace
please wait for admin to clear the file befor downloading. i do not want to get my neck ringed because some hates my bot and is gana make crap up about it.
fixes:
made it so that diablo 2 no longer looks like it is glitching while bot runs and after bot is done running.
fixed the time setting so that the bot actualy sends the spam messages when it is programed to do so. the time setting was also changed so that 1= 1 second and 2= seconds etc.
a little preview of my bot's script since the faget right below me likes to make shit up.
$GameCreateDelay = 0
$Name = 0
$Pass = 0
$SettingsFile = @SCRIPTDIR & '\Settings.ini'
$ChannelSettings = @SCRIPTDIR & '\ChannelSettings.ini'
HotKeySet("^!x", "MyExit")
$Spam1 = IniRead ( $SettingsFile, 'spam', 'spammessage1', "ERROR" )
$Spam2 = IniRead ( $SettingsFile, 'spam', 'spammessage2', "ERROR" )
$Spam3 = IniRead ( $SettingsFile, 'spam', 'spammessage3', "ERROR" )
$Spam4 = IniRead ( $SettingsFile, 'spam', 'spammessage4', "ERROR" )
$Spammm1 = IniRead ( $SettingsFile, 'spam', 'sendspammessage1', "ERROR" )
$Spammm2 = IniRead ( $SettingsFile, 'spam', 'sendspammessage2', "ERROR" )
$Spammm3 = IniRead ( $SettingsFile, 'spam', 'sendspammessage3', "ERROR" )
$Spammm4 = IniRead ( $SettingsFile, 'spam', 'sendspammessage4', "ERROR" )
$privateChat = IniRead ( $ChannelSettings, 'chat', 'private', "ERROR")
$privateChatC = IniRead ( $ChannelSettings, 'chat', 'channel', "ERROR")
$sleeep = IniRead ( $ChannelSettings, 'chat', 'sendevery', "ERROR")
$Channel1 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel1', "ERROR" )
$Channel2 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel2', "ERROR" )
$Channel3 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel3', "ERROR" )
$Channel4 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel4', "ERROR" )
$Channel5 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel5', "ERROR" )
$Channel6 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel6', "ERROR" )
$Channel7 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel7', "ERROR" )
$Channel8 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel8', "ERROR" )
$Channel9 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel9', "ERROR" )
$Channel10 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel10', "ERROR" )
$Channel11 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel11', "ERROR" )
$Channel12 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel12', "ERROR" )
$Channel13 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel13', "ERROR" )
$Channel14 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel14', "ERROR" )
$Channel15 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel15', "ERROR" )
$Channel16 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel16', "ERROR" )
$Channel17 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel17', "ERROR" )
$Channel18 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel18', "ERROR" )
$Channel19 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel19', "ERROR" )
$Channel20 = IniRead ( $ChannelSettings, 'Channelsettings', 'channel20', "ERROR" )
$ActiveAccount = IniRead ( $SettingsFile, 'Account', 'AccountName', "ERROR" )
$ActivePassword = IniRead ( $SettingsFile, 'Account', 'Password', "ERROR" )
$RealmSelection = IniRead ( $SettingsFile, 'Account', 'Realm', "ERROR" )
$CharLocation = IniRead ( $SettingsFile, 'Account', 'CharacterLocation', "ERROR" )
$Switches = IniRead ( $SettingsFile, 'Account', 'D2Parameter', "ERROR" )
$D2Path = IniRead ( $SettingsFile, 'Settings', 'D2Path', "ERROR")
if $D2Path = '' then $D2Path = RegRead ('C:/program files/Diablo II', 'InstallPath')
$D2Executable = IniRead ( $SettingsFile, 'Settings', 'D2Executable', "" )
if $D2Executable = '' then $D2Executable = 'Diablo II.exe'
StartDiablo ()
RealmSelect ()
LogonAccount ()
CharacterSelection ()
if $PrivateChat='yes' Then
$i = 0
Do
$i = privatechat ()
Until $i = 10
EndIf
if $PrivateChat='no' Then
$i = 0
Do
$i = ChatRoomSelection ()
Until $i = 10
EndIf