(风流有话说有朋友问我,最近怎么原创文章少了。因为最近学习特有感觉,实在是太忙了!今天放假,赶紧写一篇,不然我的 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 = QQValue Text3.Text = StrQQPath & "QQ.exe" '原版 QQ Exit Sub 100 Text3.Text = "未安装 QQ" End Sub Private Sub imgTitleMinimize_Click() Me.WindowState = 1 End Sub Private Sub Text1_Change() Text2.Text = Str2QQPwdHash(Text1.Text) '当密码输入框变化时,QQPwdHash 文本框自动显示加密后的密码 End Sub Private Sub imgTitleClose_Click() Unload Me End Sub Private Sub imgTitleLeft_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) DoDrag Me '可以当标题栏拖动 End Sub Private Sub imgTitleMain_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) DoDrag Me '可以当标题栏拖动 End Sub Private Sub imgTitleRight_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) DoDrag Me '可以当标题栏拖动 End Sub Private 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 lpS...