如何用VB编制以下网页信息点击提交程序？？

有两种方法，一种是使用webbrowser控件：

1、控件打开网页，等待加载完毕(有事件） '代码略

2、webbrowser1.document.login_form1.name.value="xxx" '填写用户名

webbrowser1.document.login_form1.pass.value="xxx" '填写密码

webbrowser1.document.login_form1.Submit.click '点击提交

第二种方法使用ie对象：

1、set ie=createobject("internetexplorer.application")

2、ie.visible = true '设置ie可见

3、ie.navigate "网址（带上http）"

4、while ie.busy or ie.readystate<>4 '等待加载完毕

doevents

wend

5、同上面2，将webbrowser1改成ie即可

我有这样的程序，不过现在不用了，因为用 PHP 更方便，改用 PHP 写了。

Private Sub cmdSubmit_Click()

Dim subX As String, subStr As String

Dim subLen As Long

If Trim(txtTitle.Text) = "" Then

txtTitle.SetFocus

Exit Sub

End If

If Trim(cmbCat.Text) = "" Then

cmbCat.SetFocus

Exit Sub

End If

If Trim(txtContent.Text) = "" Then

txtContent.SetFocus

Exit Sub

End If

'向 www.hopeview.cn 网站提交文章，http://www.hopeview.cn/docs/ 下有一个 write.php 网页，将提交来的数据写入数据库。

'提交内容: Title 标题，cat 类别 content 文章内容。用于自动或批量向 hopeview.cn 提交文章。

subX = "title=" &Trim(txtTitle.Text) &"&cat=" &cmbCat.Text &"&content=" &Trim(txtContent.Text) &"&submit1=提交"

subX = URLEncoding(subX)

subLen = Len(subX)

'下面是构造 POST 串, Referer 是 http://www.hopeview.cn/docs/write.php，表示是从这个网页提交的，Host 是接受数据的主机，此处是 www.hopeview.cn，改成您的对应网站就行了。

subStr = "POST /docs/write.php HTTP/1.1" &vbCrLf

subStr = subStr &"Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, application/x-shockwave-flash, */*" &vbCrLf

subStr = subStr &"Referer: http://www.hopeview.cn/docs/write.php" &vbCrLf

subStr = subStr &"Accept-Language: zh-cn" &vbCrLf

subStr = subStr &"Content-Type: application/x-www-form-urlencoded" &vbCrLf

subStr = subStr &"UA-CPU: x86" &vbCrLf

subStr = subStr &"Accept-Encoding: gzip, deflate" &vbCrLf

subStr = subStr &"User-Agent: Mozilla/4.0 (compatibleMSIE 6.0Windows NT 5.2SV1TencentTraveler .NET CLR 1.1.4322)" &vbCrLf

subStr = subStr &"Host: www.hopeview.cn" &vbCrLf

subStr = subStr &"Content-Length: " &subLen &vbCrLf

subStr = subStr &"Connection: Keep-Alive" &vbCrLf

subStr = subStr &"Cache-Control: no-cache" &vbCrLf &vbCrLf

subStr = subStr &subX

If sockX.State <>sckConnected Then

sockX.Close

sockX.RemoteHost = "www.hopeview.cn"

sockX.RemotePort = 80

sockX.Connect

End If

While sockX.State <>sckConnected ' 7

DoEvents

If sockX.State = 9 Then

sockX.Close

sockX.Connect

End If

Wend

sockX.SendData subStr

End Sub

那个Asp页面 代码用request("标签名")

就可以获得提交页面的数据~

如 html里 那个评论多行文本 name="pinlun"

那么 asp里

pinlun=request("pinlun")

就可以获得数据了

<%=pinlun%>

就可以显示了

要录入到数据库 (access为例) 这是连接代码

<%

Response.Buffer=True

datapath= "" '数据库目录的相对路径

datafile="data.mdb" '数据库的文件名

connstr="Provider=Microsoft.Jet.OLEDB.4.0Data Source="&Server.MapPath(""&datapath&""&datafile&"")

On Error Resume Next

Set conn=Server.CreateObject("ADODB.Connection")

conn.open ConnStr

If Err Then

err.Clear

Set Conn = Nothing

Response.Write "数据库连接出错，请检查连接字串。"

Response.End

End If

On Error GoTo 0

%>

相关数据库 *** 作:

Set rs=Server.CreateObject("ADODB.RecordSet") '创建一个连接sqlstr="SELECT * FROM 数据" 'sql语句

rs.Open sqlstr,conn,3 '在这个连接上执行sql语句

rs.close '关闭连接

set rs=nothing '释放内存

这些是简单的 具体 *** 作要另外找资料看看

---