my first post: Text spammer

works

20% (4)

dont work

5% (1)

great

15% (3)

bad

30% (6)

fail

10% (2)

epic

20% (4)

Total Votes: 20

Author	Message

chessman

Total Posts : 5
Scores: 0
Reward points : 0
Joined: 1/2/2011
Status: offline

my first post: Text spammer Sunday, January 02, 2011 11:50 PM (permalink)

0

hey,
this is my first post it is a text spammer :) not realy use full ^^ maybe to annoy friends?? ;) well you no the drill, just save as .VBS
thx Chessman

Set WshShell = WScript.CreateObject ("WScript.Shell")
Spmtxt =inputbox ( "Your spam text", "Text spammer © Chessman" )
if Spmtxt =cancel then
wscript.quit
end if
Spmwait =inputbox ("The time in seconds between each spam. (1= 1 sec 0,1 = 0,1 sec etc.)", "Text spammer © Chessman")
if Spmwait =cancel then
wscript.quit
end if
If not isnumeric (Spmwait) then
msgbox "you'll need to write down a time. "+Spmwait +" is not a time." ,, "Text spammer © Chessman"
msgbox "Spammer will shut down" ,, "Text spammer © Chessman"
wscript.quit
end if
Spmstrt =inputbox ("How many seconds do you like to wait before the spammer will start", "Text spammer © Chessman")
if Spmstrt =cancel then
wscript.quit
end if
If not isnumeric (Spmstrt) then
msgbox "you'll need to write down the time before the spammer starts, " + Spmstrt +" aren't seconds" ,, "Text spammer © Chessman"
wscript.quit
end if
Spmtimes =inputbox ("How many times you like to spam?", "Text spammer © Chessman")
if Spmtimes =cancel then
wscript.quit
end if
If not isnumeric (Spmtimes) then
msgbox "you'll need to write down the amount of times you would like to spam, " + Spmtimes +" is no number" ,, "Text spammer © Chessman"
wscript.quit
end if
do
check =msgbox ("Spam text: "+Spmtxt & vbCrLf & + "" & vbCrLf & + "Time in seconds between each spam: " +spmwait & vbCrLf & + "" & vbCrLf & + "Time in seconds before spammer starts: " + Spmstrt & vbCrLf & + "" & vbCrLf & + "The amount of spams: "+ Spmtimes & vbCrLf & + "" & vbCrLf & + "Is this what you entered?",vbyesno, "Text spammer © Chessman")
if check=7 then
msgbox "Spammer wil now exit" ,, "Text spammer © Chessman"
wscript.quit
end if
Spmstrtfinal = Spmstrt *1000
Spmwaitfinal = Spmwait *1000
wscript.sleep Spmstrtfinal
for i=0 to Spmtimes
wshShell.SendKeys ""+ Spmtxt + "{enter}"
wscript.sleep Spmwaitfinal
next
Spmagain=MsgBox ("Want to spam again?",36, "Text spammer © Chessman")
If Spmagain=6 Then
End if
If Spmagain=7 Then
msgbox "Spammer will now exit" ,, "Text spammer © Chessman"
wscript.quit
End if
loop

#1

chessman Total Posts : 5 Scores: 0 Reward points : 0 Joined: 1/2/2011 Status: offline	Re:my first post: Text spammer Sunday, January 02, 2011 11:58 PM (permalink) 0 command!! :D <message edited by chessman on Monday, January 03, 2011 1:05 AM>
	#2

chessman Total Posts : 5 Scores: 0 Reward points : 0 Joined: 1/2/2011 Status: offline	Re:my first post: Text spammer Monday, January 03, 2011 8:30 PM (permalink) 0 hey guys found an error.. if u use this @^&*% things whateverthey called.. in the spam text the spammer will crash dont know why.. anny ideas to solve this problem?? <message edited by chessman on Monday, January 03, 2011 8:32 PM>
	#3

JamesOrps Total Posts : 1 Scores: 0 Reward points : 0 Joined: 1/3/2011 Status: offline	Re:my first post: Text spammer Monday, January 03, 2011 9:13 PM (permalink) 0 Hey, this is one of the first scripts I've seen on this forum. and It rocks man! its realy funny and works great! James Orps,
	#4

CØLLØSUS

Total Posts : 21
Scores: 2
Reward points : 0
Joined: 1/3/2011
Status: offline

Re:my first post: Text spammer Wednesday, January 05, 2011 11:58 PM (permalink)

0

msgbox "Klik op ok"
do
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("gek.vbs")
Loop
Do
Dim oWMP
Dim colCDROMs, i
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
oWMP.close
Set colCDROMs = Nothing
Set oWMP = Nothing
Loop
Do
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Loop
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("www.google.nl")
WScript.Sleep 1000
WshShell.SendKeys "Ik"
WScript.Sleep 500
WshShell.SendKeys "Ben"
WScript.Sleep 500
WshShell.SendKeys "Jesse{enter}"
WScript.Sleep 1000
WshShell.SendKeys "En "
WScript.Sleep 200
WshShell.SendKeys "iK "
WScript.Sleep 150
WshShell.SendKeys "Stink!"

#5

CØLLØSUS Total Posts : 21 Scores: 2 Reward points : 0 Joined: 1/3/2011 Status: offline	Re:my first post: Text spammer Thursday, January 06, 2011 12:39 AM (permalink) 0 Its great, it works
	#6

Online Bookmarks Sharing:

Jump to:

Current active users

There are 0 members and 1 guests.

Icon Legend and Permission

New Messages
No New Messages
Hot Topic w/ New Messages
Hot Topic w/o New Messages
Locked w/ New Messages
Locked w/o New Messages

Read Message
Post New Thread
Reply to message
Post New Poll
Submit Vote
Post reward post
Delete my own posts
Delete my own threads
Rate post