getKey(user,passwd) { ie := ComObjCreate("InternetExplorer.Application") ;如果连接IE对象失败就创建一个IE窗口 ;ie.visible :=true ;浏览器窗口可见 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 } ;函数部分 ;等待ie加载完成 waitIE(ie,s=10,iTitle=30) { i = 0 Loop { Sleep,%s% i := ie.readyState = 4 ? i+1 : 0 } Until (i > iTitle ) }
?
谢谢