VB自动提交表单问题

需要知道表单名称呢，比如
<Form name="xx" Action"abc.htm">
以上代码中表单名称是xx，在百度首页，表单名称是f.以下是提交百度首页中的表单的例子。
Private Sub Command1_Click()
Me.WebBrowser1.Document.f.submit
End Sub

Private Sub Form_Load()
Me.WebBrowser1.Navigate ("http://www.baidu.com")
End Sub

运行程序，填写查找内容，然后点击Command1看看？呵呵，有趣吗？

 

 

-----------------------------------------------------------------------------------

 

首先，先建立一个工程，加一个窗体form1，上面添加一个textbox控件text1，和两个按钮
分别为command1和command2，
然后实现按下command1按钮就向网页提交text1的内容
先打开菜单里的，工程-〉引用-〉选中microsoft xml，必须先这样，因为下面要用到msxml对象
button1的实现代码如下：
Private Sub Command1_Click()
On Error Resume Next
Dim oXmlHttp As New MSXML.XMLHTTPRequest
Dim sPostString As String, sRespText As String

sPostString = "ID = " + Text1.Text '需要提交的数据"
oXmlHttp.open "POST", "http://127.0.0.1", False

'一定要加上下面的这一句，说明提交类型的
oXmlHttp.setRequestHeader "content-type", "multipart/form-data"
oXmlHttp.send (sPostString)
sRespText = oXmlHttp.responseText '得到处理后response回来的数据
'sRespText为返回的结果，可以根据结果进行处理，具体处理请根据需要编写
oXmlHttp = Nothing
End Sub  

 

 

 

Option   Explicit  
  Private   Sub   Command1_Click()  
  Dim   szValue   As   String  
  WebBrowser1.Document.body.innerHTML   =   "<form   id=post   method=post   action=http://地址/xxx.php><input   type=text   value='"   &   szValue   &   "'></form>"  
  WebBrowser1.Document.Forms("post").submit  
  End   Sub  
  Private   Sub   Form_Load()  
  WebBrowser1.Navigate2   "about:blank"  
  End   Sub  
   
  更多，查看：  
  http://dev.youkuaiyun.com/article/28/28374.shtm