输入账号密码

getKey(user,passwd)

{

    ie := ComObjCreate("InternetExplorer.Application") ;如果连接IE对象失败就创建一个IE窗口


    ie.Navigate("http://xxx.xxxxx.xxx/")

    waitIE(ie)

    ;设置新属性值

    ie.document.GetElementsByTagName("INPUT").item(0).value := user 

    ie.document.GetElementsByTagName("INPUT").item(1).value := passwd

    ;点击登录

    ie.document.GetElementsByTagName("INPUT").item(5).Click()

    waitIE(ie)

    ie.document.GetElementsByTagName("A").item(3).Click()

    waitIE(ie)

    ;获得ifream框架

    iframe := ie.document.parentWindow.frames["mainframe"]

    While !(RegExMatch(iframe.document.GetElementsByTagName("table").item(0).InnerText,"([a-zA-Z0-9]{5,20})",aa))

    {}

    ie.quit

    ie := ""

    Return aa1

}