qq2009的自动登陆新想法
本文讨论用参数或其它方式处理，不讨论用鼠标或键盘的方式处理(如果还回贴用的是2008的方法，请抱成一团，把脑袋塞到类似菊花的地方）
今天无意中发现，qq2009可以带一个参数启动
申请QQ的时候，无意发现有一个立即登陆QQ连接，点击后，可以启动QQ，并自动输入了刚刚申请的QQ号。
源js代码就不写了，现在是VB的
Private Sub Command1_Click()
Dim o As Object
Set o = CreateObject("QQCPHelper.CPAdder")
o.StartupIM "302533333"
End Sub
大家可以看一下，可以达到一种效果，后来查看进程的时候，发现，该组件其实是用了参数启动QQ。
大家试一下
QQ.exe /uin:302533333
发现也是可以达到已经输入了账号的效果。
另外，该DLL还能添加表情到QQ中
o.AddCustomEmotion(strUrl);
我在想，这个组件可能还有非常多的内容没有公布。
另外，要自动登陆，也可以通过QQ\Users\All Users\QQ\registry.db 来实现，
都知道这个文件是数据文件，用7-zip解压后，有一个Main_LoginAccoutList文件，只可惜是结构化存储的，没有办法完全读出来，通过几次用其它QQ号登陆后的用hexCmp比较也没有完全搞明白。
希望有大虾解决几个问题：
一，如果不能通过组件达到启动的效果，能不能通过简单的入口修改，改成支持自动登陆的参数
二、如果难度较大，看能不能破解Main_LoginAccoutList格式。
[解决办法]
UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP
[解决办法]
一切皆在内存中，但如果有加过密，想读出来，200%没指望
[解决办法]
顶！！
[解决办法]
但愿能实现自动输入好密码并自动登录的效果。。
附：分享一下我弄出来的代码：
(1)检测当前电脑是否挂着QQ：
Set TCK = CreateObject("TimwpDll.TimwpCheck")
isQQRunning = TCK.checkQQRunning
If isQQRunning Then
MsgBox "QQ在线"
Else
MsgBox "QQ离线"
End If
(2)让QQ显示“正在玩的游戏”的信息：
Function PutRSInfo(uin, strRSPrompt, strRSParam)
Set o = CreateObject("QQCPHelper.CPAdder")
If Not strRSPrompt = "" And Not strRSParam = "" Then
o.PutRSInfo uin, 65572, strRSPrompt, strRSParam
'o.PutRSInfo uin, &H10024, strRSPrompt, strRSParam
End If
End Function
PutRSInfo 495825947,"正在3366玩《植物大战僵尸无敌版》","50521"
PutRSInfo 495825947,"3366小游戏","10000"
PutRSInfo 495825947,"3366游戏中","param"
'例：
'代码：
'PutRSInfo {QQ号码},"{要显示的游戏名称}","{param}"
'打开的地址是：
'http://www.3366.com/?ADUIN={QQ号码}&ADSESSION=1354419693&ADTAG=CLIENT.QQ.4693_{param}.0
支持的话就顶哦~~
