以記事本為例
成都創(chuàng)新互聯(lián)10多年成都定制網(wǎng)站服務(wù);為您提供網(wǎng)站建設(shè),網(wǎng)站制作,網(wǎng)頁設(shè)計及高端網(wǎng)站定制服務(wù),成都定制網(wǎng)站及推廣,對成都水處理設(shè)備等多個方面擁有多年的網(wǎng)站設(shè)計經(jīng)驗的網(wǎng)站建設(shè)公司。
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("筆記本被關(guān)閉后我才會出現(xiàn)")
End Sub
End Class
這個監(jiān)控不好弄。
我想的辦法就是你寫一個觸發(fā)器,只要有新增的數(shù)據(jù),就同時增加到另一個臨時表,然后再 VB.NET 里用計時器,每隔幾秒就對那個臨時表讀一次。如果有新增的,就會有提示。
如果不愿寫觸發(fā)器,也可以直接在 VB.NET 里寫上語句,將你需要監(jiān)控的幾個字段內(nèi)容先保存起來,然后再用最新讀取的紀(jì)錄進(jìn)行比對,這樣也行。
在VB環(huán)境中執(zhí)行源代碼,本身就是調(diào)試模式
按F8即可逐語句運行
點擊語句左端空白處,將其背景色變?yōu)樯罴t,就是添加斷點,運行到該語句會停下來
可以在變量、對象等語句上點擊右鍵,選擇“添加監(jiān)視”即可
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 設(shè)為假,用多個FileSystemWatcher就行了,用數(shù)組或其他方式創(chuàng)建。
新聞標(biāo)題:vb.net運行并監(jiān)控,vbs監(jiān)控進(jìn)程的腳本
當(dāng)前網(wǎng)址:http://jinyejixie.com/article4/dssecoe.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供Google、、網(wǎng)站策劃、小程序開發(fā)、動態(tài)網(wǎng)站、網(wǎng)站制作
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)