用VB怎么做QQ登陆器

代码已发送到你邮箱[QQauto.rar],请注意查收.

下面是一部分代码:

……
Dim QQPath, QQNum, QQPass

QQPath = "C:\Program Files\Tencent\QQ.exe" 'QQ所在路径

QQNum = "123456789" 'QQ号码

QQPass = "123456**" 'QQ密码

Shell QQPath & " /START QQUIN:" & QQNum & " PWDHASH:" & Str2QQPwdHash(Trim(QQPass)) & " /STAT:40" '在线为41，隐身为40

如果你从QQ接收文件端口做一份COPY到你的VB程序接受数据的端口 QQ的数据一般是加密了的。。所以你捕获了那些文件数据流也 没有用...只有接收完了再下手处理.

那我们再讲接收完了以后的处理:

接收完了以后文件默认是存在
C:\Documents and Settings\你的用户名\My Documents\My QQ Files这个目录下面的 你想把它换个位置存放 ? 是不是有点多次一举 所以 几乎是不可能象你说的那样...

写这东东要把QQ的网络协议分析清楚，QQ的协议用到了md5/tea加密。使用UDP进行传输。关键是如何构造报文，比如登录前要发送获得登录token的报文，然后根据这个token构造登录报文。
可以参考开源的LumaQQ，JAVA写的。

你可以参考以下教程和源代码：QQ登陆器的制作可以去www.ce666.com下载教程QQ自动登陆源码 http://hxxgn.ys168.com