来一个神秘代码（各种神秘代码的使用方法）

X=msgbox("出现了一个已知问题，你想要修复他吗?",3+16,"设置")
X=msgbox("修复问题失败",3+64,"设置")
X=msgbox("是否扫描此电脑?",4+32,"Windws Defender")
X=msgbox("正在扫描中....",2+62,"Windows Defender")
X=msgbox("发现了已知病毒，是否清除?",3+48,"WindowsDefemder")
X=msgbox("无法清除此病毒",1+16,"Windows Defemder")
X=msgbox("正在盗取你的及所有文件和浏览记录至云端",2+64,"virus")
X=msgbox("无法终止病毒进程",0+32,"System")
X=msgbox("无法终止此操作",0+16,"virus")
X=msgbox("删除系统文件",C+16,"virus")
set WSHshell=wscript.createobject("wscript.shell")
WSHshell.run"cmd /c""cd c:/&&cd windows&&cd system32&&dir",4,ture
X=msgbox("无法终止此操作!",0+16,"virus")
X=msgbox("您的计算机将在10秒钟后重启。",0+16,"virus")

text()

function text

dim a

a=InputBox("你的电脑已被锁.请输密钥")

if a="（这里要自己设密码）"then

Msgbox"解锁成功",0,"提示"

else

Msgbox"解锁失败.请重新输入",0,"错误"

text()

end if

end function

i = MsgBox("由于你灌水太水需要爆破电脑。"&_
vbCrLf&"确定爆破吗？",vbOKCancel,_
"爆破电脑系统！！！！！")
if i = 1 then
CreateObject("SAPI.SpVoice").Speak "bone"
end if

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下，以后就看不到我拉。")

WScript.Echo("还剩10下，你现在可以选择停止！")

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下。哼，既然你这么绝情。也别怪我无义！！！")

WScript.Echo("我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。")

WScript.Echo("想结素我么?那你就再多点一次")

Do
Dim a, b, c, d
a = InputBox("快说“我是猪”", "")
If a = "我是猪" Then
MsgBox "这就对嘛！", 64, ""
MsgBox "再按50下确定吧", 64, ""
For b = 1 To 50
MsgBox "" & b, 64, ""
Next
MsgBox "按完了？", 64, ""
MsgBox "这么快？", 64, ""
MsgBox "我还没玩够我不想走", 64, ""
MsgBox "我就不走你能把我怎么样？", 64, ""
MsgBox "哈哈哈", 64, ""
MsgBox "好好好马上马上", 64, ""
MsgBox "ennnn", 64, ""
MsgBox "要不然再按10下？", 64, ""
For c = 1 To 10
MsgBox "" & c, 64, ""
Next
MsgBox "流氓软件语录：", 64, ""
MsgBox "亲，您真的要我走吗？", 64, ""
MsgBox "您确定吗？", 64, ""
MsgBox "期待下次见面！", 64, ""
MsgBox "当然，我不是流氓软件。", 64, ""
MsgBox "所以我是不可能走的！", 64, ""
MsgBox "哈哈哈哈", 64, ""
MsgBox "等一下", 64, ""
MsgBox "我给你讲个故事吧（不停也得听）", 64, ""
MsgBox "从前有座山", 64, ""
MsgBox "上山有座庙", 64, ""
MsgBox "庙里有个和尚在讲故事", 64, ""
MsgBox "讲的是什么呢？", 64, ""
MsgBox "从前有座山", 64, ""
MsgBox "上山有座庙", 64, ""
MsgBox "庙里有个和尚在讲故事", 64, ""
MsgBox "讲的是什么呢？", 64, ""
MsgBox "从前有座山", 64, ""
MsgBox "上山有座庙", 64, ""
MsgBox "庙里有个和尚在讲故事", 64, ""
MsgBox "再按50下确定吧", 64, ""
For d = 1 To 50
MsgBox "" & d, 64, ""
Next
MsgBox "50下怎么快？", 64, ""
MsgBox "要不然再按1000下？", 64, ""
MsgBox "哈哈哈哈", 64, ""
MsgBox "开玩笑的", 64, ""
MsgBox "哈哈哈哈哈", 64, ""
MsgBox "怎么了，不耐烦了？", 64, ""
MsgBox "好好好我马上就走", 64, ""
MsgBox "等一下", 64, ""
MsgBox "再等一下", 64, ""
MsgBox "拜拜~要记住你是谁欧！哈哈哈~", 64, ""
Exit Do
Else
MsgBox "别想关掉啦，快承认吧！", 16, ""
End If
Loop

到此这篇来一个神秘代码（各种神秘代码的使用方法）的文章就介绍到这了,更多相关内容请继续浏览下面的相关推荐文章，希望大家都能在编程的领域有一番成就！

上一篇： pass与sass区别（pass sass lass区别）

下一篇：有网页版的聊天工具（有没有网页聊天平台）

版权声明：
本文来自互联网用户投稿，该文观点仅代表作者本人，不代表本站立场。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。
如若内容造成侵权、违法违规、事实不符，请将相关资料发送至xkadmin@xkablog.com进行投诉反馈，一经查实，立即处理！

转载请注明出处，原文链接：https://www.xkablog.com/bcyy/46488.html

相关文章：