'主題：如何檢測硬體連線，如何取得主機名稱，使用者名稱，IP，如何得知網卡是否正常運作。
'網路連線：指硬體是否可正確，可否正常連接網路而言，和IP正確設定與否無關。
'本機ｉｐ：內定使用127.0.0.1
' 使用名稱：localhost
' 或當你在網卡設定了區域私有IP,如192.168.*.*
'有關私有IP：稱Private IP,只能用在區域網路上，無法當成網際網路上的IP。
'可設定的範圍：A Class：10.0.0.0 - 10.255.255.255
' B Class：172.16.0.0 - 172.31.255.255
' C Class：192.168.0.0 - 192.168.255.255
'Ping：檢測網路是否暢通的方法，丟出封包-->檢驗接收封包
檔案下載：從Hinet下載
Public Class 網路檢測
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If My.Computer.Network.IsAvailable = False Then
TextBox1.Text = "網路未連線!請檢查網路線是否妥當連接!"
Else
TextBox1.Text = "網路連線正常!!"
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim MyUser As String = My.User.Name
TextBox2.Text = MyUser
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim isAdmin As Boolean
isAdmin = My.User.IsInRole("administrators")
If isAdmin Then
TextBox3.Text = "是，具管理員身份!"
Else
TextBox3.Text = "不是，不具管理員身份!"
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim HostName As String = System.Net.Dns.GetHostName
TextBox4.Text = HostName
End Sub
Private Sub Button5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If My.Computer.Network.Ping("localhost") Then
TextBox5.Text = "網卡測試ｏｋ！"
Else
TextBox5.Text = "網卡沒有回應！"
End If
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim HostName As String = System.Net.Dns.GetHostName
ListBox1.Items.Clear() '刪除內容
For Each item As System.Net.IPAddress In System.Net.Dns.GetHostEntry(HostName).AddressList
ListBox1.Items.Add(item.ToString())
Next
End Sub
End Class
文章定位：
