语句逻辑出错出现的问题

Question

我的源码大体意思如下：
一、打开EXCEL，用WEBBROWSER打开网页，网页一中填写用户名（从EXCEL中取得），点登录，进入网页二中，点一下别的按钮，然后再打开网页一进行循环
二、在WebBrowser1_DocumentComplete事件中是这样写的
    if 是网页一 then
     if i<10 then 
     WebBrowser1.Document.getelementbyid("TextBox2").Value = Text2.Text
     WebBrowser1.Document.getelementbyid("TextBox1").Value = Text1.Text
     WebBrowser1.Document.getelementbyid("Button1").Click
     i=i+1
    else
     退出EXCEL，退出程序
    end if   IF 是网页二  then 
      s=pDisp.document.documentelement.outerhtml
     if instr(s,"AAA")>0 then 
       WebBrowser1.Document.getelementbyid("Button1").Click     在这儿我出现了问题，应该还加一句打开网页二的句子，但我忘记加了，但是程序点击后却结束了程序！这是为什么？
       else 打开网页二
    END if
我是菜鸟，写个东西都要东抄西抄的，源码没有U盘没弄回来，希望大家能看明白就行了，我的问题是：它为什么意外的结束程序？？？ 

Answer 1

AUTOHOTKEY对打开网页后操作好象不好吧，每次都要设固定的等待值，有时候网页是一下就打开了，而有时又要等半天，用那个好象不好哦

Answer 2

可以用PixelSearch或ImageSearch来判断网页是否打开啊。

Answer 3

发现了问题的根源了，WebBrowser1.Document.getelementbyid("Button1").Click 用COMMAND-CLICK时能用，但用在WebBrowser1_DocumentComplete里却不行，所以我换成了for i=0 to ....问题就在这儿，菜鸟就是这样，东西都 是东抄西抄的，所以会出现一些莫名的错误