( )
результат:
размеры файла совпадают с оригиналом, содержимое все тоже совпадает, за исключением того, что везде где код 00 в оригинале при закачке я получаю код 20... .
вот часть кода:
- Код: Выделить всё
Option Explicit
Dim sAddress As String
Public fso As New FileSystemObject
Public fl As File
Dim F As Long, sData() As Byte, mystr As String
Dim mpath As String, strUrl As String
Dim down As Boolean
Private Sub Form_Load()
down = False
mystr = ""
sAddress = "http://62.61.10.70/111.rar"
With Winsock1
While .State <> sckClosed
.Close
Wend
mpath = "C:\111.rar"
If fso.FileExists(mpath) = True Then fso.DeleteFile mpath
F = FreeFile
Open mpath For Binary Access Write Lock Read Write As #F
.Connect "62.61.10.70"
End With
End Sub
Private Sub Winsock1_Connect()
With Winsock1
.SendData "GET " & sAddress
.SendData vbCrLf
.SendData "User-Agent: Mozilla/2.0 (Win95;I)"
End With
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
'On Error Resume Next
Erase sData()
ReDim sData(0 To bytesTotal - 1) As Byte
Winsock1.GetData sData(), vbArray + vbByte, bytesTotal
Put #F, , sData
End Sub
Что я делаю не так, помогите, а? 4 дня мучений с нулевым результатом
