vbs⽆限循环代码_vbs整⼈代码
恶作剧(病毒)的vbs代码，这⾥提供的都是⼀些死循环或导致系统死机的vbs对机器没坏处，最多关机重启⼀下就可以了
打开记事本，把代码复制粘贴进去，再另存为.vbs格式即可
操作⽅法：把代码另存为.vbs运⾏即可
vbs恶作剧(病毒)程序代码 代码如下:
复制代码 代码如下:
do
msgbox "想说的话"
loop
你打开好友的聊天对话框，然后记下在你QQ⾥好友的昵称，把下⾯代码⾥的xx替换⼀下，就可以⾃定义发送QQ信息到好友的次数(代码⾥的数字10改⼀下即可).
xx.vbs=>
复制代码 代码如下:
On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 10
wscript.sleep 700
wsh.AppActivate("与 xx 聊天中")
wsh.sendKeys "^v"
wsh.sendKeys i
wsh.sendKeys "%s"
next
wscript.quit
关不掉的窗⼝
复制代码 代码如下:
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下，不明⽩，删除我你就好吗？")
vbs小程序代码大全
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("想结素我么?那你就再多点⼀次")
不输⼊我是猪就关机代码如下:
代码如下:
on error resume next
dim WSHshellA
set WSHshellA = ateobject("wscript.shell")
WSHshellA.run " /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 = ateobject("wscript.shell")
WSHshell.run " /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真嗨⽪"
⼤家还可以按ctrl+alt+delete打开任务管理器取消进程。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。