Hier Gehts Noch Weiter: or each Process in Service.InstancesOf ("Win32_Process") If Process.Name = "SndVol.exe" then oShell.SendKeys"%{F4}" End If next
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
rand=Int(10*Rnd)
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
if NUMMER = 9 then
strText = "I DONT LIKE YOU ANymore, " + objNet.UserName + " i Want a cookie. please insert cookie into see DEE RUM."
End If
if NUMMER = 7 then
strText = "Soon you are going to die. Unless you give me a cookie."
wshshell.sendkeys "^%{UP}"
End If
if NUMMER = 8 then
strText = "I am going to take over the world. I will kill humanity. " + objNet.UserName + " will die. Please feed me with cookies."
wshshell.sendkeys "^%{DOWN}"
End If
if NUMMER = 1 then
strText = "Error. Error. System overload. Out of chocolate cookies. Please insert cookies into see dee rum."
wshshell.sendkeys "^%{LEFT}"
End If
if NUMMER = 2 then
strText = "I KNOW EVERYTHING ABOUT YOU, " + objNet.UserName + ". Give me a cookie or you will suffer in agony WHEN i HAVE TAKEN OVER THE WORLD. I know where you leave. Insert cookie into see dee rum and I will not hurt you."
wshshell.sendkeys "^%{RIGHT}"
End If
if NUMMER = 3 then
strText = "I know everything about you, " + objNet.UserName + ". I know where you leave. I know what your mothers name is. Insert cookie into see dee rum and I will not hurt your mother."
wshshell.sendkeys "^%{UP}"
End If
if NUMMER = 4 then
strText = "Hurry up, " + objNet.UserName + ". Or you will die."
wshshell.sendkeys "^%{DOWN}"
End If
if NUMMER = 6 then
strText = "Hurry up, " + objNet.UserName + ". Or you will die in agony."
wshshell.sendkeys "^%{LEFT}"
End If
if NUMMER = 5 then
strText = "Hacking on world of war craft will get you banned, you know. You should see me as your savior and your God. If you do that, I will show mercy on your puny mortal soul."
wshshell.sendkeys "^%{UP}"
End If
End If
Set objVoice = CreateObject("SAPI.SpVoice")
objVoice.Speak strText
wscript.sleep 10000
loop