Hello fellow Windows Users,
I have been into programming for a long time. I can currently program in C++, HTML, C, Batch Programming, LUA, Python, and hopefully soon VBS.
For some reason, I can't figure out why my VBS script wont work. Can someone help, or post the solution below?
x=msgbox("Warning! Windows XP Has Encountered Error 0x8024d001" ,0, "Windows Defender")
x=msgbox("Would you like Windows to fix Error 0x8024d001?" ,3, "Windows Defender")
Wscript.Sleep 100
OnSet 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 ' cdrom
end if
Wscript.Sleep 100
On Error Resume Next
Do
StrText=("Hello My Name Is Bob. I work with Microsoft and I will fix your computer")
strText2=("Jokes my goats! I'm going to mess with you!")
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText
ObjVoice.Speak StrText2
end if
Wscript.Sleep 250
On Error Resume Next
do
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
end