随笔分类 -  Vb6

利用VB远线程注入技术实现键盘拦截的例子(无DLL)
摘要：从网上搜集到的VB代码，用EXE方式实现了远程注入，不过在反病毒软件的保护下，有可能导致注入失败。转贴这个代码，仅供大家学习和参考。 一、窗口代码： view plain copy to clipboard print ? OptionExplicit ... 阅读全文
posted @ 2010-05-27 02:40 wl666lw 阅读(1843) 评论(0) 推荐(0) 编辑
VB HOOK(钩子)超级无敌详细用法
摘要：hook是WINDOWS提供的一种消息处理机制，它使得程序员可以使用子过程来监视系统消息，并在消息到达目标过程前得到处理。 下面将介绍WINNDOWS HOOKS并且说明如何在WINDOWS 程序中使用它。 关于HOOKS 使用HOOK 将会降低系统效率，因为它增加了系统处量消息的工作量。建议... 阅读全文
posted @ 2010-05-26 11:30 wl666lw 阅读(7509) 评论(0) 推荐(0) 编辑
VB6 根据进程ID(PID)获取窗体句柄
摘要：模块代码： Option Explicit Private Const GW_HWNDNEXT = 2 Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Funct... 阅读全文
posted @ 2010-05-26 11:19 wl666lw 阅读(5627) 评论(0) 推荐(0) 编辑
获取QQ群用户列表
摘要：VERSION 5.00 Begin VB.Form frmMain Caption = "Form1" ClientHeight = 3090 ClientLeft = 60 ClientTop = 450 ClientWidth = 4680 LinkTopic = "Form1" ScaleH... 阅读全文
posted @ 2010-02-25 11:22 wl666lw 阅读(880) 评论(0) 推荐(0) 编辑
VB6 中使用 Shell 实现压缩和解压缩 (Zip 或 Rar)
摘要：Private Sub ZipOrRar() '将C盘的test文件夹压缩为test.rar文件 Shell App.Path + "\WinRar.exe M C:\test.rar C:\test" End Sub Private Sub UnZipOrRar() '将test.rar解压缩在... 阅读全文
posted @ 2010-02-25 11:11 wl666lw 阅读(2951) 评论(0) 推荐(0) 编辑




点击右上角即可分享
微信分享提示