2024年1月25日发(作者：)

Public Function SendChunk()

Dim mybytesize As Long

If <> sckConnected Then Exit Function

mybytesize = BUFFER_SIZE

If LOF(filehandle) - Loc(filehandle) < BUFFER_SIZE Then mybytesize = (LOF(filehandle) - Loc(filehandle))

ReDim mybyte(0 To mybytesize - 1)

Get #filehandle, , mybyte

ta mybyte

Sendbyte = Sendbyte + mybytesize

= Int((100 / FileSize) * Sendbyte)

If Sendbyte >= FileSize Then

FileisOver = True

ta FileisOverMSG

End If

End Function

Private Sub Timer2_Timer()

If = sckConnected Then

d = False

d = False

ElseIf <> 1 And <> 6 And <> 7 And <> 8And <> 9 Then

t , ReceivePort

ElseIf = 8 Or = 9 Then

End If

End Sub

Private Sub WinsockReceive_ConnectionRequest(ByVal requestID As Long)

If <> sckClosed Then

requestID

End Sub

Private Sub WinsockReceive_DataArrival(ByVal bytesTotal As Long)