Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Получить ответ сервера... Добавлено: 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
  ;Dim 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 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам