Cómo ver el paquete de datos y cómo completar el envío POST del parámetro WebBrowser1.Navigatec
Subbotón privado1_Click ( )
Atenuar URL como cadena
Atenuar banderas mientras
Atenuar TargetFrame como cadena
Atenuar PostData() como byte p >
Atenuar encabezados como cadena
URL = " ?rru=inbox" ' URL que aceptará POST
Banderas = 0
TargetFrame = " "
PostData = "true, false, true, {" & "00000000-0000-0000-0000-000000000005" & ", 0, 0, Fecha, false, null, null, 1, 1, false, null, -1, -1, Off}, false, null"
' VB crea cadenas Unicode de forma predeterminada, por lo que necesitamos
' volver a convertirlas a caracteres individuales colocar.
PostData = StrConv(PostData, vbFromUnicode)
Encabezados = "Tipo de contenido: aplicación/x-www-form-urlencoded" amp _
vbCrLf
WebBrowser1.Navigate URL, banderas, TargetFrame, PostData, encabezados
End Sub
Sub privado Form_Load()
WebBrowser1.Navigate " "
Fin Sub