Script should ask ... :)

[St0n3dSh33p]

Hi folks,

i got some little questions ...

first one:

how could i bring my script up to ask for accountname + password + channel and insert them in a chat login window from an chat site?

next:

how i can maximate // get a window on top if the window is active but minimized or maximate but not the active one.

And what i should do if the window name is "Channel: channel1" or is "Channel: channel2" ... only channel1/2 is changing, what i have to do that my script is going to maximate "this one" ??

ok i hope you guys can understand me

iam german

cya

[DirtyBanditos]

Hi folks,

i got some little questions ...

first  one:

how could i bring my script up to ask for accountname + password + channel and insert them in a chat login window from an chat site?

next:

how i can maximate // get a window on top if the window is active but minimized or maximate but not the active one.

And what i should do if the window name is "Channel: channel1" or is "Channel: channel2" ...  only channel1/2 is changing, what i have to do that my script is going to maximate "this one" ??

ok i hope you guys can understand me

iam german

cya

<{POST_SNAPBACK}>

Hi first load the Scite Scripwriter from my sig and test to make easy any nice script !

look this exampel) i hope that help and use search func on his forum for any simpel exampel wat you ned ,and look on the help files from autoit3 install order.

Good look for coding!

I hoffe ich konte dier helfen

oder lade dier Mein Autoit Project and test es mal )))

Du must ihn nur für dich anpassen!Oder Lade mein Projeckt und adde dein eigenen autoit bot hinzu!

Look this link to a nice Diablo 2 Spammbot!

Diablo 2 Tread

expandcollapse popup

#include <GuiConstants.au3>
#include <File.au3>

SoundPlay(@WindowsDir & "\Media\tada.wav", 1)
$title = InputBox("Spam-bot", "Please enter the window title you wish to Spamm coded By DirytBanditos 2004-2005.", "Sacred", "")
WinActivate($Title)

If @error = 1 Then
EXIT
Else
EndIf

$sFile=@SCRIPTDIR & '\THC 1.1 Beta.ini'
$spam6=IniRead($sFile, 'spam', 'spam', '\cff33FF33 Wer will duellen=?')
$spam=InputBox("DirtyBanditos", "Please enter your Spammessage 1", $spam6)
iniwrite($sFile, 'spam', 'spam', $spam)
$sFile=@SCRIPTDIR & '\THC 1.1 Beta.ini'
$spam7=IniRead($sFile, 'spam1', 'spam1', '\cffFFFF33 Team Bitte')
$spam1=InputBox("DirtyBanditos", "Please enter your Spammessage 2.", $spam7)
iniwrite($sFile, 'spam1', 'spam1', $spam1)
$sFile=@SCRIPTDIR & '\THC 1.1 Beta.ini'
$spam8=IniRead($sFile, 'spam2', 'spam2', '\cffff0044 Läst du mich bitte arleine danke dier!')
$spam2=InputBox("DirtyBanditos", "Please enter your Spammessage 3.", $spam8)
iniwrite($sFile, 'spam2', 'spam2', $spam2)
$sFile=@SCRIPTDIR & '\THC 1.1 Beta.ini'
$spam9=IniRead($sFile, 'spam3', 'spam3', '\cff00FFFF Sacred 1.8.26 is ok aber nicht Multiplayer Fördernt')
$spam3=InputBox("DirtyBanditos", "Please enter your Spammessage 4.", $spam9)
iniwrite($sFile, 'spam3', 'spam3', $spam3)
$sFile=@SCRIPTDIR & '\THC 1.1 Beta.ini'
$spam10=IniRead($sFile, 'spam4', 'spam4', '\cffFF6600 Bin afk Bin afk')
$spam4=InputBox("DirtyBanditos", "Please enter your Spammessage 5.", $spam10)
iniwrite($sFile, 'spam4', 'spam4', $spam4)
If @error = 1 Then
EXIT
Else
EndIf

$time = InputBox("DirtyBanditos Spammbot", "Please enter Spammdelay. 2.0 second's = 2000.", "2000", "")

Sleep(300)

If @error = 1 Then
EXIT
Else
EndIf
;--------------------------------------------------

HotKeySet("{f5}", "GameExit")
HotKeySet("{f8}", "GameMakeTp")
HotKeySet("{f2}", "StartSpamming")
HotKeySet("{f3}", "StopSpamming")
HotKeySet("{f7}", "ActivateSacred")

Func Activatesacred()
WinWait ( 'sacred' )
WinActivate ( 'sacred' )
Sleep ( 500 )
WinMove ( 'sacred', '', 0, -20 )
Sleep ( 500 )
EndFunc
HotKeySet("{f1}", "PauseSpamming")
HotKeySet("{f2}", "StartSpamming")

Func StartSpamming()
While 1
Sleep(500)
WEnd
EndFunc

Func Quit()
EXIT
EndFunc

Func PauseSpamming()


Do
Send("{ENTER}")
ControlSendPlus($title, "", "", $spam, 0)
Sleep(2000)
ControlSendPlus($title, "", "", "{ENTER}", 0)
sleep($time)
Send("{ENTER}")
ControlSendPlus($title, "", "", $spam1, 0)
Sleep(2000)
ControlSendPlus($title, "", "", "{ENTER}", 0)
sleep($time)
Send("{ENTER}")
ControlSendPlus($title, "", "", $spam2, 0)
Sleep(2000)
ControlSendPlus($title, "", "", "{ENTER}", 0)
sleep($time)
Send("{ENTER}")
ControlSendPlus($title, "", "", $spam3, 0)
Sleep(2000)
ControlSendPlus($title, "", "", "{ENTER}", 0)
sleep($time)
Send("{ENTER}")
ControlSendPlus($title, "", "", $spam4, 0)
Sleep(2000)
ControlSendPlus($title, "", "", "{ENTER}", 0)
sleep($time)

Until 0

EndFunc

If msgbox(1, "DirtyBanditos Spammbot", "After you click the OK button the spamm will begin. To pause spamming hit the f6 key. To re-start spamming hit the f5 key. To exit Spam-bot hit the Esc Key") = 2 Then
EXIT
Else

Do
Send("{ENTER}")
ControlSendPlus($title, "", "", $spam, 0)
Sleep(2000)
ControlSendPlus($title, "", "", "{ENTER}", 0)
sleep($time)
Send("{ENTER}")
ControlSendPlus($title, "", "", $spam1, 0)
Sleep(2000)
ControlSendPlus($title, "", "", "{ENTER}", 0)
sleep($time)
Send("{ENTER}")
ControlSendPlus($title, "", "", $spam2, 0)
Sleep(2000)
ControlSendPlus($title, "", "", "{ENTER}", 0)
sleep($time)
Send("{ENTER}")
ControlSendPlus($title, "", "", $spam3, 0)
Sleep(2000)
ControlSendPlus($title, "", "", "{ENTER}", 0)
sleep($time)
Send("{ENTER}")
ControlSendPlus($title, "", "", $spam4, 0)
Sleep(2000)
ControlSendPlus($title, "", "", "{ENTER}", 0)
sleep($time)
Until 0
EndIf


Func StopSpamming()
while (1)
sleep(100)
wend
EndFunc




Func GameExit()
Send("{f5}")
MouseMove(410, 265, 1)
MouseClick("left")


EndFunc

Func GameMakeTp()
MouseMove(400, 260, 1)
Send("{F8}")
MouseClick("right")
MouseMove(390, 260, 1)
Sleep(1000)
MouseClick("left")

EndFunc


while (1)
sleep(1)
wend

Edited January 2, 2005 by DirtyBanditos