访问页面上 Frame 中的控件

访问页面上 Frame 中的控件


如果登录控件就在正常的页面上，下面的程序就可完成登录的自动化。


    let ie = new SHDocVw.InternetExplorerClass()
    let username = "XXXX"
    let password = "XXXX"


    let url = "http://site.site"
    ie.Navigate( url )
    WaitForLoad ie
    ie.Visible <- true
    let doc = ie.Document :?> mshtml.HTMLDocumentClass
    
    doc.getElementById("u").setAttribute("value", username)
    doc.getElementById("p").setAttribute("value", password)
    doc.getElementById("login_button").click()


但是，如果登录控件是放在 Frame 中的，从 doc 中就无法访问了。
照常理，添加下面的代码后，doc2 中应该是 Frame，这样，是可以访问 Frame 的。
但是，不幸的是，doc2 与 doc 居然完全相同，因此，也就无法访问登录了。


    let iframe = doc.getElementsByTagName("iframe").item(0) :?> mshtml.HTMLIFrameClass
    let doc2 = iframe.document :?> mshtml.HTMLDocumentClass


需要添加下面的代码，才能访问 Frame 中的控件。


    let i = box 0
    let doc3 = doc.frames.item(ref i) :?> mshtml.HTMLWindow2Class
    let doc = doc3.document :?> mshtml.HTMLDocumentClass

这里，比较怪的是，item 中不能直接赋 0 。

而且，在 VS2013 中，单步运行、编译运行都没有问题；而在 VS2012 中，单步运行出错，说是 obj 与 int 类型不一致，但编译运行没有问题。

[ 昨天晚上系统有一些补丁更新，今天就没有单步运行出错的问题了。2014、02、26]

还有一点需要注意，在单步运行时是完全可以的，而一旦编译后，再运行，就会出错，说：
函数求值需要运行所有线程。


需要在主程序中加上
[<STAThread>]