VBNet - Форум - Inet Control

Вопрос: Inet Control Добавлено: 06.10.06 22:37

Автор вопроса: Yeputons | ICQ: 278444762

Нам задали задание на полгода: вести каленДУРЬ погоды. Т.е. каждый день в 8 утра записывать температуру, давление, направление ветра, облачность, осадки и влажность. В выходные - в 12. В октябре мы его, слава богу, приостановили. Я решил написать програмульку, которая сама включает компьютер, запускается, лезет в инет, загребает нужные данные, выводит на принтер и вырубает комп. Я её сделал, работала. На следующее утро запускаю - Inet Control после запроса информации GET ждет пару секунд и говорит, что закончил работу, не передав не капельки. Единственное, что выдаёт - загаловок файла. Шо делать? Привожу код:

Option Explicit
Private Const CityNumber = 1301
Dim Text As String
Dim TextLen As Long

Dim CAP As String
Dim t As Long
Dim mmHG As Long
Dim Humidity As Long
Dim Wind As String

Private Sub Form_Load()
Me.Show
sbrStatus.SimpleText = "Ñîñòîÿíèå èíòåðíåòà: Çàãðóçêà äàííûõ..."

intCourse.Execute "http://weather.mail.ru/default.asp?city=" & CStr(CityNumber), "HEAD"
While intCourse.StillExecuting: DoEvents: Wend
TextLen = intCourse.GetHeader("Content-length")

intCourse.Execute "http://weather.mail.ru/default.asp?city=" & CStr(CityNumber), "GET"
While intCourse.StillExecuting: DoEvents: Wend

sbrStatus.SimpleText = "Ñîñòîÿíèå èíòåðíåòà: Îæèäàíèå."

ExtractWeather
PrintWeather

ChangeProgress 4, 0
'Disconnect
ChangeProgress 4, 100

ChangeProgress 5, 0
ChangeProgress 5, 100
End Sub

Private Sub intCourse_StateChanged(ByVal State As Integer)
Dim Start As Single
Dim GetText As String

Select Case State
Case 1: sbrStatus.SimpleText = "Ñîñòîÿíèå èíòåðíåòà: Ïîècê ñåðâåðà..."
Case 2: sbrStatus.SimpleText = "Ñîñòîÿíèå èíòåðíåòà: Ñåðâåð íàéäåí."
Case 3: sbrStatus.SimpleText = "Ñîñòîÿíèå èíòåðíåòà: Ñîåäèíåíèå ñ ñåðâåðîì..."
Case 4: sbrStatus.SimpleText = "Ñîñòîÿíèå èíòåðíåòà: Ñîåäèíåíèå óñòàíîâëåíî."
Case 5: sbrStatus.SimpleText = "Ñîñòîÿíèå èíòåðíåòà: Çàïðîñ èíôîðìàöèè..."
Case 6: sbrStatus.SimpleText = "Ñîñòîÿíèå èíòåðíåòà: Çàïðîñ îòïðàâëåí."
Case 7: sbrStatus.SimpleText = "Ñîñòîÿíèå èíòåðíåòà: Ïîëó÷åíèå îòâåòà..."
Case 8: sbrStatus.SimpleText = "Ñîñòîÿíèå èíòåðíåòà: Îòâåò ïîëó÷åí."
Case 9: sbrStatus.SimpleText = "Ñîñòîÿíèå èíòåðíåòà: Îòêëþ÷åíèå îò ñåðâåðà..."
Case 10: sbrStatus.SimpleText = "Ñîñòîÿíèå èíòåðíåòà: Îòêëþ÷åíèå âûïîëíåíî."
Case 11
    sbrStatus.SimpleText = "Ñîñòîÿíèå èíòåðíåòà: Ïðîèçîøëà îøèáêà."
    Start = Timer
    While (Timer - Start) < 5: DoEvents: Wend
Case 12
    GetText = intCourse.GetChunk(1024, icString)

    While GetText <> ""
        Text = Text & GetText
        GetText = intCourse.GetChunk(1024, icString)

        sbrStatus.SimpleText = "Ñîñòîÿíèå èíòåðíåòà: ×òåíèå äàííûõ..."
        ChangeProgress 1, Len(Text) / (TextLen / 100)
        DoEvents
    Wend
End Select
End Sub
Ответить

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: i0ngunn3r Вопросов: 11 Ответов: 30	Профиль \| Цитата \| #1	Добавлено: 06.10.06 22:44
	Может, на mail.ru код изменили? Ответить

Номер ответа: 2 Автор ответа: Yeputons ICQ: 278444762 Вопросов: 71 Ответов: 179	Профиль \| Цитата \| #2	Добавлено: 06.10.06 23:00
	Не-а. В Internet Explorer'е захожу по этому адресу - все грузит. Может что-то в параметрах контрола или в коде? ~_~ Ответить

Страница: 1 |