Помогите плз, искал, нигде не нашел путного ответа, необходимо отправить данные методом POST, Navigate2 это сделать позволяет, но абсолютно не понятно как сформировать PostData т.е. параметр с массивом отправляемых элементов....

Здравствуйте, ijumper, Вы писали:

I>Помогите плз, искал, нигде не нашел путного ответа, необходимо отправить данные методом POST, Navigate2 это сделать позволяет, но абсолютно не понятно как сформировать PostData т.е. параметр с массивом отправляемых элементов....

Q174923

      Sub Command1_Click()
         Dim URL As String
         Dim Flags As Long
         Dim TargetFrame As String
         Dim PostData() As Byte
         Dim Headers As String

         URL = "http://YourServer" ' A URL that will accept a POST
         Flags = 0
         TargetFrame = ""

         PostData = "Information sent to host"

         ' VB creates a Unicode string by default so we need to
         ' convert it back to Single byte character set.
         PostData = StrConv(PostData, vbFromUnicode)

         Headers = "Content-Type: application/x-www-form-urlencoded" & _
            vbCrlf
         WebBrowser1.Navigate URL, Flags, TargetFrame, PostData, Headers
      End Sub

Спасибо большое, работает!