- Код: Выделить всё
Try
objRequest.Method = "GET"
objRequest.Timeout = 0 ' 20 sec.
objResponse = objRequest.GetResponse
Dim sr As System.IO.StreamReader = New System.IO.StreamReader(objResponse.GetResponseStream(), System.Text.Encoding.Default)
sResult = sr.ReadToEnd()
sr.Close()
GrabHTML = sResult
Get_Result()
Зависает форма и не реагирует даже на перемещениее ее по экрану. Оговорюсь сразу, Application.DoEvents() не помогает, он хорош для циклов, а не в конкретном случае.