[求助] 请教各位老师WebBrowser1的问题

Question

单位的内网我想制作一个WebBrowser1控件来输入网页对话框内容，但是在输入身份证的时候，性别和出生日期不能自动生成
不知道是什么原因，要用鼠标点下网页中身份证框内 才能自动生成性别和出生日期，希望老师看看，附带内网源码。部分源码： id="numTip" class="txt_red"></span> <!-- #bug3125:人口管理-人口信息-人口管理-新增/编辑“证件号码”的为空校验“*”问题. -->
<span class="txt_red">*</span></td>
</tr>
<tr>
<td class="shover" >性别</td>
<td class="td_last" style="width: 250px;" ><select name="sex", id="sex" class="select_normal"><option value="">--请选择</option><option value="1">男性</option><option value="9">未说明的性别</option><option value="0">未知的性别</option><option value="2">女性</option></select>&nbsp;<span
class="txt_red">*</span></td>

<td class="shover" style="width: 100px;">出生日期</td>
<td  class="td_last" style="width: 200px;"><input type="text" id="birthday" name="birthday"  class="input_middclassle" maxlength="10" value="" onkeypress="addYearMonthDay(this)"/>&nbsp;<span class="txt_red">*</span>&nbsp;(YYYY-MM-DD)</td></tr>

<tr>

Answer 1

把输入身份证时的js消息函数调用一下。
比如身份证输入框是这样的
<input type="text" onchange="parseID();">
那么就这样调用
webBrowser1.Navigate("javascript:parseID();");

Answer 2

不好意思老师 我是个新手，该怎么在这段语句中加呢？
Private Sub Text2_Change()
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
  If vTag.ID = "cardno" Then vTag.Value = Text2
End If
End If
Next i
End Sub

Answer 3

Private Sub Text2_Change()
    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
                If vTag.ID = "cardno" Then
                    vTag.Value = Text2
                    webBrowser1.Navigate ("javascript:parseID();")
                End If
            End If
        End If
    Next i
End Sub

Answer 4

谢谢老师的回复，但是运行出错：属性“parseID”的值为null、未定义或不是function对象