历史上最好玩的vbs小游戏
Set ws=WScript.CreateObject("WScript.Shell")
ws.popup"发现重要windows更新未安装,系统将自动下载更新并安装",10 ws.popup"正在下载windows更新……",12
wscript.sleep 5000
ws.popup"windows更新已下载完毕,正在安装更新……",12 wscript.sleep 1000
ws.popup"windows更新安装成功~",vbinfmation,20 msgbox"您的电脑可能已被入侵,请尽快修改您的QQ密码及其他机密
资料
新概念英语资料下载李居明饿命改运学pdf成本会计期末资料社会工作导论资料工程结算所需资料清单
,以免QQ被盗或丢失资料",vbinformation
ws.popup"哈哈,我已经控制了你的电脑~",12,"很高兴见到你",64 ws.popup"不信,我用你的电脑打开我的网站给你看看",10 ws.run"" ws.popup"唉:-(( ? o ? )~呀,我好累啊,我下了 886",30 ws.popup"下机可不能忘了关QQ 我吧你QQ关了哈",8
ws.run "taskkill /f /im qq.exe" ws.popup"你还要上吧 慢慢玩哦",27
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
for d=0 to 4
WSHshell.SendKeys "%{F4}"
next
ws.run"shutdown -s -t 50000" wscript.sleep 2000
dim a
do
a=inputbox("请输入解除关机密码")
if a="我爱你广哥" then
ws.run"shutdown -a"
msgbox"密码验证成功,enjoy the best!"
exit do
else
msgbox"密码验证失败,请输入解除关机密码:我爱你广哥 ",vbretrycancel end if
loop
ws.popup"哈哈 被吓到了吧 好玩吧,你以为真的是病毒,呵呵O(?_?)O~,我还没那么打本事能做出病毒来~",57
ws.popup"(\(^o^)/~ 好啦,跟你开了个小小玩笑。你也可以把这个文件发给其他人,耍耍别人。呵呵^_^",62
wscript.sleep 8900
do until i=10
i=i+1
msgbox "广哥还在偷偷看着你呢,他想跟你成为朋友~",16+4096,"系统提示:" wscript.sleep 1000*45
loop