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