如何使用vb 监控电脑活动记录

目录

• 主要函数
• 实现
• 开启自启动
• 运行

最近看到了一个日文版的监控电脑活动记录的软件，又在win 32 APi中看到了GetForegroundWindow函数，于是决定动动小手用vb写个监控电脑活动记录的小程序。

主要函数

实现

循环获取当前焦点所在窗口的标题，然后写入到日志文件中。最后设置开启自启动，隐藏命令行窗口。

Imports SystemImports System.ioModule Module1 PRivate Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long) 'Win32 Api Private Declare Function GetForegroundWindow Lib "user32" () As Long Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long  Sub Main()	   Dim BT As Boolean = True	 ' 保存标题文本  Dim stext As String	 ' 保存上一个窗口句柄	 Dim hwnd As Long	 ' 保存当前窗口句柄	 Dim curHwnd As Long	 ' 书写流写入日志文件	 Dim sw As StreamWrITer	 ' 日志文件保存路径	 Dim path As String = "c:\LOG.txt"	 	 ' 如果存在日志文件则跳过，否则创建一个日志文件	 If Not File.Exists(path) Then		 File.Create(path)	 End If	 	 sleep(3000)	 	 ' 这里是个死循环 	 While bt	 	  stext = Space(255)		 ' 获取当前窗口句柄		 hwnd = GetForegroundWindow		 		 ' 如果当前是新窗口则写入新窗口标题		 If hwnd >
 curHwnd Then 		  curHwnd = hwnd				' 获取窗口标题				GetWindowText(hwnd,stext,255)								sw = System.IO.File.ApPEndText(path)								' 写入新窗口标题,格式 yyyy年mm月dd日 hh:hh:ss + 标题				Using sw					sw.WriteLine(String.Format("{
0:F}
    ", DateTime.Now) +" "+ stext) 					sw.Flush() 				End Using								 End If   sleep(2000)		   End While	  End SubEnd Module

开启自启动

新建一个listener.vbs文件（其中C:\listener.exe是vb编译后的文件路径，Run参数0表示隐藏命令行窗口）：

Dim ws set ws = WScript.createObject("WScript.shell") ws.Run "C:\listener.exe", 0, TRUE

1. 运行 -> shell:startup

2. 开始菜单 -> 程序 -> 启动

3. 运行 -> gpedit.msc

4. 启动 -> 开机中添加listener.vbs脚本

运行

重启电脑后我们可以再任务管理器中看到运行的脚本

然后查看日志文件C:\log.txt

需要关闭结束进程即可

以上就是如何使用vb 监控电脑活动记录的详细内容，更多关于vb 监控电脑活动记录的资料请关注其它相关文章！

• vbs定期监控 值个班，定期瞄一下
• 磁盘IO利用率监控VBS脚本(windows)
• VBScript 监控并结束指定进程的代码
• VBScript 监控磁盘更改事件实现代码
• VBS监控CPU的使用率(如占用率一直维持在80%超过30秒则运行某程序)
• 网络接口利用率监控VBS脚本代码（Windows）
• 进程监控实现代码[vbs+bat]
• 用VBS调用程序并对程序的运行情况进行监控的两个代码

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！