Return to Snippet

Revision: 27689
at June 21, 2010 13:38 by Angelboy


Initial Code
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://tuservidor" ' una url que acepte HTTP PoST
         Flags = 0
         TargetFrame = ""

         PostData = "Información que se enviara al host"

         PostData = StrConv(PostData, vbFromUnicode)

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

Initial URL


Initial Description


Initial Title
Webbrowser HTTP POST

Initial Tags


Initial Language
Visual Basic