用VB的WINSOCK控件发送大于8K的BMP

服务器端：　
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const theScreen = 1

Private Sub Form_Load()
tcpServer.LocalPort = 1001 ' 设置监听端口号
tcpServer.Listen ' 开始监听

End Sub

Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
If tcpServer.State <> sckClosed Then tcpServer.Close
tcpServer.Accept requestID

End Sub

Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long)
Dim a As String
tcpServer.GetData a

If a = "b" Then
Call keybd_event(vbKeySnapshot, theScreen, 0, 0)

Picture1.Picture = Clipboard.GetData(vbCFBitmap)
SavePicture Picture1.Image, "d:ww.bmp"

Dim buf() As Byte
Dim position As Long
Open "d:ww.bmp" For Binary As #1
position = 0
Do While Not EOF(1)
position = positon + 1
ReDim Preserve buf(1 To position)
Get #1, , buf(position)
Loop
Close #1

tcpServer.SendData buf

End If

End Sub