vb.net运行并监控,vbs监控进程的脚本

vb.net中如何设计一个监控程序？

以记事本为例

成都创新互联10多年成都定制网站服务;为您提供网站建设,网站制作,网页设计及高端网站定制服务,成都定制网站及推广,对成都水处理设备等多个方面拥有多年的网站设计经验的网站建设公司。

Public Class Form1

Public Sub ShellAndWait(ByVal ProcessPath As String)

Dim objProcess As System.Diagnostics.Process

Try

objProcess = New System.Diagnostics.Process()

objProcess.StartInfo.FileName = ProcessPath

objProcess.StartInfo.WindowStyle = ProcessWindowStyle.Normal

objProcess.Start()

objProcess.WaitForExit()

objProcess.Close()

Catch

MessageBox.Show("无法执行文件 " ProcessPath, "错误")

End Try

End Sub

'监视程序就可以了，若果监视别的窗体的话，用SPY++ 找到句柄，配合FindWindowEx，SendMessage根据其属性做

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

ShellAndWait("Notepad.exe")

MessageBox.Show("笔记本被关闭后我才会出现")

End Sub

End Class

这个监控不好弄。

我想的办法就是你写一个触发器，只要有新增的数据，就同时增加到另一个临时表，然后再 VB.NET 里用计时器，每隔几秒就对那个临时表读一次。如果有新增的，就会有提示。

如果不愿写触发器，也可以直接在 VB.NET 里写上语句，将你需要监控的几个字段内容先保存起来，然后再用最新读取的纪录进行比对，这样也行。

在VB环境中执行源代码，本身就是调试模式

按F8即可逐语句运行

点击语句左端空白处，将其背景色变为深红，就是添加断点，运行到该语句会停下来

可以在变量、对象等语句上点击右键，选择“添加监视”即可

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

FileSystemWatcher1.NotifyFilter = IO.NotifyFilters.DirectoryName Or IO.NotifyFilters.FileName‘监控文件夹和文件。

FileSystemWatcher1.IncludeSubdirectories = True’监控子文件夹

End Sub

Private Sub FileSystemWatcher1_Renamed(sender As Object, e As IO.RenamedEventArgs) Handles FileSystemWatcher1.Renamed

MsgBox(e.FullPath vbCrLf e.Name)

End Sub'捕获新路径

你监控test不就好了，若要排除其他文件夹，IncludeSubdirectories 设为假，用多个FileSystemWatcher就行了，用数组或其他方式创建。

分享文章：vb.net运行并监控,vbs监控进程的脚本
浏览路径：http://cdiso.cn/article/dssecoe.html