189 8069 5689
你的编程思维不太清晰。首先你可以定义一个全局逻辑，b线程里，对txt操作，就等于真，结束代码后就让它等于假。然后a就可以判断逻辑变量来确定b的流程
创新互联专注于常宁网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供常宁营销型网站建设，常宁网站制作、常宁网页设计、常宁网站官网定制、成都微信小程序服务，打造常宁网络公司原创品牌,更为您提供常宁网站排名全网营销落地服务。
这个监控不好弄。
我想的办法就是你写一个触发器，只要有新增的数据，就同时增加到另一个临时表，然后再 VB.NET 里用计时器，每隔几秒就对那个临时表读一次。如果有新增的，就会有提示。
如果不愿写触发器，也可以直接在 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
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就行了，用数组或其他方式创建。