Stav 23.06.2026

2026-06-23 15:20:56 +02:00
commit 6d91e83e8c
5670 changed files with 1145969 additions and 0 deletions
@@ -0,0 +1,139 @@
+# testExplorer -
+
+import os
+import time
+
+import pythoncom
+import win32api
+import win32com.client.dynamic
+import win32con
+import win32gui
+import winerror
+from win32com.client import Dispatch
+from win32com.test.util import CheckClean
+
+bVisibleEventFired = 0
+
+# These are errors we might see when this is run in automation (eg, on GitHub)
+# Not sure exactly what -2125463506 is, but google shows it's a common error
+# possibly related to how IE is configured WRT site permissions etc.
+HRESULTS_IN_AUTOMATION = [-2125463506, winerror.MK_E_UNAVAILABLE]
+
+
+class ExplorerEvents:
+    def OnVisible(self, visible):
+        global bVisibleEventFired
+        bVisibleEventFired = 1
+
+
+def TestExplorerEvents():
+    global bVisibleEventFired
+    try:
+        iexplore = win32com.client.DispatchWithEvents(
+            "InternetExplorer.Application", ExplorerEvents
+        )
+    except pythoncom.com_error as exc:
+        # In automation we see this error trying to connect to events
+        # It's a little surprising that the non-event tests seem to work, but
+        # whatever...
+        if exc.hresult not in HRESULTS_IN_AUTOMATION:
+            raise
+        print("IE events appear to not be available, so skipping this test")
+        return
+
+    iexplore.Visible = 1
+    assert bVisibleEventFired, "The IE event did not appear to fire!"
+    iexplore.Quit()
+    iexplore = None
+
+    bVisibleEventFired = 0
+    ie = win32com.client.Dispatch("InternetExplorer.Application")
+    ie_events = win32com.client.DispatchWithEvents(ie, ExplorerEvents)
+    ie.Visible = 1
+    assert bVisibleEventFired, "The IE event did not appear to fire!"
+    ie.Quit()
+    ie = None
+    print("IE Event tests worked.")
+
+
+def TestObjectFromWindow():
+    # Check we can use ObjectFromLresult to get the COM object from the
+    hwnd = win32gui.FindWindow("IEFrame", None)
+    # Thanks https://stackoverflow.com/a/10154498/18450412 for the child stack on IE8+
+    for child_class in (
+        "Frame Tab",
+        "TabWindowClass",
+        "Shell DocObject View",
+        "Internet Explorer_Server",
+    ):
+        hwnd = win32gui.FindWindowEx(hwnd, 0, child_class, None)
+    # Once you have an 'Internet Explorer_Server',
+    # you can send a message and use ObjectFromLresult to get it back.
+    msg = win32gui.RegisterWindowMessage("WM_HTML_GETOBJECT")
+    rc, result = win32gui.SendMessageTimeout(
+        hwnd, msg, 0, 0, win32con.SMTO_ABORTIFHUNG, 1000
+    )
+    ob = pythoncom.ObjectFromLresult(result, pythoncom.IID_IDispatch, 0)
+    doc = Dispatch(ob)
+    # just to prove it works, set the background color of the document.
+    for color in "red green blue orange white".split():
+        doc.bgColor = color
+        time.sleep(0.2)
+
+
+def TestExplorer(iexplore):
+    if not iexplore.Visible:
+        iexplore.Visible = -1
+    filename = os.path.join(os.path.dirname(__file__), "..\\readme.html")
+    iexplore.Navigate(win32api.GetFullPathName(filename))
+    win32api.Sleep(1000)
+    TestObjectFromWindow()
+    win32api.Sleep(3000)
+    try:
+        iexplore.Quit()
+    except (AttributeError, pythoncom.com_error):
+        # User got sick of waiting :)
+        pass
+
+
+def TestAll():
+    try:
+        try:
+            try:
+                iexplore = win32com.client.dynamic.Dispatch(
+                    "InternetExplorer.Application"
+                )
+            except pythoncom.com_error as exc:
+                if exc.hresult not in HRESULTS_IN_AUTOMATION:
+                    raise
+                print("IE appears to not be available, so skipping this test")
+                return
+
+            TestExplorer(iexplore)
+
+            win32api.Sleep(1000)
+            iexplore = None
+
+            # Test IE events.
+            TestExplorerEvents()
+            # Give IE a chance to shutdown, else it can get upset on fast machines.
+            time.sleep(2)
+
+            # Note that the TextExplorerEvents will force makepy - hence
+            # this gencache is really no longer needed.
+
+            from win32com.client import gencache
+
+            gencache.EnsureModule("{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}", 0, 1, 1)
+            iexplore = win32com.client.Dispatch("InternetExplorer.Application")
+            TestExplorer(iexplore)
+        except pythoncom.com_error as exc:
+            if exc.hresult != winerror.RPC_E_DISCONNECTED:  # user closed the app!
+                raise
+    finally:
+        iexplore = None
+
+
+if __name__ == "__main__":
+    TestAll()
+    CheckClean()