UC知道vb自动填表问题
来源：百度知道 编辑：UC知道 时间：2024/06/22 00:32:31
标题栏：<input type=hidden id="order" name="order" value=0>
<fieldset><legend>使用密保问题修改密码，请先回答下列密保问题</legend>
<div class="content_short">
内容栏：<li><label for="answer1">答案：</label>
<input type="text" id="dnaAnswer1" name="dnaAnswer1" value="" class="input_text" onblur="dnaAnsChangeHandler(this)"/>
<div id="divDnaAnsTip1"></div>
提交按钮：<div class="button">
<input type="submit" value="下一步" class="btn_blue" id="next_step"/>
</div>
请高手写出完整的代码 最好加上注释 （谢谢）
<fieldset><legend>使用密保问题修改密码，请先回答下列密保问题</legend>
<div class="content_short">
内容栏：<li><label for="answer1">答案：</label>
<input type="text" id="dnaAnswer1" name="dnaAnswer1" value="" class="input_text" onblur="dnaAnsChangeHandler(this)"/>
<div id="divDnaAnsTip1"></div>
提交按钮：<div class="button">
<input type="submit" value="下一步" class="btn_blue" id="next_step"/>
</div>
请高手写出完整的代码 最好加上注释 （谢谢）
'*************************************************************************
'**函 数 名：ReferForm
'**中文意译:表单提交
'**输 入：ByVal WebbrowserA(String) - webbrowser控件名
'** ：ByVal FormType(Integer) - 集合 表单类型
'** ：Optional FormName(String) - 表单名[可选]
'** ：Optional Value(String = "") - 表单值[可选]
'**输 出：无
'**功能描述：
'** :
'**作 者：秋色烽火
'**日 期：2008-01-31 07:46:14
'*************************************************************************
Public Sub ReferForm(ByVal Webbrowser As Webbrowser, ByVal FormType%, Optional ByVal FormName$, Optional ByVal Value$ = "")
'http://www.jcwcn.com/html/CSSHTML/10_43_45_931.htm
'Text = 0; password = 1; textarea = 2; Hidden = 3; CheckBox = 4; submit = 8; button