103 lines
3.0 KiB
VB.net
103 lines
3.0 KiB
VB.net
|
Imports System.Windows.Forms
|
|||
|
|
|
|||
|
|
Public Class FrmMACDialog
|
|||
|
|
Public FCsConfig As FrmCSeriesConfig
|
|||
|
|
Sub New(pathme As FrmCSeriesConfig)
|
|||
|
|
|
|||
|
|
' 此调用是设计器所必需的。
|
|||
|
|
InitializeComponent()
|
|||
|
|
FCsConfig = pathme
|
|||
|
|
' 在 InitializeComponent() 调用之后添加任何初始化。
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
Private Sub FrmMACDialog_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|||
|
|
Label49.Text = LanguageData.StringList(MultiLanguageDAL.StringEnum.MAC)
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub FrmMACDialog_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
|||
|
|
TextBox5.Text = Nothing
|
|||
|
|
TextBox5.Focus() '设置焦点
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
|
|||
|
|
Dim mac As String = TextBox5.Text
|
|||
|
|
If mac = Nothing Then
|
|||
|
|
MsgBox($"{LanguageData.StringList(MultiLanguageDAL.StringEnum.PleaseScanTheMACAddress)}！")
|
|||
|
|
Exit Sub
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
mac = mac.Replace(" ", "").Replace("-", "").Replace("_", "").Replace(" ", "")
|
|||
|
|
If mac.Length <> 12 Then
|
|||
|
|
MsgBox($"MAC数据长度不匹配！")
|
|||
|
|
Return
|
|||
|
|
End If
|
|||
|
|
For index = 0 To mac.Length - 1 Step 2
|
|||
|
|
Try
|
|||
|
|
Dim b1 As Byte = $"&H{mac.Substring(index, 2)}"
|
|||
|
|
Catch ex As Exception
|
|||
|
|
MsgBox($"MAC数据不合法！")
|
|||
|
|
Return
|
|||
|
|
End Try
|
|||
|
|
Next
|
|||
|
|
|
|||
|
|
Me.DialogResult = System.Windows.Forms.DialogResult.OK
|
|||
|
|
FCsConfig._IsOK = True
|
|||
|
|
Me.Close()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 显示窗体
|
|||
|
|
''' </summary>
|
|||
|
|
Public Sub ShowMyDialog()
|
|||
|
|
ShowDialog()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 获取MAC地址
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Public Function GetMACAddress() As Byte()
|
|||
|
|
Dim data As String = TextBox5.Text
|
|||
|
|
data = data.Replace(" ", "").Replace("-", "").Replace("_", "").Replace(" ", "")
|
|||
|
|
|
|||
|
|
Dim databuff As Byte() = GetStringToDataByte(data)
|
|||
|
|
Dim dbyte(3) As Byte
|
|||
|
|
Array.Copy(databuff, databuff.Length - 4, dbyte, 0, dbyte.Length)
|
|||
|
|
'Console.WriteLine($"MAC取出来的数据：{ByteToString(dbyte)}")
|
|||
|
|
|
|||
|
|
Return dbyte
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 字符串转换Byte数组
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="data"></param>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Public Function GetStringToDataByte(data As String) As Byte()
|
|||
|
|
Dim dataList As New List(Of Byte)
|
|||
|
|
|
|||
|
|
For index As Integer = 0 To data.Length - 1 Step 2
|
|||
|
|
dataList.Add($"&H{data.Substring(index, 2)}")
|
|||
|
|
Next
|
|||
|
|
Console.WriteLine($"取位： {ByteToString(dataList.ToArray)}")
|
|||
|
|
|
|||
|
|
Return dataList.ToArray
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
|
|||
|
|
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
|
|||
|
|
FCsConfig._IsOK = False
|
|||
|
|
Me.Close()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
End Class
|