经典vbscript代码收集

本站收集的VBS都是在windows10下测试过的，你在网上搜索到的不一定可以运行，本站收集的都是优化过的，且测试可以正常运行。
食用方法：新建记事本文件，输入以下内容，保存类型为所有文件，然后另存为.vbs文件，微信，QQ发给对方即可。

爱情测试

当输入的名字不是代码中的“嫦娥”，则会弹出”你在说谎！不要逃避，实话实说。”，当输入“嫦娥”时，则会弹出”你说出了你的心扉，那就向他（她）表白吧。”，如果输入的名字不是不是之前代码中写的名字，弹窗就会关不掉，效果是不是很棒，赶紧向心仪的人表白吧。

const title = "爱情测试"
const yourname = "嫦娥"
const question = "你最喜欢的人是谁？请在下面的方框中输入他（她）的名字。"
const info = "你在说谎！不要逃避，实话实说。"
const scend = "你说出了你的心扉，那就向他（她）表白吧。"
dim youranswer
do
youranswer = inputbox(question, title)
if youranswer <> yourname then msgbox info, vbinformation+vbokonly, title
loop until youranswer = yourname
msgbox scend, vbinformation+vbokonly, title

恶作剧关机

提示输入abc，不然关机，其实，输了abc还是会关机，请win+R,或直接开始菜单——运行输入shutdown -a自行解除关机，放心时间足够！

msgbox"此文件无毒，请放心使用。",vbretrycancel,"系统提示。"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.Run "cmd.exe /c shutdown -s -t 300"
wscript.sleep 2000
dim a
do
a=inputbox("输入abc，否则关机。")
if a="abc" then
msgbox" 很遗憾，你中招了，这是整人程序，你就等着关机吧！"
exit do
else
msgbox"乖点，输入abc"
end if
loop

循环讲故事

第一次点否的时候，就会关闭，不然，你听故事了，就得听下去……结束方法：ctrl+alt+del结束掉进程。

dim a
a=msgbox("给你讲个故事!",vbyesno,"chenyu.me")
if a=vbyes then
do
msgbox("从前有座山")
msgbox("山上有座庙")
msgbox("庙里有两个和尚")
msgbox("大和尚给小和尚讲故事说")
a=1
loop while a=1
end if

不回答就关机

轮认真答题的重要性……不回答或答题错误，10秒关机！

Option Explicit
On Error Resume Next
Dim answer
Dim WshShell
set WshShell = CreateObject("wscript.Shell")
WshShell.Run "Shutdown /f /s /t 10 /c 输入'我是猪'，否则10秒后关机~",0
Do While answer<>"我是猪"
answer=InputBox("输入'我是猪'，否则10秒后关机~","哈哈哈",,7000,8000)
Loop
WshShell.Run "Shutdown /a",0
MsgBox "哈哈哈，好玩不?",,"哈哈哈"

抖音vbs表白代码

如果点是，最后会打开记事本，输入l love you too.如果点否，江湖再见！

Set Seven = WScript.CreateObject("WScript.Shell")
Sub ak47
Set oShellLink=Nothing
seven.Run "notepad",3
WScript.Sleep 500
seven.SendKeys " I "
WScript.Sleep 500
seven.SendKeys "L"
WScript.Sleep 500
seven.SendKeys "o"
WScript.Sleep 500
seven.SendKeys "v"
WScript.Sleep 500
seven.SendKeys "e "
WScript.Sleep 500
seven.SendKeys "Y"
WScript.Sleep 500
seven.SendKeys "o"
WScript.Sleep 500
seven.SendKeys "u Too"
End Sub
se_key = (MsgBox("你是我女朋友吗?",4,"Ysni_下午"&Time))
If se_key=6 Then
Call ak47
Else
seven.Run "shutdown.exe -s -t 600"
agn=(MsgBox ("在给你一次机会，是不是？",52,"提示"))
If agn=6 Then
seven.Run "shutdown.exe -a"
MsgBox "余生很长，请多指教",,"恭喜"
WScript.Sleep 500
Call ak47
Else
MsgBox "江湖再见",48,"wo cao"
End If
End If

做我女朋友好吗?

前面铺垫很感人，后面不同意很严重！

  此处内容已隐藏，请评论后刷新页面查看.

数100只羊

先要承认自己是猪，然后还要数完100只羊……不然呢，关机给你看！

  此处内容已隐藏，请评论后刷新页面查看.

如果提示无效字符等无法运行情况，请保存ANSI格式。如果是emeditor，保持时编辑选择为系统默认。
如何能关闭呢？打开任务管理器结束进程“wscript.exe”即可！