This is my first Post. Here is a Vbs Script Text spammer and Some other Scripts, Hope they work :s
=========================================================
Msgbox "Hey im a Script"
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("Script.vbs")
THIS ONLY WORKS IF YOU NAME THIS SCRIPT, SCRIPT.VBS!!
=========================================================
LET YOUR COMPUTER TALK!!!!!!!!!!!
You can change the StrText,
Do
StrText=("I know a song that gets on everybodys nerves everybodys nerves everybodys nerves")
strText2=("I know a song that gets on everybodys nerves and this is how it goes")
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText
ObjVoice.Speak StrText2
Loop
=========================================================
Change the Title of your internet browser
Shl.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer
\Main\Start Page",
www.google.nl =========================================================
System beep!
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
===========================================================
A System beep that Doesnt stop
do
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
loop
==========================================================
A Simple Message box
Msgbox "Yo i am a script"
==========================================================
A Simple message box that doesnt stop
Do
Msgbox "yo i am a script"
Loop
=========================================================
A Random vbs script
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
==========================================================
a Random Vbs script that doesnt stop
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
===========================================================
This script will change someone's Msn name
Public WithEvents msn As MessengerAPI.Messenger
Private Sub Form_Load()
Set msn = New MessengerAPI.Messenger
End Sub
Private Sub Timer1_Timer()
msn.OptionsPages 0, MOPT_GENERAL_PAGE
Pause 0.5
SendKeys " Hier plaats je je tekst"
Pause 0.5
SendKeys "{ENTER}"
SendKeys "{ENTER}"
Me.Show
End Sub
Sub Pause(interval)
Current = Timer
Do While Timer - Current < Val(interval)
DoEvents
Loop
End Sub
=========================================================
An Inputbox
A=Inputbox ("What's your haircolor")
msgbox "Looks cool"+a
==========================================================
a Password
a=inputbox("What's the Password:")
if a="LOL" then
msgbox"Logged in!"
else
msgbox"Invalid password!"
end if
===========================================================
A Password that wont close till you Enter the Right password
You can also change the password
a=inputbox("Password:")
if a="LOL" then
msgbox"logged in!"
else
msgbox"Wrong password!"
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("Yourscript.vbs")
end if
===========================================================
Text spammer, To annoy som1 with
set shell = createobject ("wscript.shell")
strtext = inputbox ("Write down your message you like to spam")
strtimes = inputbox ("How many times do you like to spam?")
strspeed = inputbox ("How fast do you like to spam? (1000 = one per sec, 100 = 10 per sec etc)")
strtimeneed = inputbox ("How many SECONDS do you need to get to your victems input box?")
If not isnumeric (strtimes & strspeed & strtimeneed) then
msgbox "You entered something else then a number on Times, Speed and/or Time need. shutting down"
wscript.quit
End If
strtimeneed2 = strtimeneed * 1000
do
msgbox "You have " & strtimeneed & " seconds to get to your input area where you are going to spam."
wscript.sleep strtimeneed2
shell.sendkeys ("Spambot activated" & "{enter}")
for i=0 to strtimes
shell.sendkeys (strtext & "{enter}")
wscript.sleep strspeed
Next
shell.sendkeys ("Spambot deactivated" & "{enter}")
wscript.sleep strspeed * strtimes / 10
returnvalue=MsgBox ("Want to spam again with the same info?",36)
If returnvalue=6 Then
Msgbox "Ok Spambot will activate again"
End If
If returnvalue=7 Then
msgbox "Shutting down"
wscript.quit
End IF
loop
============================================================