Winsock1.SendData为什么不能连续发数据
Winsock1.Protocol = sckUDPProtocol
Winsock1.LocalPort = "100"
Winsock1.RemoteHost = "192.168.5.183"
Winsock1.RemotePort = "100"

Dim BufFile(0 To 23) As Byte
Dim BufFile1(0 To 23) As Byte

BufFile(0) = &H55
BufFile(1) = &H6E
BufFile(2) = &H6
BufFile(3) = &H0
........................此段略
BufFile(23) = &H0

Winsock1.SendData BufFile()

BufFile(0) = &H10
BufFile(1) = &H29
BufFile(2) = &H6
BufFile(3) = &H0
........................此段略
BufFile(23) = &H0

Winsock1.SendData BufFile()

第二次发数据时出现 “实时错误2”，是什么原因，Winsock1.SendData为什么不能连续发数据

[解决办法]
调试LZ的以下代码,并未出现任何错误:

VB code

 Dim BufFile(0 To 23) As Byte Dim BufFile1(0 To 23) As Byte BufFile(0) = &H55 BufFile(1) = &H6E BufFile(2) = &H6 BufFile(3) = &H0........................此段略 BufFile(23) = &H0Winsock1.SendData BufFile()   BufFile(0) = &H10 BufFile(1) = &H29 BufFile(2) = &H6 BufFile(3) = &H0........................此段略 BufFile(23) = &H0Winsock1.SendData BufFile()