where "any name" is put whatever you want to save it as, just make sure it has .vbs on the end
Disco on your keyboard
Code:
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop
to end the script press CRTL+ALT+DEL go to the processes tab and end wscriptMake the computer talk
Code:
strText = "your message here"
Set objVoice = CreateObject("SAPI.SpVoice")
objVoice.Speak strText
Where the text "your message here" is type what you want the computer to say. This process ends by itself
Make the computer go "ding" then popup a messege
Code:
Set objVoice = CreateObject("SAPI.SpVoice")
Set objFile = CreateObject("SAPI.SpFileStream.1")
objFile.Open "c:\Windows\Media\Ding.wav"
objVoice.Speakstream objFile
Wscript.Echo "your message here"
where the "c:\windows\Media\Ding.wav" put what sound file you want to be played. I think it only likes .wav i havent tryed out .wma or .mp3 yet. Also where it says "your message here" is the message that gets dispalyed after the soundMake the Microsoft Office assistant popup and say something
Code:
On Error Resume Next
strAgentName2 = "MERLIN"
strAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".acs"
Set objAgent2 = CreateObject("Agent.Control.2")
objAgent2.Connected = TRUE
objAgent2.Characters.Load strAgentName2, strAgentPath2
Set objPeter = objAgent2.Characters.Character(strAgentName2)
objPeter.MoveTo 700,300
objPeter.Show
objPeter.Play "GetAttention"
objPeter.Play "GetAttentionReturn"
objPeter.Speak("your message here")
Wscript.Sleep 1000
Set objAction= objPeter.Hide
Do While objPeter.Visible = True
Wscript.Sleep 250
Loop
Error message
Code:
lol = msgbox("your message here")
where it say your message here type what the error message should say