以記事本為例
富川ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場(chǎng)景,ssl證書未來(lái)市場(chǎng)廣闊!成為創(chuàng)新互聯(lián)的ssl證書銷售渠道,可以享受市場(chǎng)價(jià)格4-6折優(yōu)惠!如果有意向歡迎電話聯(lián)系或者加微信:028-86922220(備注:SSL證書合作)期待與您的合作!
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("無(wú)法執(zhí)行文件 " ProcessPath, "錯(cuò)誤")
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)閉后我才會(huì)出現(xiàn)")
End Sub
End Class
給你個(gè)工程自己看...
運(yùn)行后可以看到自己...
點(diǎn)按鈕保存到c:\1.bmp
這個(gè)監(jiān)控不好弄。
我想的辦法就是你寫一個(gè)觸發(fā)器,只要有新增的數(shù)據(jù),就同時(shí)增加到另一個(gè)臨時(shí)表,然后再 VB.NET 里用計(jì)時(shí)器,每隔幾秒就對(duì)那個(gè)臨時(shí)表讀一次。如果有新增的,就會(huì)有提示。
如果不愿寫觸發(fā)器,也可以直接在 VB.NET 里寫上語(yǔ)句,將你需要監(jiān)控的幾個(gè)字段內(nèi)容先保存起來(lái),然后再用最新讀取的紀(jì)錄進(jìn)行比對(duì),這樣也行。