关于VB 用 WebBrowser1 控件自动提交表单问题？

zhuzj8831 2008-09-22 01:30:15

我想做一个自动填写页面上的数据并提交的程序，但页面上有个option控件选择后回触发onchange事件，会执行如下代码
function showajax(value) {
if(value == '') {
$("purchesdiv").innerHTML = '';
return;
}
var x = new Ajax('HTML','purdiv');
x.get('ajax.php?action=showpurches&id='+value, function(s) {
$("purdiv1").style.display = "";
$("purchesdiv").innerHTML = s;
});
}

function check(){
var beishu = document.getElementById("beishu").value;
var Input = document.getElementsByTagName("input");
for(var i = 0; i < Input.length; i ++) {
if(Input[i].type == 'radio' && Input[i].checked) {
var type = Input[i].value;
break;
}

怎么勾选脚本上面的单选框和多选框呀？

...全文

349 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

zhuzj8831 2008-09-22

打赏
举报

谢谢 zswang 的解答，但我不是要选择option控件的项目，我是想选择onchenge事件后显示出来的一堆check选项框。

代码是这个onchenge 事件代码：

function showajax(value) {
if(value == '') {
$("purchesdiv").innerHTML = '';
return;
}
var x = new Ajax('HTML','purdiv');
x.get('ajax.php?action=showpurches&id='+value, function(s) {
$("purdiv1").style.display = "";
$("purchesdiv").innerHTML = s;
});
}

这个是检查check控件勾选的代码

function checkValue(){
if(!check()) return false;
if($("dtype").value == ''){
alert('类型不能为空');
return false;
}
var purTag = document.getElementsByTagName('input');
var bool = false;
for(var i=0; i<purTag.length; i++) {
if( purTag[i].checked && purTag[i].name == 'purid[]' ){
var bool = true;
break;
}

我就是想通过webBrowser1控件勾选 check选项框

王集鹄 2008-09-22

打赏
举报

双引号没处理，修正一下：

webBrowser1.Navigate("javascript:var dtype = document.getElementById('dtype'); dtype.selectedIndex = 2; dtype.onchange(dtype);")

王集鹄 2008-09-22

打赏
举报

参考如下代码：

webBrowser1.Navigate("javascript:var dtype = document.getElementById("dtype"); dtype.selectedIndex = 2; dtype.onchange(dtype);")

zhuzj8831 2008-09-22

打赏
举报

我不太懂javascript，页面就是有个oncheng事件，打开一个check控件数组，我想在程序里通过WebBrowser1控件勾选其中一个。

页面原程序是这样的
<select name="dtype" id="dtype" onChange="showajax(this.value);">
<option value="">请选择类型</option>
<option value="1">1</option>
<option value="4">2</option>
<option value="5">3</option>
<option value="2">4</option>
</select> <span id="purdiv"></span></td>
</tr>
<tr id="purdiv1" style="display:none;">
<td class="altbg1"><span class="bold"></span></td>
<td class="altbg2"><div class="pur" id="purchesdiv"></div></td>
</tr>
<tr>

我用程序自动填写表单
If UCase(vDoc.All(i).tagname) = "SELECT" Then
Set vTag = vDoc.All(i)
If vTag.Name = "dtype" Then
vTag.Value = "5"
vTag.fireevent ("onchange") ‘ 这个是nochenge事件，怎么勾选其中一个选择呢？
ElseIf vTag.Name = "ttype" Then
vTag.Value = zxzx
vTag.fireevent ("onchange")
ElseIf vTag.Name = "isshow" Then
vTag.Value = Combo7.Text

End If

End If

怎么勾选nochenge事件打开的页面，在原程序里面没有，是通过函数打开的，而且check控件也是数组。

zhuzj8831 2008-09-22