一个用VB编写的监控别人上网的软件例子

最新推荐文章于 2007-08-16 08:53:46 发布

cnviolet

最新推荐文章于 2007-08-16 08:53:46 发布

阅读量991

点赞数

分类专栏： Visual Basic 文章标签： vb buffer string integer service function

本文链接：https://blog.csdn.net/cnviolet/article/details/9349

版权

该博客介绍了一个使用VB编写的程序，该程序能够监控IE浏览器的当前访问网址，并将其定时保存到文件。通过API函数获取窗口句柄，结合Winsock控件，可以实现远程监视和管理。程序还具备隐蔽运行的能力，可以注册为服务并在开机时自动启动。

摘要由CSDN通过智能技术生成

一、程序核心

　　本程序的核心是通过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，单击此命令按钮，并为其