
![]() |
Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
|
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.97.9.173] |
![]() |
|
![]() |
Сообщ.
#1
,
|
|
![]() ![]() 'На форме таймер с периодом 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 |