| 1 | #include <IE.au3> |
|---|
| 2 | AutoItSetOption("WinTitleMatchMode",2) |
|---|
| 3 | |
|---|
| 4 | Dim $tmp2,$tmp3,$tmp4,$tmp6,$tmp7,$tmp8,$tmp9,$z=0 |
|---|
| 5 | |
|---|
| 6 | AttachToIEObject() |
|---|
| 7 | |
|---|
| 8 | Func AttachToIEObject() |
|---|
| 9 | Do |
|---|
| 10 | $tmp3 = 0 |
|---|
| 11 | While $tmp3 = 0 ; loop until an Internet Explorer window is active |
|---|
| 12 | $tmp3 = WinActive("Windows Internet Explorer") |
|---|
| 13 | Sleep(2000) |
|---|
| 14 | WEnd |
|---|
| 15 | if $tmp3 = 1 Then ; if IE is active |
|---|
| 16 | $tmp4 = WinGetHandle("Windows Internet Explorer") ; get the handle of the IE window |
|---|
| 17 | If IsHWnd($tmp4) Then ; if it's valid, |
|---|
| 18 | $tmp6 = ControlGetHandle($tmp4,"","[CLASS:TabWindowClass]") ; get the handle of the tab that is in focus |
|---|
| 19 | EndIf |
|---|
| 20 | If IsHWnd($tmp6) Then ; if the tab window is valid, |
|---|
| 21 | $tmp7 = ControlGetHandle($tmp6,"","[CLASS:Shell DocObject View]") ; get the handle of the Shell DocObject |
|---|
| 22 | EndIf |
|---|
| 23 | If IsHWnd($tmp7) Then ; if it's valid |
|---|
| 24 | $tmp8 = ControlGetHandle($tmp7,"","[CLASS:Internet Explorer_Server]") ; finally get the handle to the IE control |
|---|
| 25 | ; we had to crawl down from the parent IE window |
|---|
| 26 | ; to get this handle so that we get the tab the user |
|---|
| 27 | ; is working in |
|---|
| 28 | EndIf |
|---|
| 29 | If IsHwnd($tmp4) And IsHWnd($tmp6) And IsHWnd($tmp7) And IsHWnd($tmp8) Then ; if all of the above handles are valid, |
|---|
| 30 | $tmp9 = __IEControlGetObjFromHWND($tmp8) ; get the object of the IE control (THIS IS WHERE IT ALWAYS FAILS IN 3.2.10.0) |
|---|
| 31 | ; It always works in 3.2.8.1 |
|---|
| 32 | ; Rest of the code is removed for the bug report file |
|---|
| 33 | EndIf |
|---|
| 34 | EndIf |
|---|
| 35 | |
|---|
| 36 | Until $z = 1 ; loop forever |
|---|
| 37 | EndFunc |
|---|
| 38 | |
|---|
| 39 | |
|---|
