BIFENG-REG-SYS-LEEHSIEHJUI/BIFENG-REG-SYS/BIFENG-REG-SYS.vb

Option Strict Off
Imports System.Data.SqlClient
Public Class Form1
    Dim conn As New SqlConnection
    Dim da As New SqlDataAdapter
    Dim cmd As New SqlCommand
    Dim ds As New DataSet
    Dim dr As SqlDataReader

    Dim SQL1 As String
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        網段.ShowDialog()
        If 不通 = True Then : Me.Close() : End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '-----MAC碼----------------------------------------------------------------------------------------------
        Dim Wmi As New Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")
        For Each WmiObj As Management.ManagementObject In Wmi.Get
            If CBool(WmiObj("IPEnabled")) Then
                TextBox1.Text = WmiObj("MACAddress")
            End If
        Next
        '-----硬碟資料----------------------------------------------------------------------------------------------
        Dim cmicWmi As New Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
        Dim diskId As String '数字ID
        Dim diskSerialNumber As String '这个我们暂且称其为序列号码
        Dim diskModel As String '序列号
        For Each cmicWmiObj As Management.ManagementObject In cmicWmi.Get
            diskId = cmicWmiObj("size")
            diskSerialNumber = cmicWmiObj("serialnumber")
            diskModel = cmicWmiObj("Model")
            TextBox2.Text = diskId
            TextBox3.Text = diskSerialNumber
            TextBox4.Text = diskModel
        Next
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        conn.Close()
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
        SQL1 = "SELECT MAC碼 FROM 系統綁定電腦資訊 WHERE MAC碼 LIKE N'" & TextBox1.Text & "' AND 硬碟ID LIKE N'" & TextBox2.Text & "' AND 
                硬碟序列 LIKE N'" & TextBox3.Text & "' AND 磁盘型態 LIKE N'" & TextBox4.Text & "'"
        cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
        If dr.Read() Then
            conn.Close()
            MsgBox("該電腦以綁定過")
        Else
            conn.Close()
            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
            SQL1 = "INSERT INTO 系統綁定電腦資訊 (MAC碼, 硬碟ID, 硬碟序列, 磁盘型態) " &
                  "VALUES (N'" & TextBox1.Text & "',N'" & TextBox2.Text & "',N'" & TextBox3.Text & "',N'" & TextBox4.Text & "')"
            cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
            MsgBox("新增完成")
        End If
    End Sub
End Class