1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Enviar conteudo POST em VB

Discussão em 'Programação' iniciada por Mach4_PT, 15 de Maio de 2007. (Respostas: 0; Visualizações: 465)

  1. Mach4_PT

    Mach4_PT Power Member

    Boas pessoal... Eu estou a tentar fazer um programinha e estou com umas duvidas em relação a enviar informação POST para um website.

    Enviar GET é fácil... mas para fazer logins a maioria dos sites usa mesmo Post por isso não estou a conseguir...

    Alguém tem ai algum código para eu dar uma vista de olhos ou um tutorial porreiro?

    neste momento estou a tentar usar este código mas não está a funcionar muito bem:

    Código:
    Function Login(ByVal lUsername As String, lPassword As String, lUrl As String)
    wnsLogin.RemoteHost = Mid(lUrl, 8, Len(lUrl))
    wnsLogin.RemotePort = 80
    strPost = "username=" & lUsername & "&password=" & lPassword
    strHTTP = "POST /login.php HTTP/1.0" & vbCrLf
    strHTTP = strHTTP & "Host: " & Mid(lUrl, 8, Len(lUrl)) & vbCrLf
    strHTTP = strHTTP & "Content-Type: application/x-www-form-urlencoded" & vbCrLf & "Content-Length: " & Len(strPost) & vbCrLf
    strHTTP = strHTTP & "User-Agent: MyAgent" & vbCrLf
    strHTTP = strHTTP & vbCrLf
    strHTTP = strHTTP & strPost
    wnsLogin.Connect
    Do While wnsLogin.State <> sckConnected
    DoEvents
    Loop
    wnsLogin.SendData strHTTP
    MsgBox "funka porra"
    End Function
    A msgbox nunca chega a aparecer... e utilizando um sniffer pareceu-me que a informação nunca chegou a ser enviada pelo programa.

    Se alguem me conseguir ajudar agradecia

    Sem mais,

    Mach4
     

Partilhar esta Página