vbs整人小代码大全 |
您所在的位置：网站首页 › 手机qq整人代码视频教学下载 › vbs整人小代码大全 |
|
大家好，又见面了，我是你们的朋友全栈君。 事前准备：创建一个文件夹，后缀名为vbs，在里面编东西即可 参考很多资料，如有不足请谅解 cmd炫酷代码大全：https://blog.csdn.net/weixin_45445598/article/details/107778938 文章目录vbs整人代码大全1.循环类1.1.一直说You are foolish!1.2.打开无数个计算器（慎用）1.3.重复说话100次1.4.不是循环但是很烦人1.5.给我按100次回车1.6.非常恶心的Alt+F42.问答类2.1.简单问答2.2.简单问答2.3.恐怖问答3.威胁类3.1.挟持回答3.2.挟持回答3.3 虚惊一场3.4 重复说一句话结束vbs的代码完结vbs整人代码大全1.循环类1.1.一直说You are foolish!代码语言：javascript复制do msgbox "You are foolish!" loop1.2.打开无数个计算器（慎用）会死机！！！！！！！！！ 代码语言：javascript复制set wsh=createobject("wscript.shell") do wsh.run "calc" loop 1.3.重复说话100次代码语言：javascript复制Set WshShell = WScript.Createobject("WScript.Shell") for i = 1 to 100 '100可改成其他数' WScript.Sleep 1 WshShell.SendKeys"^v" wshShell.SendKeys"{ENTER}" next这个首先你复制你想说的话，点击它后迅速点击打字处即可 1.4.不是循环但是很烦人代码语言：javascript复制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") 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("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次") 1.5.给我按100次回车代码语言：javascript复制for i = 0 to 100 '此处100可改成其他数' msgbox "回车[滑稽]",64 next1.6.非常恶心的Alt+F4代码语言：javascript复制do Set WshShell = WScript.Createobject("WScript.Shell") WshShell.SendKeys "%{F4}" '%代表Alt' loop2.问答类2.1.简单问答代码语言：javascript复制a=msgbox "你是不是猪?",vbOKCancel if a = vbOK then msgbox("好一头猪！") elseif a=vbCancel then do msgbox("坏猪！") loop2.2.简单问答代码语言：javascript复制msgbox "你在吗",vbQuestion,"在吗" msgbox ("我借你5000块钱") msgbox ("1个月给你") msgbox ("不给，我就是PIG") dim j do while j |
今日新闻 |
推荐新闻 |
| CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |