Получить ответ сервера...

[Trinux]

Привет всем! Обращаюсь к вам, т.к. уже больше неккому... Мне нужно послать запрос серверу и получить ответ сервера на запрос. Т.е. послать запрос в виде
http://bbs.vbstreets.ru/posting.php?mode=newtopic&f=1
и получить ответ. Допустим я посылаю запрос на несуществующую страницу, например
http://bbs.vbstreets.ru/posting.php?mode=NonPage
и должен получить ответ 404. Короче это сложно для понимания =) но мне нужен ответ сервера, 404 или 403 или 500, короче код ошибки при неверном адресе и код страницы при верном...
Поможет это или нет, но тому, чей код будет работать дам 10 7-ми значных УИНов...

[skiperski]

На форму TextBox и Microsoft Internet Transfer Control.
Анализируй возвращаемое значение Inet1.GetHeader

Код: Выделить всё

Option Explicit

Private Sub Command1_Click()
    Inet1.Execute Text1.Text
End Sub

Private Sub Form_Load()
    Text1.Text = "http://www.yandex.ru"
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
    If (State = icResponseCompleted) Then
        Debug.Print Inet1.GetHeader
    End If
End Sub

[Trinux]

УРА!!!!! РАБОТАЕТ!!!!!! Спасибо друг, везде просил, все молчали, а вы помогли... Че с УИНами, по почте может тебе их выслать? Могу и в АСЕ отдать... И еще мелкий вопр... Как мне если страница существует, получить ее исходник... Ладно. СПАСИБО!!!!

[Amed]

А здесь ещё проще - добавь ещё текстбокс txtSource и строчку:
txtSource = Inet1.OpenURL(Text1.Text, icString)
Do While Inet1.Busy = True
DoEvents
Loop
MsgBox ("Скачал весь код!")

[Trinux]

А здесь ещё проще - добавь ещё текстбокс txtSource и строчку:
txtSource = Inet1.OpenURL(Text1.Text, icString)
Do While Inet1.Busy = True
DoEvents
Loop
MsgBox ("Скачал весь код!")

Вообще не понял, что нужно сдлать.... Поконкретнее можно?

[skiperski]

Можно доделать предыдущий код для соблюдения единообразия

Код: Выделить всё

Option Explicit

Private Sub Command1_Click()
    If (Not Inet1.StillExecuting) Then Inet1.Execute Text1.Text
End Sub

Private Sub Form_Load()
    Text1.Text = "http://www.yandex.ru"
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
    If (State = icResponseCompleted) Then
        Debug.Print Inet1.GetHeader
        Text2.Text = GetSourceCode()
    End If
End Sub

Private Function GetSourceCode() As String
   
    Const ShunkSize As Long = 1024 'KB установить по желанию
   
    Dim s As String
    Dim ss As String
   
    Do
        s = Inet1.GetChunk(ShunkSize)
        ss = ss & s
        If (Len(s) < ShunkSize) Then Exit Do
    Loop
   
    'переводим переносы строк в формат Windows
    ss = Replace(ss, vbCrLf, vbLf)
    ss = Replace(ss, vbCr, vbLf)
    ss = Replace(ss, vbLf, vbNewLine)
   
    GetSourceCode = ss
   
End Function

или как предлагал Amed

Код: Выделить всё

Private Sub Command2_Click()
    If (Not Inet1.StillExecuting) Then
        Text2.Text = Inet1.OpenURL(Text1.Text)
    End If
End Sub