------------------------------------------------------------------------------------------
大家好，我是爱吹冷风，今天给大家做用记事本做QQ聊天器的教程o(∩_∩)o...
我想跟沉睡在游戏中的朋友们说：“不要整天沉浸在游戏，多一分学习，多一分收获o(∩_∩)o...”
------------------------------------------------------------------------------------------
工具：

1.记事本

------------------------------------------------------------------------------------------
本人技术交流群

总群：28053896（满）
2群：42084146
3群：43062302
4群：43081337 欢迎加入交流学习o(∩_∩)o...
-----------------------------------------------------------------------------------------
第一种方法：
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 爱国者黑客 http://www.3800cc.com

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
-----------------------------------------------------------

• [VIP专用软件 - 电信高速下载][非高级会员不可下载]
• [VIP专用软件 - 双线高速下载][非高级会员不可下载]

• ☉ Delphi编程教学系列（新世纪网安基地VIP教程）
• ☉ virtualpc中的linux如何连上Internet
• ☉ ProE 2.0安装视频
• ☉ 学会利用系统自身资源
• ☉ JSP开发之一Servlet基础
• ☉ 内网架设DNS服务器详解
• ☉ 心动吧桌面图之serv-U反弹
• ☉ 小解TTL的妙用
• ☉ 免费的网络电脑
• ☉ 略施小计吓跑不怀好意的菜鸟

• ☉ 由于私服程序的特殊性，它非常容易被杀毒误报，所以自2011年1月起本站所有软件都不在做杀毒查杀，请下载后自行检测查杀！
• ☉ 为了达到最快的下载速度，推荐使用 迅雷5 下载本站软件。
• ☉ 本站软件均为WinRAR3.7版本压缩，所以请一定升级到WinRAR3.7或最新版才能正常解压本站提供的软件!
• ☉ 如果您发现下载链接错误，或内容与分类不匹配，请点击报告错误。正确报错10个我们将送您VIP会员！
• ☉ 如发现本站软件需要解压密码，均为：www.9876543210sf.com