formmain.frm

一个51单片机网卡的IP地址设置界面程序

Call ShellExecute(hwnd, "Open", "http://www.hlzn.com", "", App.Path, 1)


End Sub

Private Sub Label19_Click()

List1.Clear
End Sub

Private Sub Label19_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
    Image14.Picture = Image16.Picture
End If

End Sub

Private Sub Label19_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
    Image14.Picture = Image15.Picture
End If

End Sub

Private Sub sckclient_DataArrival(ByVal bytesTotal As Long)
Dim INDAT() As Byte
Dim MAC As String

Dim POS As Integer
Dim w As Byte
Dim q As Byte


 On Error GoTo ipscanErr                 '避免程序运行错误，发生死机
sckclient.GetData INDAT()


w = INDAT(0)
q = INDAT(1)
Text28.Text = Hex(w)

Text1.Text = Hex(INDAT(0))
Text2.Text = Hex(INDAT(1))
Text3.Text = Hex(INDAT(2))
Text4.Text = Hex(INDAT(3))
Text5.Text = Hex(INDAT(4))
Text6.Text = Hex(INDAT(5))


Text7.Text = INDAT(6)
Text8.Text = INDAT(7)
Text9.Text = INDAT(8)
Text10.Text = INDAT(9)

Text19.Text = INDAT(12)
Text20.Text = INDAT(13)
Text21.Text = INDAT(14)
Text22.Text = INDAT(15)

Text23.Text = (INDAT(16) * 256 + INDAT(17))

Text11.Text = INDAT(18)
Text12.Text = INDAT(19)
Text13.Text = INDAT(20)
Text14.Text = INDAT(21)

Text15.Text = INDAT(22)
Text16.Text = INDAT(23)
Text17.Text = INDAT(24)
Text18.Text = INDAT(25)


'Text11.Text = INDAT(10)
'Text12.Text = INDAT(11)

Combo1.ListIndex = INDAT(26) - 1


MAC = Hex(INDAT(0)) & "-" & Hex(INDAT(1)) & "-" & Hex(INDAT(2)) & "-" & Hex(INDAT(3)) & "-" & Hex(INDAT(4)) & "-" & Hex(INDAT(5)) & " " & INDAT(6) & "." & INDAT(7) & "." & INDAT(8) & "." & INDAT(9)


Text28.Text = MAC

List1.AddItem MAC, 0






Exit Sub


ipscanErr:
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > Asc("9") And (KeyAscii < Asc("A") Or KeyAscii > Asc("F")) And (KeyAscii < Asc("a") Or KeyAscii > Asc("f")) Then
  KeyAscii = 0
 End If
 

 
 
End Sub

Private Sub Text10_Change()
Static mydang As Integer
 
 If Val(Text10.Text) > 255 Then
 Text10.Text = ""
 mydang = MsgBox("请输入0-255之中的数字", vbExclamation, "输入错误")
 If mydang = 6 Then
 End If
 
 End If

End Sub

Private Sub Text10_KeyPress(KeyAscii As Integer)
 If KeyAscii > Asc("9") Then
  KeyAscii = 0
 End If
End Sub



Private Sub Text11_Change()
Static mydang As Integer
 
 If Val(Text11.Text) > 255 Then
 Text11.Text = ""
 mydang = MsgBox("请输入0-255之中的数字", vbExclamation, "输入错误")
 If mydang = 6 Then
 End If
 
 End If

End Sub

Private Sub Text11_KeyPress(KeyAscii As Integer)
 If KeyAscii > Asc("9") Then
  KeyAscii = 0
 End If
End Sub

Private Sub Text12_Change()
Static mydang As Integer
 
 If Val(Text12.Text) > 255 Then
 Text12.Text = ""
 mydang = MsgBox("请输入0-255之中的数字", vbExclamation, "输入错误")
 If mydang = 6 Then
 End If
 
 End If

End Sub

Private Sub Text12_KeyPress(KeyAscii As Integer)
 If KeyAscii > Asc("9") Then
  KeyAscii = 0
 End If
End Sub

Private Sub Text13_Change()
Static mydang As Integer
 
 If Val(Text13.Text) > 255 Then
 Text13.Text = ""
 mydang = MsgBox("请输入0-255之中的数字", vbExclamation, "输入错误")
 If mydang = 6 Then
 End If
 
 End If

End Sub

