Jump to content

Recommended Posts

Posted

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

Posted (edited)

Check out ControlSend () and a UDF floating around called _ControlSendPlus() or something similar.

Edited by burrup

qq

Posted

Check out ControlSend () and a UDF floating around called _ControlSendPlus() or something similar.

<{POST_SNAPBACK}>

I tried

It didn't work

Thx anyways

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...