Visual Basic - http POST

Val: 3

http POST

Publicado por norberto (2 intervenciones) el 14/01/2020 20:41:28

Consulta si me pueden ayudar, ya probe de mil formas y no lo logro, quiero crear un formulario, ( visual basic 2019 ) con solo un boton que al presionarlo envie un dato POST a una pagina web ( propia alojada en 000webhast.com ) donde hay alojado un archivo PHP que guarda el dato en una base de datos. La pagina web funciona bien, el PHP tambien, el dato se guarda perfectamante pero no logro hacerlo mediante vb2019 ( a futuro los datos seran mandados por un modulo arduino pero esto lo necesito para ir probando.
Tambien funciona con comandos CURL poro no logro nada con vb2019

curl -X POST --data "temp=34.65" http://xxxxxx.000webhostapp.com/enviardatos.php ( esto funciona )

Hay unos ejemplos con webbroser(url, ...... .) pero no logro que funcionen

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 393

Val: 3

http POST

Publicado por norberto (2 intervenciones) el 15/01/2020 02:25:55

Probe este codigo de ejemplo dado por suppor microsoft pero no logro que funcione, faltan unos parentesis, hay problemas con un array de bytes etc

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://YourServer" ' A URL that will accept a POST

    Flags = 0

    TargetFrame = ""

    PostData = "Information sent to host"

    ' 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

End Sub

https://support.microsoft.com/es-mx/help/174923/how-to-use-the-postdata-parameter-in-webbrowser-control

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar