Winsock1.SendData为什么不能连续发数据

Question

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) = &H0Winsock1.SendData BufFile()  BufFile(0) = &H10
 BufFile(1) = &H29
 BufFile(2) = &H6
 BufFile(3) = &H0
........................此段略
 BufFile(23) = &H0Winsock1.SendData BufFile()第二次发数据时出现 “实时错误2”，是什么原因，Winsock1.SendData为什么不能连续发数据

Answer 1

调试LZ的以下代码,并未出现任何错误:
 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()