| 个用VB编写的监控别人上网的软件例子 |
|
| 作者：未知 文章来源：网络收集 点击数： 更新时间：2006-3-29 15:22:41
|
一、程序核心
本程序的核心是通过API函数获得窗口句柄并获得浏览器访问的网址，在此基础上可以实现用Winsock控件进行远程的监视和管理。
1.先创建一个工程并在窗口Form1中，并声明下面的四个API函数和两个常量：
Option Explicit Private Declare Function FindWindow Lib ″user32″ Alias ″FindWindowA″ (ByVal lpCl assName As String， ByVal lpWindowName As String) As Long
′Findwindow函数的功能是找到当前运行的IE窗口的url地址的句柄
Private Declare Function SendMessage Lib ″user32″ Alias ″SendMessageA″ (ByVal hwnd As Long， ByVal wMsg As Long， ByVal wParam As Long， lParam As Long) As Long
′SendMessage函数的功能是向操作系统发送一条消息
Private Declare Function FindWindowEx Lib ″user32″ Alias ″FindWindowExA″ (ByVal hWnd1 As Long，ByVal hWnd2 As Long， ByVal lpsz1 As String， ByVal lpsz2 As String) As Long
′FindwindowEx函数的功能是找到子窗体的句柄
Private Declare Function SendMessageByString Lib ″user32″ Alias ″SendMessageA″ (ByVal hwnd As Long， ByVal wMsg As Long， ByVal wParam As Long， ByVal lParam As String) As Long
Private Const WM_GETTEXT = ＆HD
Private Const WM_GETTEXTLENGTH = ＆HE
2.在窗体上添加Command控件，并命名为GetURLstring，单击此命令按钮，并为其添加下面的程序代码：
Private Sub GetURLstring_Click()
On Error GoTo CallErrorA
Dim sClassName As String ′设定一个字符串变量，是类变量
Dim lhwnd As Long ′设定一个长整形变量用来接收函数返回值
Dim WindowHandle As Long ′设定一个长整形变量用来接收函数的返回句柄
lhwnd = 0
sClassName = (″IEFrame″)
lhwnd = FindWindowEx(lhwnd， 0， sClassName， vbNullString) ′获得URL地址栏的句柄，获得IE窗口的句柄
sClassName = (″WorkerA″)
lhwnd = FindWindowEx(lhwnd， 0， sClassName， vbNullString) ′获得IE窗口的工作区的句柄
sClassName = (″ReBarWindow32″)
lhwnd = FindWindowEx(lhwnd， 0， sClassName， vbNullString) ′获得IE窗口的菜单栏的句柄
sClassName = (″ComboBoxEx32″)
lhwnd = FindWindowEx(lhwnd， 0， sClassName， vbNullString) ′获得IE窗口的下拉菜单的句柄
sClassName = (″ComboBox″)
lhwnd = FindWindowEx(lhwnd， 0， sClassName， vbNullString) ′获得IE窗口的下拉菜单当前项的句柄
sClassName = (″Edit″)
lhw[1] [2] [3] 下一页
|
|
[ 收藏此页到: 天天|和讯|博采|ViVi|狐摘|我摘|天极 ] 文章录入：kinda 责任编辑：kinda |
|
上一篇文章： 过滤霸主3.1 破解手记
下一篇文章： 何谓破解 |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
用户登录 
新用户注册 
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）