Private Sub Text13_KeyPress(KeyAscii As Integer)
 If KeyAscii > Asc("9") Then
  KeyAscii = 0
 End If
End Sub

Private Sub Text14_Change()
Static mydang As Integer
 
 If Val(Text14.Text) > 255 Then
 Text14.Text = ""
 mydang = MsgBox("请输入0-255之中的数字", vbExclamation, "输入错误")
 If mydang = 6 Then
 End If
 
 End If

End Sub

Private Sub Text14_KeyPress(KeyAscii As Integer)
 If KeyAscii > Asc("9") Then
  KeyAscii = 0
 End If
End Sub

Private Sub Text15_Change()
Static mydang As Integer
 
 If Val(Text15.Text) > 255 Then
 Text15.Text = ""
 mydang = MsgBox("请输入0-255之中的数字", vbExclamation, "输入错误")
 If mydang = 6 Then
 End If
 
 End If

End Sub

Private Sub Text15_KeyPress(KeyAscii As Integer)
 If KeyAscii > Asc("9") Then
  KeyAscii = 0
 End If
End Sub

Private Sub Text16_Change()
Static mydang As Integer
 
 If Val(Text16.Text) > 255 Then
 Text16.Text = ""
 mydang = MsgBox("请输入0-255之中的数字", vbExclamation, "输入错误")
 If mydang = 6 Then
 End If
 
 End If

End Sub

Private Sub Text16_KeyPress(KeyAscii As Integer)
 If KeyAscii > Asc("9") Then
  KeyAscii = 0
 End If
End Sub

Private Sub Text17_Change()
Static mydang As Integer
 
 If Val(Text17.Text) > 255 Then
 Text17.Text = ""
 mydang = MsgBox("请输入0-255之中的数字", vbExclamation, "输入错误")
 If mydang = 6 Then
 End If
 
 End If

End Sub

Private Sub Text17_KeyPress(KeyAscii As Integer)
 If KeyAscii > Asc("9") Then
  KeyAscii = 0
 End If
End Sub

Private Sub Text18_Change()
Static mydang As Integer
 
 If Val(Text18.Text) > 255 Then
 Text18.Text = ""
 mydang = MsgBox("请输入0-255之中的数字", vbExclamation, "输入错误")
 If mydang = 6 Then
 End If
 
 End If

End Sub

Private Sub Text18_KeyPress(KeyAscii As Integer)
 If KeyAscii > Asc("9") Then
  KeyAscii = 0
 End If
End Sub

Private Sub Text19_Change()
Static mydang As Integer
 
 If Val(Text19.Text) > 255 Then
 Text19.Text = ""
 mydang = MsgBox("请输入0-255之中的数字", vbExclamation, "输入错误")
 If mydang = 6 Then
 End If
 
 End If

End Sub

Private Sub Text19_KeyPress(KeyAscii As Integer)

 If KeyAscii > Asc("9") Then
  KeyAscii = 0
 End If
 
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii > Asc("9") And (KeyAscii < Asc("A") Or KeyAscii > Asc("F")) And (KeyAscii < Asc("a") Or KeyAscii > Asc("f")) Then
  KeyAscii = 0
 End If

End Sub

Private Sub Text20_Change()
Static mydang As Integer
 
 If Val(Text20.Text) > 255 Then
 Text20.Text = ""
 mydang = MsgBox("请输入0-255之中的数字", vbExclamation, "输入错误")
 If mydang = 6 Then
 End If
 
 End If

End Sub

Private Sub Text20_KeyPress(KeyAscii As Integer)
 If KeyAscii > Asc("9") Then
  KeyAscii = 0
 End If
End Sub

Private Sub Text21_Change()
Static mydang As Integer
 
 If Val(Text21.Text) > 255 Then
 Text21.Text = ""
 mydang = MsgBox("请输入0-255之中的数字", vbExclamation, "输入错误")
 If mydang = 6 Then
 End If
 
 End If

End Sub

Private Sub Text21_KeyPress(KeyAscii As Integer)
 If KeyAscii > Asc("9") Then
  KeyAscii = 0
 End If
End Sub

Private Sub Text22_Change()
Static mydang As Integer
 
 If Val(Text22.Text) > 255 Then
 Text22.Text = ""
 mydang = MsgBox("请输入0-255之中的数字", vbExclamation, "输入错误")
 If mydang = 6 Then
 End If
 
 End If

End Sub

