Print PDF
Favorite
Email
I noticed one day how rude my computer was to me. When I turned it on all it did was show the boot screen and then made me log in. When I logged in, expecting a welcome I just heard a logon sound. Well it isn't that impolite since the computer never knew I wanted it to do that but I still I would like it to have some manners.
You will need.
A Windows 98 (or higher) Computer
Notepad (The program not the real thing)
5 minutes (unless your computer runs at a snail's pace)
You will need.
A Windows 98 (or higher) Computer
Notepad (The program not the real thing)
5 minutes (unless your computer runs at a snail's pace)
Remove these ads by
Signing UpStep 1Open Notepad
First we need to open notepad to write the script.
Click Start>All Programs>Notepad
Click Start>All Programs>Notepad
| « Previous Step | Download PDFView All Steps | Next Step » |
I was wondering if I could have some help with this? Everytime I try I get this error:
Script:
C:\Users\Sch3cter\AppData\Roaming\Microsoft\Windows\Start\Menu\Programs\Startup\Welcome.vbs
Line: 1
Char: 18
Error: Expected ')'
Code: 800A03EE
Source: Microsoft VBScript Compliation error
This is the script I'm using ( exactly as it appears in Notepad)
msgbox("Hi,0+64,"Computer")
Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
dim str
if hour(time) < 12 then
Sapi.speak "Good Morning Schecter"
else
if hour(time) > 12 then
if hour(time) > 16 then
Sapi.speak "Good evening Schecter"
else
Sapi.speak "Good afternoon Schecter"
end if
end if
end if
Sapi.speak "The current time is "
if hour(time) > 12 then
Sapi.speak hour(time)-12
else
if hour(time) = 0 then
Sapi.speak "12"
else
Sapi.speak hour(time)
end if
end if
if minute(time) < 10 then
Sapi.speak "o"
if minute(time) < 1 then
Sapi.speak "clock"
else
Sapi.speak minute(time)
end if
else
Sapi.speak minute(time)
end if
if hour(time) > 12 then
Sapi.speak "P.M."
else
if hour(time) = 0 then
if minute(time) = 0 then
Sapi.speak "Midnight"
else
Sapi.speak "A.M."
end if
else
if hour(time) = 12 then
if minute(time) = 0 then
Sapi.speak "Noon"
else
Sapi.speak "P.M."
end if
else
Sapi.speak "A.M."
end if
end if
end if
*** I'm probably just doing something really easy and stupid but I can't see anything.
Thanks,
Schecter
Thanks, I doesn't work at all if I keep that first part "msgbox....." in even if it is typed properly. If I remove it completely it works but the voice is very choppy and stuttery.
Thanks,
Robbie
a=msgbox ("Hi",0+64,"Computer")
Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
dim str
if hour(time) < 12 then
Sapi.speak "Good Morning Schecter"
else
if hour(time) > 12 then
if hour(time) > 16 then
Sapi.speak "Good evening Schecter"
else
Sapi.speak "Good afternoon Schecter"
end if
end if
end if
Sapi.speak "The current time is "
if hour(time) > 12 then
Sapi.speak hour(time)-12
else
if hour(time) = 0 then
Sapi.speak "12"
else
Sapi.speak hour(time)
end if
end if
if minute(time) < 10 then
Sapi.speak "o"
if minute(time) < 1 then
Sapi.speak "clock"
else
Sapi.speak minute(time)
end if
else
Sapi.speak minute(time)
end if
if hour(time) > 12 then
Sapi.speak "P.M."
else
if hour(time) = 0 then
if minute(time) = 0 then
Sapi.speak "Midnight"
else
Sapi.speak "A.M."
end if
else
if hour(time) = 12 then
if minute(time) = 0 then
Sapi.speak "Noon"
else
Sapi.speak "P.M."
end if
else
Sapi.speak "A.M."
end if
end if
end if