computer talks to you awesom tricks

[dmudhitha]

These are the sample scripts:yes::yes::yes::yes::yes:



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 wscript

Make 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

Chat With Your Computer

Code:
StrText = InputBox("What should Sam say?", "Sam")
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText


Multiple Boxes

Code:
StrText = InputBox("What should Sam say?", "Sam")
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText

StrText = InputBox("What should Sam say?", "Sam")
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText



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 sound

Make 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


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

Error message

Code:
lol = msgbox("your message here")



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

http://www.queness.com/resources/images/animation/hill.gif
Rate and comment

[Wthilina]

Maxxa Bro... :)

[dmudhitha]

copy script to notepad
and
save it as any_name.vbs
note:-
.vbs is important

[harsha440]

bump

[dmudhitha]

Maxxa Bro... :)

bump

thanx

[Dhanuc]

niyamai!!!!!!!!!

[Radical78]

thnx

[tharindudoo]

එල පට්ට