Revision: 27689
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
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