WINSOCK - ENVIO DE ARQUIVOS - PERDA DE PACOTE ?

Private Const chunk = 10 [ô]aqui antes quebrava a cada 8000 bytes mas como vc deseja 10 apenas 

private sub send_click()

[ô]Pega o nome do arquivo
[ô]Função GetFileName usado para obter o nome do arquivo
dim fnamea as string
dim fname as string

if text1.text = [Ô][Ô] then
msgbox [Ô]Por favor, digite o nome do arquivo!!![Ô]
exit sub
end if
fname = text1.text
[ô]Checando se o arquivo existe
If Dir(fname) = [Ô][Ô] Then
MsgBox [Ô]O Arquivo não existe[Ô]
exit sub [ô]Sai da sub se não existir
end if

fnamea=GetFileName(text1.text)
fname=text2.text
dim temp as string
temp= [Ô]rqst[Ô] & fnamea

[ô]SEND

winsock1.senddata temp [ô]enviando arquivo pelo nome

end sub

Private Sub winsock1_dataarrival(ByVal bytestotal As Long)
Dim response As String
Winsock1.GetData response, vbString
Select Case response
Case [Ô]okay[Ô]
send fname [ô]send function is called with file name as argument
Case [Ô]deny[Ô]
MsgBox [Ô]Your request to send the file [Ô] & fname & [Ô] has been denied[Ô], , [Ô]manjit[Ô] [ô]message when request is denied
End Select
End Sub

Private Sub send(fname As String)
Command2.Enabled = False
Command3.Enabled = False
Text1.Enabled = False

Dim data As String
Dim a As Long
Dim data1 As String
Dim data2 As String


Open fname For Binary As #1

Do While Not EOF(1)
data = Input(chunk, #1)
Winsock1.SendData data
DoEvents
Loop
Winsock1.SendData [Ô]EnDf[Ô]
Close #1
Command2.Enabled = True
Command3.Enabled = True
Text1.Enabled = True

End Sub

Function GetFileName(attach_str As String) As String
Dim s As Integer
Dim temp As String
s = InStr(1, attach_str, [Ô]\[Ô])
temp = attach_str
Do While s > 0
temp = Mid(temp, s + 1, Len(temp))
s = InStr(1, temp, [Ô]\[Ô])
Loop
GetFileName = temp
End Function

private sub winsock1_connectionrequest(byval idrequest as long)
if winsock1.state <> sckConnected then
winsock1.close
winsock1.accept idrequest
end if
end sub

private sub winsock2_connectionrequest(byval idrequest as long)
if winsock2.state <> sckConnected then
winsock2.close
winsock2.accept idrequest
end if
end sub

Private Sub winsock1_dataarrival(ByVal bytestotal As Long)

Dim data As String
Dim data4 As String
Dim data2 As String
Dim data3 As String
Dim data5 As String
Dim data6 As String

Winsock1.GetData data, vbString

data2 = Left(data, 4)
Select Case data2
Case [Ô]rqst[Ô] [ô]Solicitação de arquivo chega

data3 = Right(data, Len(data) - (4)) [ô]Pega o noe do arquivo

Dim msg1 As Integer 
msg1 = MsgBox(Winsock1.RemoteHost & [Ô] Quer enviar o arquivo[Ô] & data3 & [Ô] aceitar? [Ô], vbYesNo, [Ô]envio de arquivo[Ô]) 


If msg1 = 6 Then [ô]
Winsock1.SendData [Ô]ok[Ô]
cd.FileName = data3
data5 = Split(data3, [Ô].[Ô])(1)
data6 = [Ô]*.[Ô] & data5
cd.DefaultExt = [Ô](data6)[Ô]
data4 = App.Path & [Ô]\[Ô] & data3
[ô]MsgBox data5
[ô]cd.ShowSave

Open data4 For Binary As #1

Else
Winsock1.SendData [Ô]deny[Ô]
Exit Sub
End If

Case [Ô]EnDf[Ô]
Label1.Caption = [Ô]Tamnho do arquivo recebido : [Ô] & sz & [Ô] Kb[Ô]
size=0
sz=o
Close #1
Case Else

size = size + 1
Label1.Caption = size * 8 & [Ô]Kb Recebidos[Ô]
sz = size * 8
Put #1, , data
End Select
End Sub

Private Sub Command1_Click()
Dim chat As String
chat = Text1.Text
List1.AddItem (chat)
Winsock2.SendData chat

End Sub

Private Sub winsock2_dataarrival(ByVal bytestotal As Long)
Dim cht As String
Winsock2.GetData cht, vbString
List1.AddItem (cht)

End Sub