电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

VB制作防盗QQ登陆器VIP免费

VB制作防盗QQ登陆器_第1页
1/17
VB制作防盗QQ登陆器_第2页
2/17
VB制作防盗QQ登陆器_第3页
3/17
(风流有话说有朋友问我,最近怎么原创文章少了。因为最近学习特有感觉,实在是太忙了!今天放假,赶紧写一篇,不然我的 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...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

VB制作防盗QQ登陆器

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部