AfX78z90 Posted April 5, 2005 Posted April 5, 2005 Here's the script: ;////////////////////////////////////////////////////////////////////////////////////////////////// ;////Protectus///Spam///Bot///Versão///1.0///////////////////////////////////////////////////////// ;///////Autor:///Protectus///////////////////////////////////////////////////////////////////////// ;//////////Feito///em///AutoITV3/////////////////////////////////////////////////////////////////// ;/////////////E-mail:///lord_protectus@msn.com///////////////////////////////////////////////////// ;////Função do Script:///Spam BatlleNet///Channels///////////////////////////////////////////////// ;////////////////////////////////////////////////////////////////////////////////////////////////// #include <GUIConstants.au3> HotKeySet("^!p", "PauseFunction") ;================================================================================================= ; VARIAVEIS ;================================================================================================= $logfile = FileOpen ("Logfile.txt", 1) $msgini1 = IniRead("config.ini", "Loader", "Msg1", "") $msgini2 = IniRead("config.ini", "Loader", "Msg2", "") $msgini3 = IniRead("config.ini", "Loader", "Msg3", "") $msgini4 = IniRead("config.ini", "Loader", "Msg4", "") $msgini5 = IniRead("config.ini", "Loader", "Msg5", "") $chaini1 = IniRead("config.ini", "Loader", "CHA1", "") $chaini2 = IniRead("config.ini", "Loader", "CHA2", "") $chaini3 = IniRead("config.ini", "Loader", "CHA3", "") $chaini4 = IniRead("config.ini", "Loader", "CHA4", "") $chaini5 = IniRead("config.ini", "Loader", "CHA5", "") $msgdelay = IniRead("config.ini", "Loader", "Msgdelay", "") FileWriteline ($logfile, "[Protectus SPAM BOT V1.0 Logfile de " & @MDAY & "/" & @MON & "/" & @YEAR & " " & @Hour & ":" & @Min & ":" & @Sec & "]") ;================================================================================================= ; INTERFACE DO BOT ;================================================================================================= $spam_bot=GUICreate("Protectus Spam bot V1.0 para Diablo II", 350, 290) $cor=GUISetBkColor(0xCCCCC) $save=GuiCtrlCreateButton ("SALVAR", 250, 152, 50, 35) $start=GUICtrlCreateButton("LIGAR SPAM", 250, 212, 85, 35) $msg_grupo=GuiCtrlCreateGroup("Mensagens:", 7, 10, 220, 130) $msg_1=GuiCtrlCreateLabel("1", 20, 33, 53, 15) $msg1=GUICtrlCreateInput($msgini1, 30, 30, 190, 20) $msg_2=GuiCtrlCreateLabel("2", 20, 53, 53, 15) $msg2=GUICtrlCreateInput($msgini2, 30, 50, 190, 20) $msg_3=GuiCtrlCreateLabel("3", 20, 73, 53, 15) $msg3=GUICtrlCreateInput($msgini3, 30, 70, 190, 20) $msg_4=GuiCtrlCreateLabel("4", 20, 93, 53, 15) $msg4=GUICtrlCreateInput($msgini4, 30, 90, 190, 20) $msg_5=GuiCtrlCreateLabel("5", 20, 113, 53, 15) $msg5=GUICtrlCreateInput($msgini5, 30, 110, 190, 20) $ch_grupo=GuiCtrlCreateGroup("Channels:", 7, 150, 220, 130) $ch_1=GuiCtrlCreateLabel("1", 20, 173, 53, 15) $ch1=GUICtrlCreateInput($chaini1, 30, 170, 190, 20) $ch_2=GuiCtrlCreateLabel("2", 20, 193, 53, 15) $ch2=GUICtrlCreateInput($chaini2, 30, 190, 190, 20) $ch_3=GuiCtrlCreateLabel("3", 20, 213, 53, 15) $ch3=GUICtrlCreateInput($chaini3, 30, 210, 190, 20) $ch_4=GuiCtrlCreateLabel("4", 20, 233, 53, 15) $ch4=GUICtrlCreateInput($chaini4, 30, 230, 190, 20) $ch_5=GuiCtrlCreateLabel("5", 20, 253, 53, 15) $ch5=GUICtrlCreateInput($chaini5, 30, 250, 190, 20) $int_tempo=GuiCtrlCreateLabel("Intervalos:", 240, 30, 50, 15) $tempo=GUICtrlCreateInput($msgdelay, 240, 50, 45, 20, 0x2001) $obs=GuiCtrlCreateLabel("1000 = 1 Segundo", 240, 75, 100, 15) GUISetState (@SW_SHOW) ;================================================================================================= ; START SCRIPT ;================================================================================================= While 1 $msg = Guigetmsg() Select Case $msg = $GUI_EVENT_CLOSE FileWriteline ($logfile, @Hour & ":" & @Min & ":" & @Sec & " " & "Fechou o Spam Bot") Exit Case $msg = $save $lemsg1 = GUICtrlRead($msg1) $lemsg2 = GUICtrlRead($msg2) $lemsg3 = GUICtrlRead($msg3) $lemsg4 = GUICtrlRead($msg4) $lemsg5 = GUICtrlRead($msg5) $lech1 = GUICtrlRead($ch1) $lech2 = GUICtrlRead($ch2) $lech3 = GUICtrlRead($ch3) $lech4 = GUICtrlRead($ch4) $lech5 = GUICtrlRead($ch5) $wrimsg1 = IniWrite("config.ini", "Loader", "Msg1", $lemsg1) $wrimsg2 = IniWrite("config.ini", "Loader", "Msg2", $lemsg2) $wrimsg3 = IniWrite("config.ini", "Loader", "Msg3", $lemsg3) $wrimsg4 = IniWrite("config.ini", "Loader", "Msg4", $lemsg4) $wrimsg5 = IniWrite("config.ini", "Loader", "Msg5", $lemsg5) $wrich1 = IniWrite("config.ini", "Loader", "CHA1", $lech1) $wrich2 = IniWrite("config.ini", "Loader", "CHA2", $lech2) $wrich3 = IniWrite("config.ini", "Loader", "CHA3", $lech3) $wrich4 = IniWrite("config.ini", "Loader", "CHA4", $lech4) $wrich5 = IniWrite("config.ini", "Loader", "CHA5", $lech5) $leint = GUICtrlRead($tempo) $wriint = IniWrite("config.ini", "Loader", "Msgdelay", $leint) MsgBox(262208,"Spam Pronto","Opções salvas com sucesso!") FileWriteline ($logfile, @Hour & ":" & @Min & ":" & @Sec & " " & "Opções Salvas com Sucesso!") FileWriteline ($logfile, @Hour & ":" & @Min & ":" & @Sec & " " & "Fechou o Spam Bot") Exit Case $msg = $start splashtexton("notitle",@LF &"Script feito por Protectus." & @LF "www.multxbot.tk" &, 200, 85,-1,-1,1) Sleep (3000) splashoff() $msgbox = MsgBox(4, "Protectus Spam Bot V1.0", "Voce deseja ligar o Spam Bot?") If $msgbox = 7 Then FileWriteline ($logfile, @Hour & ":" & @Min & ":" & @Sec & " " & "Fechou o Spam Bot") Exit EndIf RestoreDiablo() Sleep ( 5000 ) EnviarMsgs() EndSelect WEnd ;================================================================================================= ; FUNÇÃO PAUSE ;================================================================================================= Func PauseFunction() FileWriteline ($logfile, @Hour & ":" & @Min & ":" & @Sec & " " & "Spam em Pausa") $msgbox = MsgBox (1, "Pause..", "O Script esta em pausa. Pressione 'ok' se deseja continuar.") If $msgbox = 2 Then FileWriteline ($logfile, @Hour & ":" & @Min & ":" & @Sec & " " & "Fechou o Spam Bot") Exit(1) EndIf FileWriteline ($logfile, @Hour & ":" & @Min & ":" & @Sec & " " & "Voltando aos Channels") WinActivate ("Diablo II") WinActivate ("D2Loader v1.1b0b14 Build On Oct 29 2003") Sleep (5000) EndFunc ;================================================================================================= ; FUNÇÃO RESTORE DIABLO II ;================================================================================================= Func RestoreDiablo() Sleep ( 2000 ) WinShow( 'Diablo II', '', @SW_RESTORE ) EndFunc ;================================================================================================= ; FUNÇÃO ENVIAR MENSAGENS ;================================================================================================= Func EnviarMsgs() Do Sleep ( 500 ) Send ("{/}join" & " " & $chaini1) Send ("{ENTER}") FileWriteline ($logfile, @Hour & ":" & @Min & ":" & @Sec & " " & "Entrou no primeiro channel") Sleep ( $msgdelay ) Send ($msgini1) Send ("{ENTER}") Sleep ( $msgdelay ) Send ($msgini2) Send ("{ENTER}") Sleep ( $msgdelay ) Send ($msgini3) Send ("{ENTER}") Sleep ( $msgdelay ) Send ($msgini4) Send ("{ENTER}") Sleep ( $msgdelay ) Send ($msgini5) Send ("{ENTER}") Sleep ( $msgdelay ) Send ("/join" & " " & $chaini2) Send ("{ENTER}") FileWriteline ($logfile, @Hour & ":" & @Min & ":" & @Sec & " " & "Entrou no segundo channel") Sleep ( $msgdelay ) Send ($msgini1) Send ("{ENTER}") Sleep ( $msgdelay ) Send ($msgini2) Send ("{ENTER}") Sleep ( $msgdelay ) Send ($msgini3) Send ("{ENTER}") Sleep ( $msgdelay ) Send ($msgini4) Send ("{ENTER}") Sleep ( $msgdelay ) Send ($msgini5) Send ("{ENTER}") Sleep ( $msgdelay ) Send ("{/}join" & " " & $chaini3) Send ("{ENTER}") FileWriteline ($logfile, @Hour & ":" & @Min & ":" & @Sec & " " & "Entrou no terceiro channel") Sleep ( $msgdelay ) Send ($msgini1) Send ("{ENTER}") Sleep ( $msgdelay ) Send ($msgini2) Send ("{ENTER}") Sleep ( $msgdelay ) Send ($msgini3) Send ("{ENTER}") Sleep ( $msgdelay ) Send ($msgini4) Send ("{ENTER}") Sleep ( $msgdelay ) Send ($msgini5) Send ("{ENTER}") Sleep ( $msgdelay ) Send ("{/}join" & " " & $chaini4) Send ("{ENTER}") FileWriteline ($logfile, @Hour & ":" & @Min & ":" & @Sec & " " & "Entrou no quarto channel") Sleep ( $msgdelay ) Send ($msgini1) Send ("{ENTER}") Sleep ( $msgdelay ) Send ($msgini2) Send ("{ENTER}") Sleep ( $msgdelay ) Send ($msgini3) Send ("{ENTER}") Sleep ( $msgdelay ) Send ($msgini4) Send ("{ENTER}") Sleep ( $msgdelay ) Send ($msgini5) Send ("{ENTER}") Sleep ( $msgdelay ) Send ("{/}join" & " " & $chaini5) Send ("{ENTER}") FileWriteline ($logfile, @Hour & ":" & @Min & ":" & @Sec & " " & "Entrou no quinto channel") Sleep ( $msgdelay ) Send ($msgini1) Send ("{ENTER}") Sleep ( $msgdelay ) Send ($msgini2) Send ("{ENTER}") Sleep ( $msgdelay ) Send ($msgini3) Send ("{ENTER}") Sleep ( $msgdelay ) Send ($msgini4) Send ("{ENTER}") Sleep ( $msgdelay ) Send ($msgini5) Send ("{ENTER}") Sleep ( $msgdelay ) Until $msgdelay = 5000000000000 EndFunc ;Fim do Script /////////////////////////////////////////////////////////////////////////////////////////////// Hi I would like to do this script with my diablo's window minimized because this is a spam bot and not necessary do it in active window... Can someone send me here the right function to add into the script? Thanks
buzz44 Posted April 5, 2005 Posted April 5, 2005 (edited) Check out ControlSend () and a UDF floating around called _ControlSendPlus() or something similar. Edited April 5, 2005 by burrup qq
AfX78z90 Posted April 7, 2005 Author Posted April 7, 2005 Check out ControlSend () and a UDF floating around called _ControlSendPlus() or something similar.<{POST_SNAPBACK}>I triedIt didn't workThx anyways
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now