Question

求教VB网页表单填写

本人小白，想用vb做个程序，在webBrowser中自动填写表单。网页源代码如下：
<td class="left">归属部门：</td>
<td class="right">
<input type="hidden" name="hidden">
<input name="ComCode" class="codecode" size="4" description="归属部门" style="width:25%;" maxlength="8"
querytype="always" codetype="ComCode" coderelation="1" codelimit="clear"
ondblclick=" code_CodeSelectComCode(this);"
onkeyup=" code_CodeSelectComCode(this);"
onblur=" code_CodeChangeComCode(this);"
onchange=" changeComCode(this);getMaxManageFeeRate();ChengSaleBaseInfo();">
<input name="ComName" type="text" class="codename" style="width:50%"
querytype="always" codetype="ComCode" coderelation="-1" codelimit="must"
ondblclick="code_CodeSelectComCode(this);"
onkeyup="code_CodeSelectComCode(this);"
onChange="return code_CodeChangeComCode(this);"/>
<img src="/prpall/common/images/markMustInput.jpg">
</td>
我想在归属部门的ComCode中填写01，ComName中填写业务部，该怎么做，下面是我自己网上找来的填写表单的代码，但是做不出来，求教各位大神了，谢谢了！
Private Sub info_Click()
Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.Length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.Type = "text" Then
Select Case vTag.Name
Case "ComeName"
vTag.Value = "业务部"
End Select
End If
End If
Next i
End Sub

Answer 1

Private Sub info_Click()
Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.Length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.Type = "text" Then
Select Case vTag.Name
Case "ComName"‘这里多了个e
vTag.Value = "业务部"
End Select
End If
End If
Next i
End Sub

Answer 2

VB代码中有一句应该是
Case "ComName"
你多写了一个字母e

Answer 3

WebBrowser1.Document.form的name.ComCode.value="01"
WebBrowser1.Document.form的name.ComName.value="业务部"

追问

具体该怎么写代码呢

追答

form的name 是什么，你替换掉上面的就可以