网上有流传着各种各样的QQ聊天器的制作方法！不知道大家会了几种呢？
现在我给宗亲们啰嗦一下！教大家几种超简单的制作方法！
 
 
第一种方法：
ON ERROR RESUME NEXT
Dim QQ_NUM
if Wscript.arguments.count<1 then
  QQ_NUM=InputBox("森源教网"&vbCr&vbCr&"    "&vbCr&vbCr&" ","QQ强行聊天器VBS版","10000")
  if QQ_NUM="" then
  Wscript.quit
  end if
else
  VQQ_NUM = Wscript.arguments.Item(0)
end if
set ws=wscript.createobject("wscript.shell")
ws.run "http://wpa.qq.com/msgrd?V=1&Uin="+QQ_NUM+"&Site=ioshenmue&Menu=yes",0
解释下上面的代码：
ON ERROR RESUME NEXT 如果程序发生错误继续执行
Dim QQ_NUM 定义变量
InputBox界面中的内容
if QQ_NUM="" then 对话框中的内容
Wscript.quit 退出脚本
http://wpa.qq.com/msgrd?V=1&Uin="+QQ_NUM+"&Site=ioshenmue&Menu=yes",0 QQ聊天临时代码
 
 
第二种：
@echo off
echo 森源教网 [URL=http://www.8sy8.com]http://www.8sy8.com[/URL]
rem 以下代码用于循环
:start
set /p a=请输入聊天的QQ号码:
start tencent://message/?uin=%a%
goto start
 
 
 
第三种：
@echo off
 Set/p qq=请输入你想要聊天的QQ号码
 start tencent://Message/?Uin=%qq%
 
 
 
 
第四种：
@echo off
 title QQ强行聊天器 by：森源教网
 color le
 cls
 echo ...................
 echo     QQ强行聊天器
 echo ...................
 echo
 echo 本程序可与任意号码聊天
 echo -请先打开QQ-
 pause
 :q
 Set /p qq=请输入你想要聊天的QQ号码:
 If/I"%qq%"=="n"Exit
 start tencent://Message/?Uin=%qq%
 pause
 goto q
 
 
[COLOR=#dd0000][SIZE=4]注意：[/SIZE][/COLOR]
[COLOR=#dd0000][SIZE=4]       第一种把保存的后缀名是：.vbs
       其它的把保存的后缀名是: .bat[/SIZE][/COLOR]
 
 

[QUOTE][B]下面引用由[U]曾九明乐安[/U]发表的内容：[/B]

用这种方法对自己的电脑有影响吗？[/QUOTE]
 
不会占用资源！你想要占用资源的吗？我有！你要的话我可以传给你！
 
对了！我着还有一个禁止群里接收群里图片的小东西！不过它会把你的网速给禁止到最小！所以我没给宗亲们发上来！我还在找突破口！
找出来了  我肯定会给大家带上！[EM16]

[QUOTE][B]下面引用由[U]曾广宾[/U]发表的内容：[/B]

上面方法已经不支持2009以上版本了[/QUOTE]
 
 
改天给你弄个支持2010版本的,要的话我先发到森源教网里边去,因为我怕我们总亲网的空间不够大,放这些无聊的东西我还是发个链接好了,呵呵!