PDA

View Full Version : My first script... ChatSpammer


DrTech
13th January 2005, 13:45
Okay this is the first one i made... Instructions are all inside the RAR file so i guess you can read...

This script would not have been made possible if TS58 did not help me... So most of the credit should go to him...

EDIT: Fixed a loop problem whereby the chatbox is closed at the start of the second loop. Please either have 2 lines of text or 4... do not put 3 or 1 as it will cause problems when looping.

EDIT: Uploaded new one... With more info... Note: Please do not leave line 3 and 4 empty as it might not work properly

TS58
14th January 2005, 06:34
Okay this is the first one i made... Instructions are all inside the RAR file so i guess you can read...

This script would not have been made possible if TS58 did not help me... So most of the credit should go to him...
Works good :) good for all those peoplethat spam to sell/ or even I will use it now sence soneone made one. :) Good job

Some info that will help
AutoItSetOption("SendKeyDelay", 1) ;send keys faster default is 10...

If WinActive("MapleStory") Then
;script here, not the func() tho
Else
Sleep (10000); puts a pasue in the loop so if ms isnt running, it doesnt over load older computers(like mine).
EndIf

:)

twisted0one7
14th January 2005, 07:47
good job

DrTech
14th January 2005, 11:23
Works good :) good for all those peoplethat spam to sell/ or even I will use it now sence soneone made one. :) Good job

Some info that will help
AutoItSetOption("SendKeyDelay", 1) ;send keys faster default is 10...

If WinActive("MapleStory") Then
;script here, not the func() tho
Else
Sleep (10000); puts a pasue in the loop so if ms isnt running, it doesnt over load older computers(like mine).
EndIf

:)

I see... i'll add that and see what happens... btw, what did you mean by the part i bold-ed

Edit: Okay, this is what i added... then when i initiate script... it closes after awhile..

If WinActive("MapleStory") Then
Sleep($var2)
send("{enter}")
$X =1
DO
send($textvar1)
send("{Enter}")
Sleep($var1)
send($textvar2)
send("{Enter}")
Sleep($var1)
send($textvar3)
send("{Enter}")
Sleep($var1)
send($textvar4)
send("{Enter}")
Sleep($var1)
Until $X =2
Else
Sleep(10000)
EndIf

TS58
14th January 2005, 11:49
I see... i'll add that and see what happens... btw, what did you mean by the part i bold-ed

Edit: Okay, this is what i added... then when i initiate script... it closes after awhile..

If WinActive("MapleStory") Then
Sleep($var2)
send("{enter}")
$X =1
DO
send($textvar1)
send("{Enter}")
Sleep($var1)
send($textvar2)
send("{Enter}")
Sleep($var1)
send($textvar3)
send("{Enter}")
Sleep($var1)
send($textvar4)
send("{Enter}")
Sleep($var1)
Until $X =2
Else
Sleep(10000)
EndIf

Thats great.
But to speed up the typing alitte,
AutoItSetOption("SendKeyDelay", 1) ;send keys faster default is 10... 1 is fastest.

The func() needs to be at the complete end of script, and how you set it up with

If WinActive("MapleStory") Then
;script here, not the func()
Else
Sleep (10000)
EndIf

Incase you alt tap out of the game, and someone else gets on the computer and presses the pause butten for the hell of it... it dont start sending "$textvar1" outside of the game.

Edit: Hrmm, The script closes, eh?

Try


$X =1
DO
If WinActive("MapleStory") Then
;nothing here
Else
Sleep (10000)
EndIf

Sleep($var2)
send("{enter}")
send($textvar1)
send("{Enter}")
Sleep($var1)
send($textvar2)
send("{Enter}")
Sleep($var1)
send($textvar3)
send("{Enter}")
Sleep($var1)
send($textvar4)
send("{Enter}")
Sleep($var1)
Until $X =2

DrTech
14th January 2005, 12:17
Thats great.
But to speed up the typing alitte,
AutoItSetOption("SendKeyDelay", 1) ;send keys faster default is 10... 1 is fastest.

The func() needs to be at the complete end of script, and how you set it up with

If WinActive("MapleStory") Then
;script here, not the func()
Else
Sleep (10000)
EndIf

Incase you alt tap out of the game, and someone else gets on the computer and presses the pause butten for the hell of it... it dont start sending "$textvar1" outside of the game.

Edit: Hrmm, The script closes, eh?

Try


$X =1
DO
If WinActive("MapleStory") Then
;nothing here
Else
Sleep (10000)
EndIf

Sleep($var2)
send("{enter}")
send($textvar1)
send("{Enter}")
Sleep($var1)
send($textvar2)
send("{Enter}")
Sleep($var1)
send($textvar3)
send("{Enter}")
Sleep($var1)
send($textvar4)
send("{Enter}")
Sleep($var1)
Until $X =2

working great... Thanks alot :) gonna put it up...

TS58
14th January 2005, 12:22
working great... Thanks alot :) gonna put it up...
Glad I could help. :)