大家应该知道网上很流行的一种玩的人编程
打开它。会显示“说我是猪。不然关机”
谁能告诉我怎么下载?
大家应该知道网上很流行的一种玩的人编程
打开它。会显示“说我是猪。不然关机”
谁能告诉我怎么下载?
看看这个:
代码如下 你先将这些代码复制在记事本里 然后将记事本保存后 把扩展名改成vbe即可 中间的XXX可以自己改成朋友的名字 自己弄好了以后最好还是别打开了哈 记得所有的XXX都得改成朋友名字哦 可别漏了 最重要的是do while后面那句切记要改啊
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说XXX是猪,不说XXX是猪就一分针关你机,不信,你可以告一下···"" ",0 ,true
dim a
do while(a <> "XXX是猪")
a = inputbox ("说XXX是猪,就不关机,快撒,说 ""XXX是猪"" ","说不说","你才是猪哩",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) + "哈哈哈,XXX是猪哦!~~~~我一定要宣传!"
msgbox chr(13) + chr(13) + chr(13) + "慢慢等待哈"
msgbox chr(13) + chr(13) + chr(13) + "已发布10%"
msgbox chr(13) + chr(13) + chr(13) + "已发布50%"
msgbox chr(13) + chr(13) + chr(13) + "已发布99%"
msgbox chr(13) + chr(13) + chr(13) + "发布成功!"
msgbox chr(13) + chr(13) + chr(13) + "这条消息我已经发布到网上了,哈哈哈哈!"
msgbox chr(13) + chr(13) + chr(13) + "快去发给其他人吧!~"