主题:求助:VB制作QQ登录器遇到一些问题
我在网上看到了一个用VB制作QQ登录器
然后自己也想做一个
在进行试验的时候发现如果在按钮控件事件中直接写入
Dim path As String
path = "D:\Program Files\Tencent\QQ\qq.exe"
Dim l As Long
l = Shell(path)
就可以打开QQ对话框了
我想进一步实现直接进行QQ
然后这样写
Dim path As String
path = "D:\Program Files\Tencent\QQ\qq.exe"
path = path & " /START QQUIN:XXXX PWDHASH:XXXX" & pwd & " /STAT:41"
Dim l As Long
l = Shell(path)
就出现了QQ正在登录的界面
不一会儿就出现一个平时我们只有输错密码才出现的对话框
然后我再研究了下那个源代码发现只能这样做才行
Dim path As String
path = "D:\Program Files\Tencent\QQ\qq.exe"
Dim pwd As String
pwd = "XXXXXXX"
pwd = Hex2Base64(MD5(pwd, 32)) & "=="
Print pwd
path = path & " /START QQUIN:XXXXXXX PWDHASH:" & pwd & " /STAT:41"
Dim l As Long
l = Shell(path)
这样我的QQ就可以正常的打开了我的那个账号的Q了
我有个不明白的地方就是:
pwd = Hex2Base64(MD5(pwd, 32)) & "==" 这个最后为什么还要再添加"=="这个东西
MD5 作用是什么
Hex2Base64 作用是什么
/START QQUIN:XXXXXXX PWDHASH:" & pwd & " /STAT:41" 这个是启动QQ的命令吧,那个PWDHASH是不是必须要经过加密的密码才行,
然后自己也想做一个
在进行试验的时候发现如果在按钮控件事件中直接写入
Dim path As String
path = "D:\Program Files\Tencent\QQ\qq.exe"
Dim l As Long
l = Shell(path)
就可以打开QQ对话框了
我想进一步实现直接进行QQ
然后这样写
Dim path As String
path = "D:\Program Files\Tencent\QQ\qq.exe"
path = path & " /START QQUIN:XXXX PWDHASH:XXXX" & pwd & " /STAT:41"
Dim l As Long
l = Shell(path)
就出现了QQ正在登录的界面
不一会儿就出现一个平时我们只有输错密码才出现的对话框
然后我再研究了下那个源代码发现只能这样做才行
Dim path As String
path = "D:\Program Files\Tencent\QQ\qq.exe"
Dim pwd As String
pwd = "XXXXXXX"
pwd = Hex2Base64(MD5(pwd, 32)) & "=="
Print pwd
path = path & " /START QQUIN:XXXXXXX PWDHASH:" & pwd & " /STAT:41"
Dim l As Long
l = Shell(path)
这样我的QQ就可以正常的打开了我的那个账号的Q了
我有个不明白的地方就是:
pwd = Hex2Base64(MD5(pwd, 32)) & "==" 这个最后为什么还要再添加"=="这个东西
MD5 作用是什么
Hex2Base64 作用是什么
/START QQUIN:XXXXXXX PWDHASH:" & pwd & " /STAT:41" 这个是启动QQ的命令吧,那个PWDHASH是不是必须要经过加密的密码才行,