在vb 在网页中填写表单

### 回答1：
在VB中，在网页中填写表单需要通过WebBrowser控件来实现。下面是使用VB代码填写网页表单的示例：

首先，将WebBrowser控件添加到窗体上。在窗体的代码中加入以下代码来填写表单：

Private Sub FillForm()
WebBrowser1.Document.Forms(0).GetElementsByTagName("input")("username").SetAttribute("value", "用户名")
WebBrowser1.Document.Forms(0).GetElementsByTagName("input")("password").SetAttribute("value", "密码")
WebBrowser1.Document.Forms(0).GetElementsByTagName("input")("submit").InvokeMember("click")
End Sub

上面的代码中，假设网页中的表单拥有username、password和submit这三个输入框，分别用来填写用户名、密码和提交表单。代码逐行解释如下：

1. WebBrowser1.Document.Forms(0)：获取网页中的第一个表单。
2. GetElementsByTagName("input")：获取表单中所有类型为input的元素集合。
3. ("username")、("password")和("submit")：根据输入框的name属性值来获取相应的输入框元素。
4. SetAttribute("value", "用户名")：设置输入框的value属性，即填写表单的内容。
5. InvokeMember("click")：模拟点击提交按钮，提交表单。

以上是使用VB代码在网页中填写表单的简单示例。根据实际的网页结构和表单元素，你可以根据需要进行相应的修改和调整。

### 回答2：
在VB中，可以通过WebBrowser控件来在网页中填写表单。以下是一个简单的示例代码：

Private Sub FillForm()
    Dim url As String = "http://www.example.com/form.html"  ' 表单所在的网页链接
    WebBrowser1.Navigate(url)  ' 使用WebBrowser控件加载网页
    
    ' 在网页加载完成后，通过DOM操作填写表单
    AddHandler WebBrowser1.DocumentCompleted, AddressOf WebBrowser1_DocumentCompleted
End Sub

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)
    ' 获取表单元素
    Dim formElement As HtmlElement = WebBrowser1.Document.GetElementById("formElementId")  ' 表单元素的id
    Dim inputElement As HtmlElement = formElement.GetElementsByTagName("input").Item(0)  ' 表单中的第一个input元素
    
    ' 填写表单
    inputElement.SetAttribute("value", "填写的内容")
    
    ' 提交表单
    Dim submitButton As HtmlElement = WebBrowser1.Document.GetElementById("submitButtonId")  ' 提交按钮的id
    submitButton.InvokeMember("click")
End Sub

以上代码中，需要将`"http://www.example.com/form.html"`替换成实际的表单网页链接，`"formElementId"`和`"inputElementId"`替换成实际表单元素的id，`"submitButtonId"`替换成实际提交按钮的id。

通过以上代码，我们可以在VB中通过WebBrowser控件加载表单网页，并使用DOM操作填写表单，最后通过点击提交按钮提交表单数据。

### 回答3：
在VB中通过网页填写表单可以通过以下步骤实现：

1. 首先，我们需要引用“Microsoft Internet Controls”库。在VB的项目中，右键点击“引用”，选择“添加引用”，然后找到“Microsoft Internet Controls”并选中。

2. 创建一个新的WebBrowser控件，并将其添加到窗体中。可以通过拖放或者使用以下代码进行创建：

   Dim WebBrowser1 As New WebBrowser
   Me.Controls.Add(WebBrowser1)

3. 使用WebBrowser控件打开指定的网页。可以使用以下代码：

   WebBrowser1.Navigate("http://www.example.com/form")

4. 等待网页加载完成。可以使用WebBrowser的“DocumentCompleted”事件来检测网页是否加载完成。例如：

   Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
       ' 网页加载完成后的处理
   End Sub

5. 找到表单元素并填写数据。可以使用WebBrowser的“Document”属性来访问网页的DOM结构，然后使用相应的方法来查找和填写表单元素的值。例如：

   Dim elements As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
   For Each element As HtmlElement In elements
       If element.Name = "username" Then
           element.SetAttribute("value", "John")
       End If
   Next

6. 提交表单数据。可以通过模拟点击提交按钮的方式来提交表单数据。例如：

   Dim buttons As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("button")
   For Each button As HtmlElement In buttons
       If button.GetAttribute("type") = "submit" Then
           button.InvokeMember("click")
       End If
   Next

通过以上步骤，我们可以使用VB在网页中填写表单并提交数据。