你的編程思維不太清晰。首先你可以定義一個全局邏輯,b線程里,對txt操作,就等于真,結束代碼后就讓它等于假。然后a就可以判斷邏輯變量來確定b的流程
創新互聯建站是一家專業提供瑞金企業網站建設,專注與網站制作、成都網站建設、H5高端網站建設、小程序制作等業務。10年已為瑞金眾多企業、政府機構等服務。創新互聯專業網站設計公司優惠進行中。
Microsoft.VisualBasic.Devices.Network.IsAvailable As Boolean
生成實例后可以通過此屬性來獲取是否聯網的值,True代表已聯網,False代表沒有聯網
Microsoft.VisualBasic.Devices.Network.NetworkAvailabilityChanged(ByVal Object, ByVal Microsoft.VisualBasic.Devices.NetworkAvailableEventArgs)
該事件是在電腦斷開/連上互聯網是引發的
其中:
e.IsNetworkAvailable
的功能同Microsoft.VisualBasic.Devices.Network.IsAvailable
實例:
Dim?netListener?As?New?Microsoft.VisualBasic.Devices.Network?'生成實例
If?netListener.IsAvailable?=?True?Then
MsgBox("已聯網")
Else
MsgBox("未聯網")
End?If
NetworkAvailabilityChanged實例:
WithEvents?netListener?As?New?Microsoft.VisualBasic.Devices.Network?'生成實例
Private?Sub?OnNetworkChanged(ByVal?Object,?ByVal?Microsoft.VisualBasic.Devices.NetworkAvailableEventArgs)Handles?netListener.NetworkAvailabilityChanged
If?e.IsNetworkAvailable?=?True?Then
MsgBox("已聯網")
Else
MsgBox("未聯網")
End?If
End?Sub
以記事本為例
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
分享文章:包含vb.net網絡監聽的詞條
網站地址:http://m.kartarina.com/article32/hegdpc.html
成都網站建設公司_創新互聯,為您提供App開發、響應式網站、App設計、關鍵詞優化、網站維護、全網營銷推廣
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