经典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”即可!

© 版权声明
THE END
如果喜欢,可以【点赞】【分享】【收藏】
点赞10赞赏 分享
评论 抢沙发
头像
非注册用户需审核通过后才能查看。友好交流,勿发纯表情,勿恶意灌水!
提交
头像

昵称

取消
昵称表情代码图片
    • 头像飞子0