1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Dim Url As String
Dim Flags As Long
Dim TargetFrame As String
Dim PostData() As Byte
Dim Headers As String
Url = urlsite & "login.php" ' A URL that will accept a POST
Flags = 0
TargetFrame = ""
PostData = "pseudo=" & pseudo & "&mdp=" & mdp
' 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 |
Partager