Post到远程服务器,怎么做

Question

Private Sub Command1_Click()
Dim X As Integer, RetCode As Integer
Dim s As String
s = "id=ok"
Inet1.Execute "http://192.168.0.1/xml/testcheck.asp", "post", s
Do While Inet1.StillExecuting
 DoEvents
Loop
这程序在本地测试可以,但如果是连接到远程服务就不行.是不是Inet要设置.

Answer 1

http://support.microsoft.com/?kbid=167706

Answer 2

应该没有问题Private Sub Command1_Click()
Dim X As Integer, RetCode As Integer
Dim s As String
urlstr = "http://192.168.0.1/xml/testcheck.asp"
s = "id=ok"
Inet1.Execute "http://192.168.0.1/xml/testcheck.asp", "post", s
Do While Inet1.StillExecuting
 DoEvents
Loop
RetCode = Val(Mid(Trim(Inet1.GetHeader), 10, 3))
    Select Case RetCode
    Case 200
        MsgBox "你的卡验证成功了"
    Case 404
        MsgBox "你的卡验证失败了"
    Case Else
        MsgBox "Error"
    End Select
End Sub
testcheck.asp文件
<%
s=request("id")
if s="ok" then
response.write "验证成功"
else
%>
<title>error</title>
<%
response.redirect "error.htm"
'response.end
end if
%>