谢谢，网络方面，谢谢，我爱你们
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim siteResponds As Boolean = False
Dim i As Short
For i = 1 To 255
Label1.Text = i
siteResponds = My.Computer.Network.Ping( "192.168.1. " & i.ToString)
If siteResponds = True Then
MsgBox( "192.168.1. " & i.ToString & "连通 ")
'Else
' MsgBox( "192.168.1. " & i.ToString & "连不通 ")
End If
Next i
MsgBox( "over ")

End Sub
我的路由器是1，我是2，为什么过了2后label1就没了变化，程序也（没有响应），还有，怎么得到自己的IP

[解决办法]
Imports System.Threading
Public Class Form1
Delegate Sub InvokeDelegate()
Dim i As Short
Dim hh As Thread
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
hh = New Thread(AddressOf ping)
hh.Start()

End Sub

Private Sub ping()
Dim siteResponds As Boolean = False
Try
For i = 1 To 255
Label1.BeginInvoke(New InvokeDelegate(AddressOf updateinfo))
siteResponds = My.Computer.Network.Ping( "192.168.1. " & i.ToString)
If siteResponds = True Then
MsgBox( "192.168.1. " & i.ToString & "连通 ")
'Else
' MsgBox( "192.168.1. " & i.ToString & "连不通 ")
End If
Next i

Catch ex As Exception

End Try
MsgBox( "over ")
End Sub

Private Sub updateinfo()
Label1.Text = i
End Sub

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
hh.Abort()
End Sub
End Class


给分就行了，hoho