怎么用BCB中的CppWebBrowser控件完成网页自动填表
如何用BCB中的CppWebBrowser控件完成网页自动填表
如题图,文本输入部分已经照抄高手的代码行了,但下拉列表选择部分不知道怎么实现
网页文件
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<tr>
<td colspan="2" align="center"><b>车辆违法查询</b></td>
</tr>
<tr>
<td>车牌号</td>
<td><input name="cphm" type="text" style="width:60px; height:12px;" value="H" /></td>
</tr>
<tr>
<td>车架号</td>
<td><input name="cj" type="text" style="width:80px; height:12px;" /></td>
</tr>
<tr>
<td>发动机号</td>
<td><input name="fdj" type="text" style="width:80px; height:12px;" /></td>
</tr>
<tr>
<td width="60">号牌种类</td>
<td> <select name="hpzl" size="0" id="hpzl" style="WIDTH: 95px;" valign="center">
<option value="" selected="selected">请选择</option>
<option value="01">大型汽车</option>
<option value="02">小型汽车</option>
<option value="03">使馆汽车</option>
<option value="04">领馆汽车</option>
<option value="05">境外汽车</option>
<option value="06">外籍汽车</option>
<option value="07">两、三轮摩托车</option>
<option value="08">轻便摩托车</option>
<option value="09">使馆摩托车</option>
<option value="10">领馆摩托车</option>
<option value="11">境外摩托车</option>
<option value="12">外籍摩托车</option>
<option value="13">农用运输车</option>
<option value="14">拖拉机</option>
<option value="15">挂车</option>
<option value="16">教练汽车</option>
<option value="17">教练摩托车</option>
<option value="18">试验汽车</option>
<option value="19">试验摩托车</option>
<option value="20">临时入境汽车</option>
<option value="21">临时入境摩托车</option>
<option value="22">临时行驶车</option>
<option value="23">警用汽车</option>
<option value="24">警用摩托</option>
</select></td>
</tr>
<tr>
<td colspan="2" align="center"><input type="submit" name="button" id="button" value="查询" onclick="return checkadd()" /></td>
</tr>
</form>
</body>
</html>
程序:
void __fastcall TForm1::PutInput(TCppWebBrowser *CppWebBrowser1, AnsiString Cph,AnsiString Cjh,AnsiString Fdjh,AnsiString Jszh,AnsiString Dabh)
{
VARIANT id, index,id1,index1;
IDispatch *spDispatch;
IHTMLDocument2 *pDoc2;
IHTMLElement *pElement;
IHTMLElementCollection *pElementCol;
IHTMLFormElement *pFormElement;
IHTMLInputElement *pInputElement;
如题图,文本输入部分已经照抄高手的代码行了,但下拉列表选择部分不知道怎么实现
网页文件
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<tr>
<td colspan="2" align="center"><b>车辆违法查询</b></td>
</tr>
<tr>
<td>车牌号</td>
<td><input name="cphm" type="text" style="width:60px; height:12px;" value="H" /></td>
</tr>
<tr>
<td>车架号</td>
<td><input name="cj" type="text" style="width:80px; height:12px;" /></td>
</tr>
<tr>
<td>发动机号</td>
<td><input name="fdj" type="text" style="width:80px; height:12px;" /></td>
</tr>
<tr>
<td width="60">号牌种类</td>
<td> <select name="hpzl" size="0" id="hpzl" style="WIDTH: 95px;" valign="center">
<option value="" selected="selected">请选择</option>
<option value="01">大型汽车</option>
<option value="02">小型汽车</option>
<option value="03">使馆汽车</option>
<option value="04">领馆汽车</option>
<option value="05">境外汽车</option>
<option value="06">外籍汽车</option>
<option value="07">两、三轮摩托车</option>
<option value="08">轻便摩托车</option>
<option value="09">使馆摩托车</option>
<option value="10">领馆摩托车</option>
<option value="11">境外摩托车</option>
<option value="12">外籍摩托车</option>
<option value="13">农用运输车</option>
<option value="14">拖拉机</option>
<option value="15">挂车</option>
<option value="16">教练汽车</option>
<option value="17">教练摩托车</option>
<option value="18">试验汽车</option>
<option value="19">试验摩托车</option>
<option value="20">临时入境汽车</option>
<option value="21">临时入境摩托车</option>
<option value="22">临时行驶车</option>
<option value="23">警用汽车</option>
<option value="24">警用摩托</option>
</select></td>
</tr>
<tr>
<td colspan="2" align="center"><input type="submit" name="button" id="button" value="查询" onclick="return checkadd()" /></td>
</tr>
</form>
</body>
</html>
程序:
void __fastcall TForm1::PutInput(TCppWebBrowser *CppWebBrowser1, AnsiString Cph,AnsiString Cjh,AnsiString Fdjh,AnsiString Jszh,AnsiString Dabh)
{
VARIANT id, index,id1,index1;
IDispatch *spDispatch;
IHTMLDocument2 *pDoc2;
IHTMLElement *pElement;
IHTMLElementCollection *pElementCol;
IHTMLFormElement *pFormElement;
IHTMLInputElement *pInputElement;