玩笑程序

set fso = wscript.createobject("scripting.filesystemobject")

set objShell = CreateObject("Wscript.Shell")

 

strComputer = "."

Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2")

Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'qq.exe'")

 

if fso.fileexists( "不要迷恋哥.txt" ) then 

fso.deletefile "不要迷恋哥.txt"

func1()

else

fso.createtextfile "不要迷恋哥.txt"

func2()

end if

 

 

 

 

 

 

function func2()

 

 msgbox "本程序执行期间不要进行任何键盘和鼠标操作，否则引起的后果作者不负责任何责任"

Wscript.Sleep 1000

objShell.Run "不要迷恋哥.txt"

Wscript.Sleep 3000

objShell.AppActivate "不要迷恋哥.txt - 记事本"

objShell.SendKeys "Hi,boy," & "{enter}"& "{enter}"

Wscript.Sleep 1000

objShell.SendKeys "I want to ask you a question,"&"{enter}" & "{enter}"

Wscript.Sleep 3000

objShell.SendKeys "do you know who creats the famous sentence: "

Wscript.Sleep 3000

objShell.SendKeys "lao hu bu fa wei,ni dang shi bing mao a ?" & "{enter}" & "{enter}"

Wscript.Sleep 7000

 

objShell.Run "2.vbs"

msgbox "太让我失望了，你居然不知道-_-!!", ,"OM"

Wscript.Sleep 200

objShell.AppActivate "不要迷恋哥.txt - 记事本"

Wscript.Sleep 200

objShell.SendKeys "I am so shocked that "

Wscript.Sleep 2000

objShell.SendKeys "you want to click the mousebutton, "

Wscript.Sleep 2000

objShell.SendKeys "because I have told you that "

Wscript.Sleep 2000

objShell.SendKeys "it is not allowed !" & "{enter}" & "{enter}" & "{enter}" & "{enter}"

Wscript.Sleep 3000

objShell.SendKeys "as a punishment, "

Wscript.Sleep 2000

objShell.SendKeys "I will kill your system process" & "{enter}"

Wscript.Sleep 2000

 

For Each objProcess in colProcessList

objShell.Run "2.vbs"

    msgbox "我一旦执行objProcess.Terminate()，你的espace进程就会被杀掉", ,"OM"

Next

 

Wscript.Sleep 2000

objShell.SendKeys "^s"

Wscript.Sleep 200

objShell.SendKeys "%{F4}"

Wscript.Sleep 200

msgbox "脚本，被定义为执行重复劳动的工具。然而如果你再次执行本脚本的话，你会惊奇的发现，第二次执行的过程完全是另外一番天地，期待您再次双击 本程序"

end function

 

 

 

 

 

 

function func1()

 

'msgbox("老兄，你的好奇心是如此的强烈，居然两次执行我的程序。")

'msgbox("但是，你有没有发现我们并不开心，因为我们没有编程序。我们每天所做的工作，其实就是填坑；前人挖下的坑，我们来填，我们在紧张的填坑过程中，又挖下了更多的坑等待后人来填。")

'msgbox("如此日复一日，年复一年......")

'msgbox("然而，庆幸的是我们有了vbs")

 

msgbox("既然老兄你的好奇心是如此的强烈，那我就说实话吧，其实，我是想和你说说漩涡鸣人的故事。")

msgbox("在一个忍者世界里，一个从小被称为 吊车尾 的小男孩，却立志称为最强的忍者——火影忍者。")

msgbox("尽管遭受了无数的冷眼和失败，他从未气馁，凭借自己顽强不屈的性格，一点点成长，并慢慢被周围的人所认可。")

msgbox("故事还未结束")

end function