Hej

Jag vill från ett vb program (activeX) sända information till en asp-sida på nätet. Det ska fungera ungefär som man använder <form method=post> i en vanlig html-sida. Informationen ska tas emot med request.form()

Eventuellt blir det en activeX-komponent som hämtas hem från samma site och den ska i sin tur skicka info till en asp-sida.

Någon som sitter med något kodförslag/lösning?

Tack på förhand.

/Janne

Hej!

Så här har jag gjort i ett VB-program, har ingen aning om det fungerar på samma sätt i en ActiveX...

<code>
Private Sub Command1_Click()

With WinsockPost
.RemoteHost = "server.se"
.RemotePort = 80
.Connect
End With

End Sub

Private Sub WinsockPost_Connect()
Dim s As String, ss As String

ss = "fält=ett+värde&fält2=ett+annat+värde"


s = "POST /sokvag/till/script.asp HTTP/1.1" & vbCrLf
s = s & "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/msword, */*" & vbCrLf
s = s & "http://avsändar.adress.se" & vbCrLf
s = s & "Accept-Language: sv" & vbCrLf
s = s & "Content-Type: application/x-www-form-urlencoded" & vbCrLf
s = s & "Accept-Encoding: gzip, deflate" & vbCrLf
s = s & "User-Agent: Mozilla/4.0" & vbCrLf
s = s & "Host: http://server.se" & vbCrLf
s = s & "Content-Length: " & Len(ss) & vbCrLf
s = s & "Connection: Keep-Alive" & vbCrLf
s = s & vbCrLf
s = s & ss & vbCrLf

With WinsockPost
.SendData s
End With
End Sub

Private Sub WinsockPost_DataArrival(ByVal bytesTotal As Long)
Dim a As String
WinsockPost.GetData a
Debug.Print a
End Sub
</code>

Hoppas att detta fungerar...<br>
<br>
/Johan

Jag tackar! Exakt vad jag ville ha. :-)

/Janne