’ Written By RazTK
Set WshShell = CreateObject( "WScript.Shell" )
a = InputBox("Time To Start:","Spammer")
b = InputBox("Delay Time:","Spammer")
c = InputBox("How Much:","Spammer")
Text = InputBox("Send:","Spammer")
a = a + "000"
b = b + "000"
If Not IsNumeric(a) Then WScript.Quit
If Not IsNumeric(b) Then WScript.Quit
If Not IsNumeric(c) Then WScript.Quit
WScript.Sleep a
For x = 1 To c
WshShell.SendKeys Text + Chr(13)
WScript.Sleep b
Nextעוד משהו חמוד:קוד:Set Test = CreateObject("WScript.Shell")
A = InputBox("Times:")
If Not IsNumeric(A) Then WScript.Quit
For X = 1 To A
Test.SendKeys "{NUMLOCK}"
WScript.Sleep 200
Test.SendKeys "{NUMLOCK}"
Test.SendKeys "{CAPSLOCK}"
WScript.Sleep 200
Test.SendKeys "{CAPSLOCK}"
Test.SendKeys "{SCROLLLOCK}"
WScript.Sleep 200
Test.SendKeys "{SCROLLLOCK}"
Next[ההודעה נערכה על-ידי RazTK ב-31/12/2005 14:43:21]