VBA控制网页，提交表单时的一些问题

kii

在提交表单的时候 ie.Document.forms("form1").all.tags("a")(9).Click
网页有个javascript的消息弹出，让我确认递交表单或者取消。请问我怎样才可以用代码按确认键呢？

netcut

可以用这条语句  sendkeys {enter}

kii

递交表单时的弹出框

kii

原帖由 netcut 于 2009-7-3 11:01 发表
可以用这条语句  sendkeys {enter}

谢谢你。 但不行, sendkeys执行不了

[ 本帖最后由 kii 于 2009-7-3 11:29 编辑 ]

kii

另外发现了个问题，当点击提交按钮ie.Document.forms("form1").all.tags("a")(9).Click  后，代码就不执行了，弹出消息框后，当按下确认或取消后，才执行后面的代码。晕不知道怎样搞。其实代码就两行，应该用什么办法好呢？
ie.Document.forms("form1").all.tags("a")(9).Click
SendKeys "{enter]"



表单的代码如下: <form id="form1" name="form1" style="margin:0px" onkeypress="return _submitOnEnter(event,'form1');" method="POST" action="/XXXXXXX.asp">

[ 本帖最后由 kii 于 2009-7-3 11:41 编辑 ]

kii

有人知道方法吗？

kii

再详细说一下:
网页的代码：
<form id="form1" name="form1" style="margin:0px" onkeypress="return _submitOnEnter(event,'form1');" method="POST" action="XXXX.asp">
<input......
<input.....
....
....
<a href="#" id="form1:cbSubmit" onclick="return _chain('return validateForm();','submitForm(\'form1\',1,{source:\'form1:cbSubmit\'});return false;',this,event,true)"><img src="submit.gif" alt="Submit" border="0" align="absmiddle" width="58" height="18"></a>
</form>

VBA 代码：
填表： ie.Document.forms("form1").all("...").value="xxx"
            ie.Document.forms("form1").all("...").value="YYY"
填完表后，要按网页的submit按钮，由上面可以看到按钮是个图片，所以通过ie.Document.forms("form1").all.tags("a")(9).Click 来点击Submit, 点击后，网页会弹出消息框，然后程序就执行不了。
救命阿，这个问题一直都搞不掂

northwolves

1. 
   
2. Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
   
3.     '取消新窗口
   
4.     Cancel = True
   
5.    
   
6. End Sub
   

复制代码

kii

原帖由 northwolves 于 2009-7-3 22:58 发表

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    '取消新窗口
    Cancel = True
   
End Sub

不是很明白狼侠的意思，请问过程应该怎样用？

我现在想到的只可以用模拟鼠标点击的方法？ 热切期待狼侠创新方法。。

kii

沉太快，等待强人回复