VBNet - Форум - Получить ответ сервера...

Вопрос: Получить ответ сервера... Добавлено: 24.11.03 07:27

Автор вопроса: Trinux

Народ! Помогите пожалуйсто! Нужно получить ответ сервера на запрос. В частности ошибка 404. Т.е. Я посылаю запрос (url) и нужно получить ответ. Если таковой страницы нет, то придет ошибкак 404! Тот, кто первый реально поможет, получит 7-ми знвчный уин (5534275 или другой по выбору)!!!
mail - fsb_z@quale.ru
ICQ - 5855500

Ответить

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

Номер ответа: 1
Автор ответа:

AASoft

Вопросов: 86
Ответов: 920

Профиль | | #1

Добавлено: 24.11.03 07:51

Add Internet Transfer control to Project Components. Add it to the form with the name of i1.
Add a button to the form named cmdGo.
In the StateChanged sub of i1 put this:

Select Case State
Case 12 'icResponseCompleted
  im stemp
  stemp = i1.GetChunk(100)
  while stemp <> ""
   me.print stemp;
   stemp = i1.GetChunk(100)
  wend
  me.print
Case 11 'icError
  MsgBox i1.ResponseInfo, vbCritical, "Error!"
End Select

And add this to the cmdGo_Click:

i1.protocol = icHTTP
i1.Execute "http://www.vbnet.ru", "GET /"
while i1.stillexecuting
doevents
wend
msgbox "done!"

vrode vse!

Ответить

Номер ответа: 2
Автор ответа:

Trinux

Вопросов: 2
Ответов: 8

Профиль | | #2

Добавлено: 24.11.03 15:41

Спасибо конечно, но код не пашет... т.е. пашет но не так. Я даю запрос на www.vbnet.ru и на www.vbnet2.ru, естественно он при первом запросе выдает мне код, а при втором, говорит, что нет таковой... При запросе

http://www.vbnet.ru/forum/add.asp?id=27609&forumid=1 говорит, что есть, но код не кажет... При запросе

http://www.vbnet2.ru/forum/add.asp?id=27609&forumid=1 то же самое =( .... И хотелось бы получить именно ответ сервера.. 404 или 403 или 500 и т.д. ПОжалуйсто! Очень нужно!

Ответить

Номер ответа: 3 Автор ответа: Trinux Вопросов: 2 Ответов: 8	Профиль \| \| #3	Добавлено: 25.11.03 07:32
	ДАМ 10 7-МИ ЗНАКОВ!!!!!!!!!!!!!!!!!! ХОТЬ 20, ТОКА ПОМОГИТЕ!!!!!!!!! Ответить

Номер ответа: 4 Автор ответа: Trinux Вопросов: 2 Ответов: 8	Профиль \| \| #4	Добавлено: 26.11.03 03:07
	Все, вас опередили с www.vbstreets.ru. Но мне пофиг, AASoft получает 7-ми знак. Отошлю на мыло. Все, кто ответит, тож получат! Принимаются еще 3 правильных ответа, отличных от AASoft и vbstreets.ru. Ответить

Страница: 1 |