pinoyid0l
01-29-2009, 05:16 PM
The usage of the following depends on thread question and mods.
'pinoyid0l
'vbScript simple Auto Talker.
'REQUIREMENTS:
'1)windows platform
'INSTRUCTIONS:
'1) copy the code to notepad
'2) edit the values of variables within the ===EDIT THIS=== part below.
'3) save to any filename with [.vbs] extension (eg. AutoTalker.vbs)
'4) run the script by simply double clicking it.
'5) set your focus within runescape, (click anywhere within the runescape client)
'6) it should work, or review the steps.
'POSSIBLE USAGE:
'1) If a windows computer doesn't have scar or doesn't allow you to. (school, office, other's pc, etc)
'2) Takes up less memory, and probable usage sparingly with scar scripts.
'ISSUES:
'1) The computer is blocked from running any script.
'========EDIT THIS=========
Const strMsg = "shake:8====D" 'the text to be sent
Const iCounter = 5 'the number of times a
'========END EDITING======
Set wshShell = wscript.CreateObject("WScript.Shell")
Call init()
Sub init() 'reserved procedure if inputbox is ever demanded
Dim i
wscript.sleep 5000 'gives you 5 seconds to set focus to runescape
For i = 1 To iCounter
Call typeSend(strMsg)
Next
End sub
sub typeSend(str)
Dim i,a
Randomize
a =""
For i = 1 To Len(str)
wshshell.sendkeys Mid(str,i,1)
wscript.sleep Int( (101) * Rnd + 100 )
next
wshshell.sendkeys "{enter}"
wscript.sleep Int( (301) * Rnd + 500 )
End sub
'pinoyid0l
'vbScript simple Auto Talker.
'REQUIREMENTS:
'1)windows platform
'INSTRUCTIONS:
'1) copy the code to notepad
'2) edit the values of variables within the ===EDIT THIS=== part below.
'3) save to any filename with [.vbs] extension (eg. AutoTalker.vbs)
'4) run the script by simply double clicking it.
'5) set your focus within runescape, (click anywhere within the runescape client)
'6) it should work, or review the steps.
'POSSIBLE USAGE:
'1) If a windows computer doesn't have scar or doesn't allow you to. (school, office, other's pc, etc)
'2) Takes up less memory, and probable usage sparingly with scar scripts.
'ISSUES:
'1) The computer is blocked from running any script.
'========EDIT THIS=========
Const strMsg = "shake:8====D" 'the text to be sent
Const iCounter = 5 'the number of times a
'========END EDITING======
Set wshShell = wscript.CreateObject("WScript.Shell")
Call init()
Sub init() 'reserved procedure if inputbox is ever demanded
Dim i
wscript.sleep 5000 'gives you 5 seconds to set focus to runescape
For i = 1 To iCounter
Call typeSend(strMsg)
Next
End sub
sub typeSend(str)
Dim i,a
Randomize
a =""
For i = 1 To Len(str)
wshshell.sendkeys Mid(str,i,1)
wscript.sleep Int( (101) * Rnd + 100 )
next
wshshell.sendkeys "{enter}"
wscript.sleep Int( (301) * Rnd + 500 )
End sub