大坝安全监测设施 水库雨水情大坝安全监测设施

发送部分:
Open "C:\1gif" For Binary As #1
ReDim b(1 To LOF(1))
Get #1, , b
Close #1
Winsock1SendData b
接收部分:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim b() As Byte
ReDim b(1 To bytesTotal) '这句可以不要
Winsock1GetData b, vbByte
Open "C:\1gif" For Binary As #1
Put #1, , b
Close #1
End Sub

---