'На форме таймер с периодом 100 мс. В refernces - галочку на Microsoft XML 4.0

Option Explicit

Dim a As New XMLHTTP40

 

Private Sub Form_Load()

    a.open "HEAD", "http://ya.ru"

    a.send

End Sub

 

Private Sub Timer1_Timer()

    If a.readyState = 4 Then

        Timer1.Enabled = False

        MsgBox a.getResponseHeader("Content-length")

    End If

End Sub

Private Sub Form_Load()

Winsock1.RemoteHost = "vbcode.webhostme.com"

Winsock1.RemotePort = 80

Winsock1.Connect

End Sub

 

Private Sub Winsock1_Connect()

Dim strCommand as String

Dim strWebPage as String

strWebPage = "http://vbcode.webhostme.com/en/home.html"

strCommand = "GET " & strWebPage & " HTTP/1.0" & vbCrLf

strCommand = strCommand & "Accept: */*" & vbCrLf

strCommand = strCommand & "Accept: text/html" & vbCrLf

strCommand = strCommand & vbCrLf

Winsock1.SendData strCommand

End Sub

' С получением первых байтов происходит событие написанное ниже, bytesTotal - размер файла, а Winsock1.BytesReceived - сколько уже пришло!

 

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim strData As String

Winsock1.GetData strData, vbString

Text1.Text = Text1.Text & strData

End Sub