Vb6 使用Visual Basic 6.0将十六进制数据发送到以太网或LAN

我想用它将十六进制数据发送到以太网或局域网。十六进制数据如下所示：

AB7745683ACB76B34E5FF5E99EBC5F878A6BC8E9DF9876BCEA89

在表单上，我有一个文本框，用户将在其中输入这些数据

如何使用Visual Basic 6.0将此十六进制数据发送到LAN或Ethernet？

'1带有以下内容的表单：
'1 form with:
'    1 textbox control: name=Text1
'    1 winsock control: name=Winsock1
Option Explicit

Private Sub Command1_Click()
  SendCmd Text1.Text
End Sub

Private Sub Form_Load()
  Text1.Text = "AB7745683ACB76B34E5FF5E99EBC5F878A6BC8E9DF9876BCEA89"
End Sub

Private Sub SendCmd(strHex As String)
  Dim strCmd As String
  With Winsock1
    'make sure we are connected
    DoConnect
    'convert hex to cmd
    strCmd = Hex2Cmd(strHex)
    'send cmd
    .SendData strCmd
  End With 'Winsock1
End Sub

Private Sub DoConnect()
  With Winsock1
    If .State <> sckConnected Then
      .Connect "192.168.98.17", 5001 'Destination IP address and port
      Do Until .State = sckConnected
        DoEvents
      Loop
    End If
  End With 'Winsock1
End Sub

Private Function Hex2Cmd(strHex As String) As String
  Dim intHex As Integer
  Dim strCmd As String
  strCmd = ""
  For intHex = 1 To Len(strHex) Step 2
    strCmd = strCmd & Chr$(Val("&H" & Mid$(strHex, intHex, 2)))
  Next intHex
  Hex2Cmd = strCmd
End Function

'1 textbox控件：name=Text1
'1 winsock控件：名称=Winsock1
选项显式
专用子命令1_Click（）
SendCmd Text1.Text
端接头
专用子表单_加载（）
Text1.Text=“AB7745683ACB76B34E5FF5E99EBC5F878A6BC8E9DF9876BCEA89”
端接头
私有子SendCmd（strHex作为字符串）
作为字符串的Dim strCmd
使用Winsock1
“确保我们有联系
文档连接
'将十六进制转换为cmd
strCmd=Hex2Cmd（strHex）
“发送命令
.SendData strCmd
以“Winsock1”结尾
端接头
专用子文档连接（）
使用Winsock1
如果.State SCK已连接，则
.连接“192.168.98.17”，5001'目标IP地址和端口
直到.State=sckConnected
多芬特
环
如果结束
以“Winsock1”结尾
端接头
私有函数Hex2Cmd（strHex作为字符串）作为字符串
整数
作为字符串的Dim strCmd
strCmd=“”
对于InEx=1到Len（strHex）步骤2
strCmd=strCmd&Chr$（Val（“&H”和Mid$（strHex，intHex，2）））
下一个在X
Hex2Cmd=strCmd
端函数

'1带有以下内容的表格：
'1 textbox控件：name=Text1
'1 winsock控件：名称=Winsock1
选项显式
专用子命令1_Click（）
SendCmd Text1.Text
端接头
专用子表单_加载（）
Text1.Text=“AB7745683ACB76B34E5FF5E99EBC5F878A6BC8E9DF9876BCEA89”
端接头
私有子SendCmd（strHex作为字符串）
作为字符串的Dim strCmd
使用Winsock1
“确保我们有联系
文档连接
'将十六进制转换为cmd
strCmd=Hex2Cmd（strHex）
“发送命令
.SendData strCmd
以“Winsock1”结尾
端接头
专用子文档连接（）
使用Winsock1
如果.State SCK已连接，则
.连接“192.168.98.17”，5001'目标IP地址和端口
直到.State=sckConnected
多芬特
环
如果结束
以“Winsock1”结尾
端接头
私有函数Hex2Cmd（strHex作为字符串）作为字符串
整数
作为字符串的Dim strCmd
strCmd=“”
对于InEx=1到Len（strHex）步骤2
strCmd=strCmd&Chr$（Val（“&H”和Mid$（strHex，intHex，2）））
下一个在X
Hex2Cmd=strCmd
端函数

那么您想发送一个字节数组到IP地址上侦听的内容？这个问题是关于VBA还是VB6的？它们不是同一件事。所以你想发送一个字节数组到某个IP地址上侦听的内容？这个问题是关于VBA还是VB6的？它们不是一回事。