fine heres the source:
$name=IniRead ( "settings.ini", "values", "last-pm-member-number", "1" )
$nameinitial=$name
Global $Paused
HotKeySet("{ESC}", "Terminate")
Func Terminate()
MsgBox(0,"", "Bot Terminated, "&$name-$nameinitial&" Messages Were Sent.")
Exit
EndFunc
msgbox(0,"Info","When you click the OK button, an file download test will initiate. This allows me to control weather or not my bot functions and therfore if it is abused, it will be disabled so use with care.")
$error=URLDownloadToFile("http://www.elite-d2.com/test.txt", "C:\Documents and Settings\allow.txt")
if $error=1 then
$test=FileOpen ( "C:\Documents and Settings\allow.txt", 0 )
$line=FileReadLine ( $test , 1 )
msgbox (0,"Success","Remote file test successful, Bot Operational")
MsgBox(0,"", "To stop this bot, hit escape.")
$php=msgbox(4,"Setup","Click yes if the forum to spam uses PHPBB (ex: Blizzhackers) or no if the forum is a VBForum (ex: Diabloforums)")
$default=msgbox (4,"Message","Would you like to use the default message?")
if $default=7 then
$spam_msg=InputBox ( "Setup", "Paste the message you would like to have spammed with !~0º°MħTËR°º0~!'s PM Spammer. ($membername will be substituted with the user's username)" , "Spam Message Goes Here" , "" , 500, 140 )
endif
$name=InputBox ( "Setup", "Where on your member list would you like to start?" , $name , "" , 300, 120 )
$title=InputBox ( "Setup", "What would you like the PM Title to say?" , "Hey man, check this out please." , "" , 300, 120 )
$messages=InputBox ( "Setup", "How many messages would you like this bot to send?" , "1000" , "" , 100, 150 )
SplashImageOn ( "title", "demo.bmp" , 471,230,"","" ,1 )
MsgBox(0,"I M P O R T A N T", "Once you hit OK, you will have 5 seconds to position your mouse over the 1st box as is demonstrated in the picture. If you are not in the Send New Private Message screen, get there and then do as instructed. (If you make a mistake, then just hit esc)")
AutoItSetOption ( "MouseCoordMode", 0 )
WinSetTitle ( "Battle Forums","" , "Forum Spammer" )
WinSetTitle ( "Blizz","" , "Forum Spammer" )
WinShow ( "Forum Spammer", "", @sw_restore )
$sleep=5
do
SplashTextOn("title", $sleep , 100 , 100 ,0,0, 1 , "Arial" , "60","50" )
sleep (1000)
$sleep=$sleep-1
until $sleep=0
SplashOff( )
WinActivate ( "Forum Spammer")
sleep (5000)
$pos=MouseGetPos ( )
Splashoff ()
do
sleep (500)
$name=IniRead ( "settings.ini", "values", "last-pm-member-number", "1" )
WinShow ( "Forum Spammer", "", @sw_restore )
$members=FileOpen ( "members.txt", 0 )
sleep (500)
$membername=FileReadLine ( $members , $name )
sleep (1000)
FileClose ( $members )
$name=$name+1
IniWrite ( "settings.ini", "values", "last-pm-member-number", $name )
mousemove ($pos[0],$pos[1],0)
sleep (500)
MouseClick ( "left" , $pos[0], $pos[1] , 1)
Send("^a")
sleep (500)
send ($membername)
sleep (500)
send ("{tab}")
send ($title)
sleep (1000)
send ("{tab}")
AutoItSetOption ( "SendKeyDelay", 1 )
send ("^a")
if $default=7 then
sleep (500)
send ($spam_msg)
else
sleep (500)
send ("Http://www.Elite-D2.com, dude i just need my forums to grow. can you PLEASE sign up there for me? Just one post would help if any. Thanks either way.")
endif
if $php=7 then
send ("{tab}{tab}")
else
send ("{tab}")
endif
send ("{enter}")
Sleep (30000)
if $php=6 then
send ("{BROWSER_BACK}")
else
send ("{BROWSER_BACK}{BROWSER_BACK}")
endif
sleep(30000)
until $name-$nameinitial=$messages
msgbox(0,"Bot Report",$name-$nameinitial&" Messages Were Sent")
exit
else
msgbox(0,"Failed","The file clearance failed, internet check file not available.")
endif
exit
so what if it ****s up the forums eh, i just used the disable feature just as backup but o well
