VBS有趣程序大全

lmx120628

已于 2023-11-24 22:31:27 修改

阅读量390

点赞数 2

文章标签：汇编

于 2023-10-31 20:09:42 首次发布

本文链接：https://blog.csdn.net/lmx120628/article/details/134148207

版权

WScript.Echo("你好像上当了")
WScript.Echo("嘿，兄弟"&TSName)
WScript.Echo("我是最强程序员")
WScript.Echo("哈,你是天选之子，这你都不知道吗？")
WScript.Echo("怎么才来，说~是不是故意不点开")
WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。")
WScript.Echo("我很生气，后果很严重哦。")
WScript.Echo("嘿嘿！你也会很惨滴哦")
WScript.Echo("是不是想清除我？")
WScript.Echo("那你要点上50下哦，不过会给你惊喜滴")
WScript.Echo("还剩49下，快点点哦")
WScript.Echo("还剩48下，快点，小笨蛋！")
WScript.Echo("还剩47下，对，就这样快点点！")
WScript.Echo("还剩46下。要快哦，我先不打扰你工作。")
WScript.Echo("还剩45下，记得要快哦！")
WScript.Echo("还剩43下")
WScript.Echo("还剩42下")
WScript.Echo("还剩41下")
WScript.Echo("还剩40下")
WScript.Echo("还剩39下")
WScript.Echo("还剩38下")
WScript.Echo("还剩37下")
WScript.Echo("还剩36下")
WScript.Echo("还剩35下")
WScript.Echo("还剩34下")
WScript.Echo("还剩33下")
WScript.Echo("还剩32下")
WScript.Echo("还剩30下")
WScript.Echo("还剩29下")
WScript.Echo("还剩28下")
WScript.Echo("还剩27下")
WScript.Echo("还剩26下")
WScript.Echo("还剩25下")
WScript.Echo("还剩24下")
WScript.Echo("还剩23下")
WScript.Echo("还剩22下")
WScript.Echo("还剩21下")
WScript.Echo("还剩20下")
WScript.Echo("还剩19下")
WScript.Echo("还剩18下")
WScript.Echo("还剩17下")
WScript.Echo("还剩16下")
WScript.Echo("还剩15下")
WScript.Echo("还剩14下")
WScript.Echo("还剩13下，停停停！！！慢点，我有话要说")
WScript.Echo("还剩12下，你继续点我就会消失滴")
WScript.Echo("还剩11下，以后就看不到我拉。555555")
MsgBox "还剩10下，你现在可以选择停止！", vbYesNo, "WScript.Echo"
WScript.Echo("还剩9下。你还点啊，不要我拉？")
WScript.Echo("还剩8下，有点伤心拉，干嘛丢弃人家")
WScript.Echo("还剩7下。看来你是执意要清除我！")
WScript.Echo("还剩6下。对。你就点吧，我恨你！")
WScript.Echo("还剩5下，不明白，删除我你就好吗？")
WScript.Echo("还剩4下！真要删除我？")
WScript.Echo("还剩3下。可是我真的很眷恋你......")
WScript.Echo("还剩2下。不要这么绝情嘛，人家是爱你的！")
WScript.Echo("还剩1下。哼，既然你这么绝情。也别怪我无义！！！(以上部分借用了网络）")
msgbox("你的电脑被我攻击了！")
msgbox("赶快交出100000000000万元")
msgbox("我才会给你揭破密码！")
Dim strName
strName = InputBox("请输入密码")
WScript.Echo "真的是“ " & strName & "”么？"
MsgBox "密码错误！", vbCritical, "系统提示"
MsgBox "确定要让你的电脑变成垃圾么？", vbYesNo, "确认不要了"
MsgBox "警告！系统即将关闭！", vbCritical, "系统提示"
MsgBox "3", vbCritical, "系统提示"
MsgBox "2", vbCritical, "系统提示"
MsgBox "1", vbCritical, "系统提示"
MsgBox "0", vbCritical, "系统提示"
MsgBox "see you", vbCritical, "系统提示"
MsgBox "error", vbCritical, "系统提示"
MsgBox "sharkbee！", vbCritical, "系统提示"