[ゲ製作技術]-ゲーム製作メンバー募集スレ　７人目

[ゲ製作技術]-ゲーム� ..

261:名前は開発中のものです。
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

次ページ

続きを表示

1を表示