第一种方法：
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