VB制作防盗QQ登陆器.doc

（风流有话说有朋友问我，最近怎么原创文章少了。因为最近学习特有感觉，实在是太忙了！今天放假，赶紧写一篇，不然我的BLOG的流量一天比一天少了...） QQ防盗登陆器以前有人做过，其原理非常简单，就是利用QQ的命令登录方式来防止键盘记录器记录，QQ命令行启动方式：QQ.exe /START QQUIN:QQ号码 PWDHASH:加密后的QQ密码 /STAT:登陆状态(40隐身，41正常).这样的小程序用VB就可实现。 现做好界面 主框代码： Private Sub Form_Load() MakeWindow form1, True 美化登陆器界面 AlwaysOnTop Me, True imgTitleMaxRestore.Picture = imgTitleMaximize.Picture Check2.BackColor = RGB(207, 207, 207)Text3.BackColor = RGB(207, 207, 207) On Error GoTo 100 SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, H1 Or H2 设置登陆器窗口置顶 getvalue QQValue 读取QQ安装目录StrQQPath = QQValueText3.Text = StrQQPath QQ.exe 原版QQExit Sub100 Text3.Text = 未安装QQ End Sub Private Sub imgTitleMinimize_Click()Me.WindowState = 1End Sub Private Sub Text1_Change()Text2.Text = Str2QQPwdHash(Text1.Text) 当密码输入框变化时，QQPwdHash文本框自动显示加密后的密码 End Sub Private Sub imgTitleClose_Click() Unload MeEnd SubPrivate Sub imgTitleLeft_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) DoDrag Me 可以当标题栏拖动End SubPrivate Sub imgTitleMain_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) DoDrag Me 可以当标题栏拖动End SubPrivate Sub imgTitleRight_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) DoDrag Me 可以当标题栏拖动End SubPrivate Sub lblTitle_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) DoDrag Me 可以当标题栏拖动 End Sub Private Sub Text3_Change() End Sub 注释我已给出 以下是读取QQ安装目录Private Declare Function RegOpenKeyEx Lib advapi32.dll Alias RegOpenKeyExA (ByVal hkey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As LongPrivate Declare Function RegCloseKey Lib advapi32.dll (ByVal hkey As Long) As LongPrivate Declare Function RegQueryValueEx Lib advapi32.dll Alias RegQueryValueExA (ByVal hkey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As LongDim lbuffer As Long, sbuffer As Stri