Red de conocimiento informático - Material del sitio web - Cómo ver el paquete de datos y cómo completar el envío POST del parámetro WebBrowser1.Navigatec

Cómo ver el paquete de datos y cómo completar el envío POST del parámetro WebBrowser1.Navigatec

El siguiente es el código fuente del formulario de envío POST que se encuentra en línea------------------------------

Subbotón privado1_Click ( )

Atenuar URL como cadena

Atenuar banderas mientras

Atenuar TargetFrame como cadena

Atenuar PostData() como byte

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