MAOJI-REG-SYS-LEEHSIEHJUI/MAOJI-REG-SYS/Form1.vb

Imports System.Net
Public Class 網段
    Dim HostName As String
    Dim IPAdress As IPAddress
    Dim MYIP As String
    <Obsolete>
    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