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

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

以记事本为例

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

相关问答

Q1: 如何使用VB.NET监控SQL，指定表中特定字段中有新的数据写入进来。谢谢！

这个监控不好弄。

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

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

Q2: vb.net 2008 怎样进入调试模式？怎样逐语句运行？怎样添加监视？

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

按F8即可逐语句运行

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

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

Q3: vb.net监控路径上的任一文件夹，当重命名时触发事件。

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就行了，用数组或其他方式创建。