Imports System.Net Public Class 網段 Dim HostName As String Dim IPAdress As IPAddress Dim MYIP As String Private Sub 網段_Load(sender As Object, e As EventArgs) Handles MyBase.Load Copyright.Text = "著作權 - 工巧明智能設備有限公司所有" HostName = Dns.GetHostName '获得本机的机器名 IPAdress = Dns.GetHostByName(HostName).AddressList.GetValue(0) '获得本机的IP MYIP = IPAdress.ToString Label6.Text = MYIP End Sub Private Sub 內網_bt_Click(sender As Object, e As EventArgs) Handles 內網_bt.Click 登入判斷 = True : 內外網 = False : Me.Close() End Sub Private Sub 設計_bt_Click(sender As Object, e As EventArgs) Handles 設計_bt.Click 登入判斷 = False : 內外網 = False : Me.Close() End Sub Private Sub 外網_bt_Click(sender As Object, e As EventArgs) Handles 外網_bt.Click 登入判斷 = True : 內外網 = True : Me.Close() End Sub End Class