vbs整人小代码大全

╰+攻爆jí腚メ 2023-03-04 13:23 10阅读 0赞

**事前准备：创建一个文件夹，后缀名为vbs，在里面编东西即可**  
参考很多资料，如有不足请谅解

--------------------

cmd炫酷代码大全：[https://blog.csdn.net/weixin\_45445598/article/details/107778938][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+F4
     *  2.问答类
     *   *  2.1.简单问答
         *  2.2.简单问答
         *  2.3.恐怖问答
     *  3.威胁类
     *   *  3.1.挟持回答
         *  3.2.挟持回答
         *  3.3 虚惊一场
         *  3.4 重复说一句话
 *  结束vbs的代码
 *  完结

# vbs整人代码大全 #

## 1.循环类 ##

### 1.1.一直说You are foolish! ###

do
    msgbox "You are foolish!"
    loop

### 1.2.打开无数个计算器（慎用） ###

会死机！！！！！！！！！

set wsh=createobject("wscript.shell") 
    do 
    wsh.run "calc" 
    loop

### 1.3.重复说话100次 ###

Set WshShell = WScript.Createobject("WScript.Shell")
    for i = 1 to 100 '100可改成其他数'
    WScript.Sleep 1
    WshShell.SendKeys"^v"
    wshShell.SendKeys"{ENTER}"
    next

这个首先你复制你想说的话，点击它后迅速点击打字处即可

### 1.4.不是循环但是很烦人 ###

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次回车 ###

for i = 0 to 100 '此处100可改成其他数'
    msgbox "回车[滑稽]",64
    next

### 1.6.非常恶心的Alt+F4 ###

do
    Set WshShell = WScript.Createobject("WScript.Shell")
    WshShell.SendKeys "%{F4}"    '%代表Alt'
    loop

## 2.问答类 ##

### 2.1.简单问答 ###

a=msgbox "你是不是猪?",vbOKCancel
    if a = vbOK then
    msgbox("好一头猪！")
    elseif a=vbCancel then
    do
    msgbox("坏猪！")
    loop

### 2.2.简单问答 ###

msgbox "你在吗",vbQuestion,"在吗"
    msgbox ("我借你5000块钱")
    msgbox ("1个月给你")
    msgbox ("不给，我就是PIG")
    dim j
    do while j<1
    Select Case msgbox("借给我好吗",68,"请郑重的回答我")
    Case 6 j=1
    Case 7 msgbox("想好了再说")
    end Select
    loop
    msgbox("我就知道你会同意的，哈哈哈哈")

### 2.3.恐怖问答 ###

msgbox("嘿嘿，欢迎来到地狱")
    msgbox("阎王目睹了人世间的惨恶")
    msgbox("下定决心要让一些人付出代价")
    msgbox("你是第一个受到刑罚的人")
    msgbox("这里有一个问题,如果你答对了,我放你到人间,错了,你就会魂飞魄散")
    a=msgbox("请问天上的星星是不是无数的?",vbOKCancel)
    if a=vbok then
    msgbox("错误!星星可以数的过来")
    msgbox("5")
    msgbox("4")
    msgbox("3")
    msgbox("2”)
    msgbox("1")
    msgbox("看我!哈!(你感觉自己轻飘飘的,然后就什么也不知道了)")
    elseif a=vbcancel then
    msgbox("恭喜你回答对了")
    end if

肝不出来了

## 3.威胁类 ##

### 3.1.挟持回答 ###

on error resume next 
    dim WSHshellA 
    set WSHshellA = wscript.createobject("wscript.shell") 
    WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""说我是猪，不说我是猪就一分钟关机，不信，试下···"" ",0 ,true 
    dim a 
    do while(a <> "我是猪") 
    a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪""　","说不说","",8000,7000) 
    msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" 
    loop 
    msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛" 
    dim WSHshell 
    set WSHshell = wscript.createobject("wscript.shell") 
    WSHshell.run "cmd.exe /c shutdown -a",0 ,true 
    msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，好乖"

### 3.2.挟持回答 ###

set ws=createobject("wscript.shell") 
    call shutdown(1) 
    do while a<>"我是猪" 
    a=inputbox("快在下面的框框里输入我是猪,否则后果自负，快输""我是猪"" ","输不输","") 
    loop 
    call shutdown(2) 
    msgbox "早说就行了嘛",4096+64 
    msgbox"再输一遍我是猪!",4096+64 
    msgbox"我是猪!",4096+64 
    MsgBox"最后一次!",4096+64 
    MsgBox"如果你很快的点过去,不看的话",4096+64 
    MsgBox"我就要你踩我空间的!哼!",4096+64 
    MsgBox"从前有座山!",4096+64 
    MsgBox"山里有个庙.",4096+64 
    MsgBox"庙里有个老和尚在讲故事.",4096+64 
    ws.run"iexplore.exe http://new.qzone.qq.com/137841986/infocenter" 
    msgbox"哎呀累了！数绵羊哄我睡觉",4096+64 
    for i=1 to 100 
    MsgBox i&"只绵羊",4096+64 
    next 
    msgbox"哎呀我困了，这次就饶过你吧，下次注意哦!",4096+64 
    msgbox"最后问个问题，我是不是大好人！",4096+64 
    if inputbox("是不是","请选择","是")<>"是" then 
    call shutdown(1) 
    end if 
    sub shutdown(s) 
    select case s 
    case 1 
    ws.run"cmd.exe /c shutdown -r -t 60 -c",0 
    case 2 
    ws.run"cmd.exe /c shutdown -a",0 
    end select 
    end sub

### 3.3 虚惊一场 ###

on error resume next 
    dim WSHshellA 
    set WSHshellA = wscript.createobject("wscript.shell") 
    WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说你是傻B，我是天下第一大傻B不说宝宝，我是天下第一大傻B就一分钟关你机，不信，试试···"" ",0 ,true 
    dim a 
    do while(a <> "宝宝，我是天下第一大傻B") 
    a = inputbox ("宝宝，我是天下第一大傻B,就不关机，快撒，说 ""宝宝，我是天下第一大傻B""　","说不说","不说",8000,7000) 
    msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" 
    loop 
    msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛，乖乖" 
    dim WSHshell 
    set WSHshell = wscript.createobject("wscript.shell") 
    WSHshell.run "cmd.exe /c shutdown -a",0 ,true 
    msgbox chr(13) + chr(13) + chr(13) + "宝宝是不是又帅啦？？"

### 3.4 重复说一句话 ###

`当你在QQ或微信被别人怼的很angry时：`

Set WshShell = WScript.CreateObject("WScript.Shell") 
    for i=1 to 50      '50可改为其他的数字'
    WScript.Sleep 100  
    WshShell.SendKeys "^v" 
    WshShell.SendKeys "%s" 
    Next

这个你需要复制你要重复说的话，运行文件Then点击一下写字版就可以了  
很好玩，就是有点废朋友

# 结束vbs的代码 #

Win+R键打开运行，输入`taskkill -f -im wscript.exe`  
然后回车即可关闭vbs

# 完结 #

[https_blog.csdn.net_weixin_45445598_article_details_107778938]: https://blog.csdn.net/weixin_45445598/article/details/107778938