这期内容当中小编将会给大家带来有关使用vb怎么监控电脑的活动记录，文章内容丰富且以专业的角度为大家分析和叙述，阅读完这篇文章希望大家可以有所收获。
主要函数
| 函数名 | 参数 | 返回值 |
|---|---|---|
| GetForegroundWindow(void) | 无 | 当前窗口的句柄 |
| GetWindowText(HWND hWnd，LPTSTR lpString，Int nMaxCount) | hWnd:窗口句柄 lpString:接收窗口文本的缓冲区的指针 nMaxCount:指定缓冲区中的最大字符数 | 如果成功则返回字符串的字符个数。如果窗口无栏或文本，或栏为空，或窗口或控制的句柄无效，则返回值为零。 |
实现
循环获取当前焦点所在窗口的，然后写入到日志文件中。最后设置开启自启动，隐藏命令行窗口。
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 swsw.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运行 -> shell:startup
开始菜单 -> 程序 -> 启动
运行 -> gpedit.msc
启动 -> 开机中添加listener.vbs脚本
运行
重启电脑后我们可以再任务管理器中看到运行的脚本
然后查看日志文件C:\log.txt
上述就是小编为大家分享的使用vb怎么监控电脑的活动记录了，如果刚好有类似的疑惑，不妨参照上述分析进行理解。如果想知道更多相关知识，欢迎关注编程网行业资讯频道。
