发布网友
发布时间：2022-04-20 08:37
共2个回答
热心网友
时间：2023-06-21 11:18
热心网友
时间：2023-06-21 11:19
追答
Private Sub Text1_Change()
Text2.Text = GetMac(TextBox1.Text)
End Sub
Function GetMac(str As String)
Dim arr1(12) As String
Dim arr2(12) As String
arr1(0) = "10.166.8.238"
arr2(0) = "00-12-D6-81-23-2B"
arr1(1) = "10.166.8.239"
arr2(1) = "00-12-D6-81-23-2D"
arr1(2) = "10.166.8.178"
arr2(2) = "00-12-D6-81-0F-0A"
arr1(3) = "10.166.8.179"
arr2(3) = "00-12-D6-81-11-AE"
arr1(4) = "10.166.4.206"
arr2(4) = "00-12-D6-81-57-A6"
arr1(5) = "10.166.4.207"
arr2(5) = "00-12-D6-81-57-A1"
arr1(6) = "10.166.0.1"
arr2(6) = "C4-CA-D9-B8-9D-00"
arr1(7) = "10.166.9.16"
arr2(7) = "00-12-D6-81-53-02"
arr1(8) = "10.166.9.15"
arr2(8) = "00-12-D6-81-53-05"
arr1(9) = "10.166.2.56"
arr2(9) = "00-12-D6-81-11-EC"
arr1(10) = "10.166.7.74"
arr2(10) = "00-12-D6-81-17-F1"
arr1(11) = "10.166.2.73"
arr2(11) = "00-12-D6-81-0A-D4"
arr1(12) = "10.166.7.117"
arr2(12) = "00-12-D6-81-17-7D"
字数超了，剩下的只能私信了。