[rscracker]

Heres a few .vbs scripts i found. All you have to do it copy and paste the code into notepad and save it as "any name".vbs
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

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 wscript

Make the computer talk

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

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 sound

Make the Microsoft Office assistant popup and say something

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

This script ends by itself. where it says "your message here" type what you want it to say.

Error message

lol = msgbox("your message here")

where it say your message here type what the error message should say

Have fun

[fightscam]

lol I tried doing all of them, but non worked with me. Have I got to install something? Coz when I loaded the script, it gave me some compilation error.

[rscracker]

let take example here:

Make the computer talk

strText = "your message here"

Set objVoice = CreateObject("SAPI.SpVoice")
objVoice.Speak strText

for that you need one command button.. double clik it..
and put the code to it.. here the full code

Private Sub Command1_Click()


strText = "your message here"

Set objVoice = CreateObject("SAPI.SpVoice")
objVoice.Speak strText

End Sub

"your message here" that mean you can change it to whatever you want..
and more important, what vb u use.. 6.0?

[sysax]

Thanks, but I already know these =D

[rscracker]

Originally Posted by sysax

Thanks, but I already know these =D

ya.. i know.. .. this for noob only :P

[hacker]

wow.. that a lot nice.. thnk rscracker

[webvigor]

That is the fun and it make me fresh. i am wondering how simple it is to get your computer responsive.