Question

VB WebBrowser 提交表单

VB 如何提交这个表单：

function sexyBOX1() {
var payType=$('payTypea1').checked?'1':'2';
var szxAmount=$('szxAmount1').value;
var szxPay=$('szxPay1').value;
if(payType=='1'){
if(!window.confirm("请确认：\n\n您所选择的充值卡的金额是"+szxAmount+"元\r\n\n如果和卡面额不符损失自负")){
return false;
}
}

var t='<img src=\"/./views/templates/images/charge/div_load.gif\"> 正在处理中...';
var v='请不要关闭窗口，交易正在处理中!!<br><br>';
var b='400';
$S('sexyBG').height=XYwin(0)+'px';
$S('sexyBG').display='block';
$('sexyBOX').innerHTML="<div class=\"sexyT\" id=title1>  "+t+"<\/div><div id='pay_rs1'>"+v+"</div><DIV id='divClose1'></div>";
$S('sexyBOX').left=Math.round((XYwin(1)-b)/2)+'px';
$S('sexyBOX').width=b+'px';
$S('sexyBOX').display='block';
divPostParam1();
}

提交按键：<input type="button" name="Submit" value="提交" class="submit" onclick="sexyBOX(); return false;"/>

这个如何让VB提交呢？
这种表单一点提交就弹出窗口：
if(!window.confirm("请确认：\n\n您所选择的充值卡的金额是"+szxAmount+"元\r\n\n如果和卡面额不符损失自负")){
return false;
}
有没有办法不让他弹？

Answer 1

'用tagname=“input” 和 name="submit" ，找到按钮用,用click事件提交.

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
Dim vdoc
Set vdoc = WebBrowser1.Document
For i = 0 To vdoc.All.length
If LCase(vdoc.All(i).tagname) = "INPUT" Then
IF LCase(vdoc.All(i).name)="SUBMIT" THEN
vdoc.All(i).CLICK
END IF
End If
Next i
End Sub