你的編程思維不太清晰。首先你可以定義一個全局邏輯,b線程里,對txt操作,就等于真,結束代碼后就讓它等于假。然后a就可以判斷邏輯變量來確定b的流程
創(chuàng)新互聯(lián)專注于常寧網(wǎng)站建設服務及定制,我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗。 熱誠為您提供常寧營銷型網(wǎng)站建設,常寧網(wǎng)站制作、常寧網(wǎng)頁設計、常寧網(wǎng)站官網(wǎng)定制、成都微信小程序服務,打造常寧網(wǎng)絡公司原創(chuàng)品牌,更為您提供常寧網(wǎng)站排名全網(wǎng)營銷落地服務。
這個監(jiān)控不好弄。
我想的辦法就是你寫一個觸發(fā)器,只要有新增的數(shù)據(jù),就同時增加到另一個臨時表,然后再 VB.NET 里用計時器,每隔幾秒就對那個臨時表讀一次。如果有新增的,就會有提示。
如果不愿寫觸發(fā)器,也可以直接在 VB.NET 里寫上語句,將你需要監(jiān)控的幾個字段內(nèi)容先保存起來,然后再用最新讀取的紀錄進行比對,這樣也行。
以記事本為例
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("無法執(zhí)行文件 " ProcessPath, "錯誤")
End Try
End Sub
'監(jiān)視程序就可以了,若果監(jiān)視別的窗體的話,用SPY++ 找到句柄,配合FindWindowEx,SendMessage根據(jù)其屬性做
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ShellAndWait("Notepad.exe")
MessageBox.Show("筆記本被關閉后我才會出現(xiàn)")
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‘監(jiān)控文件夾和文件。
FileSystemWatcher1.IncludeSubdirectories = True’監(jiān)控子文件夾
End Sub
Private Sub FileSystemWatcher1_Renamed(sender As Object, e As IO.RenamedEventArgs) Handles FileSystemWatcher1.Renamed
MsgBox(e.FullPath vbCrLf e.Name)
End Sub'捕獲新路徑
你監(jiān)控test不就好了,若要排除其他文件夾,IncludeSubdirectories 設為假,用多個FileSystemWatcher就行了,用數(shù)組或其他方式創(chuàng)建。