滑台春秋内容:VB 提交数据问题？？

来源：百度文库编辑：神马品牌网时间：2024/04/30 12:18:22

程序界面如图：
http://www.fo128.com/temppic/1.jpg

右边Text为Post后服务器端返回的信息。我测试时，总是显示：
HTTP/1.1 400 Bad Request
Server: Microsoft-IIS/5.1
Date: Mon, 17 Apr 2006 02:16:28 GMT
Content-Type: text/html
Content-Length: 87

<html><head><title>Error</title></head><body>The parameter is incorrect. </body></html>

请问如何把文本框的信息提交到服务器端（提交的表单名称已知分别是Name,Password),最好能有类似登录提交数据的源文件作参考。

第一次写VB程序，请多多指教！！先谢了。

我的程序代码如下：
Private Sub But1_Click()
If InStr(1, Url, "http://") = 0 Then
MsgBox ("请输入正确的地址")
Exit Sub
End If
NUrl = (Replace(Left(Url, InStr(8, Url, "/") - 1), "http://", ""))
With sock_Ok
.RemoteHost = NUrl '这里设置对方IP
.RemotePort = 80 '边接的端口号
End With

If sock_Ok.State = 0 Then sock_Ok.Connect
Do While sock_Ok.State <> 7 '判断有没有连接上
DoEvents
Loop
Call sock_Ok_Connect
sock_Ok.GetData strData
End Sub

Private Sub But2_Click(Index As Integer)
End
End Sub

Private Sub sock_Ok_Close()
sock_Ok.Close
End Sub

Private Sub sock_Ok_Connect()
Dim strCommand As String
PUrl = Mid(Url, InStr(8, Url, "/"), Len(Url))
strCommand = "POST " + PUrl + " HTTP/1.1" + vbCrLf
strCommand = strCommand + "Host:" + "127.0.0.1" + vbCrLf
strCommand = "Content-Type: application/x-www-form-urlencoded" + vbCrLf
strCommand = "Cookie:" + Cookie.Text + vbCrLf
strCommand = strCommand + vbCrLf
sock_Ok.SendData strCommand
End Sub

Private Sub sock_Ok_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim strData As String
sock_Ok.GetData strData
If InStr(1, strData, "HTTP 404") = 0 Then OutInfo.Text = strData
End Sub

VB 提交数据问题？？ IE问题提交数据静态页面提交数据问题 ASP问题表单提交数据 vb数据查询问题 VB数据列表问题用flash提交数据出现的问题。 ASP程序表单数据提交问题 Ajax 中表单数据提交问题 ASP图片按钮提交表单数据问题？