WB POST

[Sasha_karasov]

Привет всем!
Как можно отправить POST через метод Navigate?
P.S. В поиске только через Winsock, к сожалению, меня это не устраивает

[alibek]

Мдя...
Sasha_karasov, почитал бы ты про HTTP.

[Sasha_karasov]

Да читал, меня интересует как это все сделать программно...
Ну помогите...

[GSerg]

Мдя...

[Sasha_karasov]

мдя, жилаю подобных ответов на ваших топиках!

[Wild VB Code for Food]

Sasha_karasov
По всей видимости нет, ты же на крутом C++ кодишь , как тебя учили, что тебе стоит почитать спецификацию HTTP?

[Sasha_karasov]

Sasha_karasov
По всей видимости нет, ты же на крутом C++ кодишь , как тебя учили, что тебе стоит почитать спецификацию HTTP?

Вы что еще за тот топик дуетесь?
Я тогда был не прав, сознаю, сасибо за тот урок!
P.S.Я вообще сейчас предпочитаю VB.Net мне его хватает и не нужно учить…

[Amed]

Подписи даже противоречишь.

[AjaxVS]

..Я вот не пойму - а зачем этот форум тогда нужен?
Что, трудно человеку ссылку дать?
Трудно? Или вам надоело отвечать на простые вопросы? Или вас бесит, что это можно найти в YaRu (к слову, я счас пытался - не нашел)? Да?
Ну так не отвечайте на вопрос. Тем самым, вы:
1. не потрепаете ни себе, ни автору, ни окружающим нервы,
2. сэкономите трафик другим.

Мда.. Смотрю я на вас и думаю - Вы - ужастная группа этой чудесной Конференции.. Группа лиц,

Отягощенная национальным г*** характером; бездействующая, абсолютно пассивная; наезжающая на всех и вся; скучная, совершенно неинтересная; деструктивная и злая в душе. И это - в отличие от западной сцены, которая мне, честно говоря, куда более приятна. Все дело в людях, друзья мои. На убогом основании не вырасти умному человеку; злобный гопник никогда не изменится. Исходя из этого, прогноз такой: в ближайшее время из российской сцены "выйдут" намного меньше Программистов, чем из западной, а значит на запад и следует ориентироваться в изысканиях нового знания и распространении своих идей.
Розы не растут в помойке. Go West!

Пасиба за внимания. Часть моей души надеется, что после этих слов вы пересмотрите свое поведение на Конференции..

[Gotha]

Вот, правда это не с помощью Navigate, но тоже ничего так, пойдет... в класс запихни и юзай...
ток в референсах подключи MSXML

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

Private objXMLHTTP As MSXML2.XMLHTTP
Private mURL As String

Enum enmSubmitMethod
    enmPOST = 1
    enmGET = 2
End Enum

Private Sub Class_Initialize()
    Set objXMLHTTP = New MSXML2.XMLHTTP
End Sub

Private Sub Class_Terminate()
    Set objXMLHTTP = Nothing
End Sub

Public Property Get URL() As String
    URL = mURL
End Property

Public Function GetDataAsString(URLString As String) As String
    mURL = Trim(URLString)
    objXMLHTTP.open "GET", mURL, False
    objXMLHTTP.send
    GetDataAsString = objXMLHTTP.responseText
End Function

Public Function SubmitDataAsString(URLString As String, SubmitMethod As enmSubmitMethod, FormInputArray As Variant, FormValueArray As Variant) As String
    Dim iCount As Integer
    If SubmitMethod = enmPOST Then
            mURL = URLString
            objXMLHTTP.open "POST", URLString, False
            objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
            For iCount = 0 To UBound(FormInputArray)
                strbody = strbody & FormInputArray(iCount) & "=" & FormValueArray(iCount) & "&"
            Next
            objXMLHTTP.send Left(strbody, Len(strbody) - 1)
    ElseIf SubmitMethod = enmGET Then
            Dim strURLParam As String
            Dim strURL As String
            For iCount = 0 To UBound(FormInputArray)
                strURLParam = strURLParam & FormInputArray(iCount) & "=" & FormValueArray(iCount) & "&"
            Next
            strURLParam = Left(strURLParam, Len(strURLParam) - 1)
            strURL = URLString & "?" & strURLParam
            mURL = strURL
            objXMLHTTP.open "GET", strURL, False
            objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
            objXMLHTTP.send strURL
    End If
    SubmitDataAsString = objXMLHTTP.responseText
End Function


[FaKk2]

AjaxVS
А твой пост к чему? Автору ты не ответил, конструктивного ничего не сказал по топику. Зачем ты тратишь чужие нервы и траффик?

[AjaxVS]

Я уже написал, зачем. "Часть моей души надеется, что после этих слов вы пересмотрите свое поведение на Конференции.."

[GSerg]

Любишь цитаты, AjaxVS?
Я вот тоже люблю.

Несмотря на это, считается, что хакеры относятся к простым вопросам скорее враждебно или высокомерно. Иногда кажется, что мы достаточно грубы к новичкам и игнорируем их. Но, на самом деле, это не так.

Мы, без сомнения, неприязненно относимся к людям, предположительно не желающим подумать или поучиться прежде, чем задавать вопросы. Такие люди убивают время — они берут, ничего не давая взамен, они отнимают время, которое мы могли бы посвятить другому вопросу, более интересному, и другому человеку, более достойному ответа. Таких людей мы называем "неудачниками" ("losers") (по историческим причинам это слово иногда пишется как "lusers" - пользователи-неудачники).
...

Мы (в основном) - добровольцы. Мы посвящаем время своей нелегкой жизни ответам на вопросы, и временами мы не справляемся со шквалом вопросов. Поэтому приходится безжалостно "фильтровать базар". В частности, отбрасывать вопросы потенциальных неудачников, чтобы потратить отведенное на ответы время более эффективно, посвящая его победителям.

Если эта позиция кажется вам смешной, высокомерной или заносчивой, вы ошибаетесь. Мы не просим вас на нас молиться — фактически, большинство из нас хотели бы общаться с вами на равных и принять вас в свою культуру, если вы приложите необходимые для этого усилия. Но для нас просто неэффективно пытаться помочь людям, которые не хотят помочь себе сами. Быть грубым - нормально, а вот прикидываться идиотом - нет.

Итак, хотя вовсе не обязательно быть технически компетентным, чтобы удостоиться нашего внимания, надо продемонстрировать качества, позволяющие стать компетентным — внимательность, вдумчивость, наблюдательность, желание активно участвовать в выработке решения. Если вы не можете смириться с подобного рода дискриминацией, имеет смысл заплатить кому-то за коммерческую поддержку, а не просить хакеров помочь даром лично вам.

[Sasha_karasov]

Сейчас попробуем. Есть же добрые люди(Gotha)...

[Sasha_karasov]

AjaxVS
А твой пост к чему? Автору ты не ответил, конструктивного ничего не сказал по топику. Зачем ты тратишь чужие нервы и траффик?

Почему есть толк его пост может изменить ваше поведение, и вы не будете флудить и тогда мы сэкономим на много больше трафика. Не так ли ?

[FaKk2]

Sasha_karasov
A теперь почитай пост Gserg'a и поразмышляй над его смыслом.