Private Sub Text22_KeyPress(KeyAscii As Integer)
 If KeyAscii > Asc("9") Then
  KeyAscii = 0
 End If
End Sub

Private Sub Text23_KeyPress(KeyAscii As Integer)
 If KeyAscii > Asc("9") Then
  KeyAscii = 0
 End If
End Sub

Private Sub Text24_Change()
Static mydang As Integer
 
 If Val(Text24.Text) > 255 Then
 Text24.Text = ""
 mydang = MsgBox("请输入0-255之中的数字", vbExclamation, "输入错误")
 If mydang = 6 Then
 End If
 
 End If
End Sub

Private Sub Text24_KeyPress(KeyAscii As Integer)
If KeyAscii > Asc("9") Then
  KeyAscii = 0
 End If
End Sub

Private Sub Text25_Change()
Static mydang As Integer
 
 If Val(Text25.Text) > 255 Then
 Text25.Text = ""
 mydang = MsgBox("请输入0-255之中的数字", vbExclamation, "输入错误")
 If mydang = 6 Then
 End If
 
 End If
End Sub

Private Sub Text25_KeyPress(KeyAscii As Integer)
If KeyAscii > Asc("9") Then
  KeyAscii = 0
 End If
End Sub

Private Sub Text26_Change()
Static mydang As Integer
 
 If Val(Text26.Text) > 255 Then
 Text26.Text = ""
 mydang = MsgBox("请输入0-255之中的数字", vbExclamation, "输入错误")
 If mydang = 6 Then
 End If
 
 End If
End Sub

Private Sub Text26_KeyPress(KeyAscii As Integer)
If KeyAscii > Asc("9") Then
  KeyAscii = 0
 End If
End Sub

Private Sub Text27_Change()
Static mydang As Integer
 
 If Val(Text27.Text) > 255 Then
 Text27.Text = ""
 mydang = MsgBox("请输入0-255之中的数字", vbExclamation, "输入错误")
 If mydang = 6 Then
 End If
 
 End If
End Sub

Private Sub Text27_KeyPress(KeyAscii As Integer)
If KeyAscii > Asc("9") Then
  KeyAscii = 0
 End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii > Asc("9") And (KeyAscii < Asc("A") Or KeyAscii > Asc("F")) And (KeyAscii < Asc("a") Or KeyAscii > Asc("f")) Then
  KeyAscii = 0
 End If

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii > Asc("9") And (KeyAscii < Asc("A") Or KeyAscii > Asc("F")) And (KeyAscii < Asc("a") Or KeyAscii > Asc("f")) Then
  KeyAscii = 0
 End If

End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii > Asc("9") And (KeyAscii < Asc("A") Or KeyAscii > Asc("F")) And (KeyAscii < Asc("a") Or KeyAscii > Asc("f")) Then
  KeyAscii = 0
 End If

End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer)
If KeyAscii > Asc("9") And (KeyAscii < Asc("A") Or KeyAscii > Asc("F")) And (KeyAscii < Asc("a") Or KeyAscii > Asc("f")) Then
  KeyAscii = 0
 End If

End Sub

Private Sub Text7_Change()
Static mydang As Integer
 
 If Val(Text7.Text) > 255 Then
 Text7.Text = ""
 mydang = MsgBox("请输入0-255之中的数字", vbExclamation, "输入错误")
 If mydang = 6 Then
 End If
 
 End If

End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer)
 If KeyAscii > Asc("9") Then
  KeyAscii = 0
 End If
End Sub

Private Sub Text8_Change()
Static mydang As Integer
 
 If Val(Text8.Text) > 255 Then
 Text8.Text = ""
 mydang = MsgBox("请输入0-255之中的数字", vbExclamation, "输入错误")
 If mydang = 6 Then
 End If
 
 End If

End Sub

Private Sub Text8_KeyPress(KeyAscii As Integer)
 If KeyAscii > Asc("9") Then
  KeyAscii = 0
 End If
End Sub

Private Sub Text9_Change()
Static mydang As Integer
 
 If Val(Text9.Text) > 255 Then
 Text9.Text = ""
 mydang = MsgBox("请输入0-255之中的数字", vbExclamation, "输入错误")
 If mydang = 6 Then
 End If
 
 End If

End Sub

Private Sub Text9_KeyPress(KeyAscii As Integer)
 If KeyAscii > Asc("9") Then
  KeyAscii = 0
 End If
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False

End Sub