vbs脚本的使用

-------------------------------------------------------------------------------
set ws=wscript.createobject("wscript.shell")
ws.run "shutdown -s -t 60",0
do while i<>"我是猪"
i=inputbox("快说“我是猪”！不然关你机！","佐助的温柔专业打造","宁死不屈，坚决不从！")
msgbox "你说："&i
loop
ws.run "shutdown -a",0
msgbox "哪有人说自己是猪的？？没救了你"

--------------------------------------------------
set wso=wscript.createobject("Wscript.Shell")

b=Chr(32)

t=inputbox(" ")
if t="" then

wso.run("shutdown "&b&" -a")

else

t=t*60

end if

wso.run("shutdown "&b&" -s "&b&" -t "&b&" "&t&"")

wscript.quit
另存到桌面

--------------------------------------｛把包括括号及以上部分全部删除完，然后另存为 输入名字为： kaixin.vbs｝


on error resume next
dim jok,kill,open,repeat,fuck
set jok=wscript.createobject("wscript.shell")
kill=msgbox("你确定要使用360安全卫士吗？",4,"请慎重选择")
if kill=6 then

jok.run"""360安全卫士"""

else
msgbox"衷心祝愿您身体健康，接下来为您打开360安全管家聊天程序。",3,"欢迎再次使用"
jok.run"""家"""
wscript.sleep 3000
open=msgbox("你确认退出吗",4,"又是一个慎重的抉择")


jok.run"mspaint"
jok.run"notepad"
end if
open=msgbox("你确认退出吗",4,"又是一个慎重的抉择")
if open=6 then
jok.run"write"
else
msgbox"see you later"
end if
wscript.sleep 60000
repeat=msgbox("确认的话我就给你开听音乐哦",4,"我回来了")
if repeat=6 then
msgbox"靠看你那么欢迎我的份上，我就走了，88"
wscript.sleep 120000
jok.run"""音悦Mini"""
else
fuck=inputbox("你觉得我是一个怎样的人啊？","卡哇伊boy","十分帅气呢")
msgbox"其实我想说你才是个"&fuck&",嗯，真的呢"
end if
wscript.sleep 1000
msgbox"其实呢，我真的好想好想你呢"
jok.run"notepad"
wscript.sleep 500
jok.sendkeys"see how much i love you"
wscript.sleep 1000
jok.sendkeys"{ }"
wscript.sleep 1000
jok.sendkeys"welcome to https://www.360docs.net/doc/af7614347.html, it's my shop "



------------------------------------------------------------------
on error resume next
dim sill,google,ill,chat,sure
set sill=wscript.createobject("wscript.shell")
wscript.sleep 200
google=inputbox("输入空白将指向空文本，并有我要说的话，输入会指向其他地方","jake is lolling","请输入或者删除")
msgbox google,op,"今天是"
if google=see then
sill.run"notepad"
wscript.sleep 3000
sill.sendkeys"thank you ,you are very good!"
else
ill=msgbox ("你是木鱼"&"呼呼，忽略将指向QQ程序，其他则指向360和CMD",2,"in fact")

end if
if ill=5 then
chat=msgbox ("亲爱的，那接下来可不可以运行QQ啊？",4,"你是傻瓜吗")
end if
if ill=4 then
google=inputbox(" 输入文字将

指向3个程序，不输入将指向两个程序", ,"你考虑好了")
end if
if ill=3 then
sill.run"explorer"
end if
if chat=6 then

sill.run"QQ"
else
wscript.sleep 3000

sure=msgbox("yes是打开360，no是cmd",4,"are you sure？")
end if
if sure=6 then
sill.run"360安全卫士"
else
sill.run"cmd"

end if

----------------------------------------------------------------------------

2011/12/10/02:30
------------------------------------------------------------------------------
on error resume next
dim sill,google,ill,chat,sure,nexto
set sill=wscript.createobject("wscript.shell")
wscript.sleep 200
google=inputbox("输入空白将指向空文本，并有我要说的话，输入会指向其他地方","jake is lolling","请输入或者删除")
msgbox google,op,"今天是"
if google=see then
sill.run"notepad"
wscript.sleep 3000
sill.sendkeys"thank you ,you are very good!"
else
ill=msgbox ("你是木鱼"&"呼呼，忽略将指向QQ程序，其他则指向360和CMD",2,"in fact")

end if
if ill=5 then
chat=msgbox ("亲爱的，那接下来可不可以运行QQ啊？",4,"你是傻瓜吗")
end if
if ill=4 then
google=inputbox(" 输入文字将指向3个程序，不输入将指向两个程序", ,"你考虑好了")
end if
if ill=3 then
sill.run"explorer"
end if
if chat=6 then

sill.run"QQ"
else
wscript.sleep 3000

sure=msgbox("yes是打开360，no是精彩继续",4,"are you sure？")
end if
if sure=6 then
sill.run"360安全卫士"
end if
if sure=7 then
nexto=msgbox("要不要试下别的呢",3,"精彩刚开始")

end if

if nexto=6 then
sill.run"silltext.vbs"
end if


if nexto=2 then
msgbox"test is over",5,"congratulate"
end if

if nexto=7 then
msgbox"再见啦，胆小鬼"

end if

----------------------------------------------2012/12/10/03:13

on error resume next
dim sill,google,ill,chat,sure,nexto,google1
set sill=wscript.createobject("wscript.shell")
wscript.sleep 200
google=inputbox("输入空白将指向空文本，并有我要说的话，输入会指向其他地方","jake is lolling","请输入或者删除")
msgbox google,op,"今天是"
if google=see then
sill.run"notepad"
wscript.sleep 3000
sill.sendkeys"thank you ,you are very good!"
else
ill=msgbox ("你是木鱼"&"呼呼，忽略将指向QQ程序，其他则指向360和CMD",2,"in fact")

end if
if ill=5 then
chat=msgbox ("亲爱的，那接下来可不可以运行QQ啊？",4,"你是傻瓜吗")
end if
if ill=4 then
google1=inputbox(" 输入文字将指向3个程序，不输入将指向两个程序", ,"你考虑好了吗？")


end if
if ill=3 then
sill.run"explorer"
end if
if chat=6 then

sill.run"QQ"

end if
if google1=see then
wscript.sleep 3000

sure=msg

box("yes是打开360，no是精彩继续",4,"are you sure？")
else
end if
if sure=6 then
sill.run"360安全卫士"
end if
if sure=7 then
nexto=msgbox("要不要试下别的呢",3,"精彩刚开始")

end if

if nexto=6 then
sill.run"silltext.vbs"
end if


if nexto=2 then
msgbox"test is over",5,"congratulate"
end if
private pig,zill
if nexto=7 then
msgbox"再见啦，胆小鬼"
pig=msgbox("还有最后一次机会哦",4,"游戏重玩")
end if
if pig=6 then
msgbox"接下来就是我的表白时间了",,"listen to me"
zill=inputbox("你觉得我像你的什么？","tomorrow will be change","你是我的版主")

msgbox zill

msgbox "我觉得你是"&zill&"小情人",,"实话实说"
end if

if zill=90 then
sill.run"QQ"
end if