0

我无法理解以下代码有什么问题 -

i = 15
While (i < 100)
    If i Mod 2 = 0 Then
        handle = FindWindow(vbNullString, "My Details - Windows Internet Explorer")
        Range("A1").Value = handle
        BringWindowToTop handle
        Application.Wait DateAdd("s", 1, Now)
    Else
        handle1 = FindWindow(vbNullString, "Codeomnitrix - Outlook Web App - Mozilla Firefox")
        Range("A2").Value = handle1
        BringWindowToTop handle1
        Application.Wait DateAdd("s", 1, Now)
    End If

    i = i + 15
Wend

它应该在两个窗口之间切换并让它们保持焦点直到 1 秒，但实际发生的是它只是将 Firefox 放在顶部，然后没有切换。

谢谢

4

2 回答 2

1

如果您考虑使用 Autoit，这可能非常简单。

添加对 autoit dll 的引用。

在此处输入图像描述

下载自动

Sub test()

   Dim oAutoit As New AutoItX3
   oAutoit.Opt "WinTitleMatchMode", 2  ' Match any substring in the title
   oAutoit.WinActivate "My Details - Windows Internet Explorer" ' Activates (gives focus to) a window.

End Sub
于 2013-07-18T06:53:20.853 回答
0

我发现激活时不会弹出最小化窗口。

Private Declare Function GetWindowPlacement Lib _
        "user32" (ByVal hwnd As Integer, _
        ByRef lpwndpl As WINDOWPLACEMENT) As Integer
Private Declare Function SetWindowPlacement Lib "user32" _
       (ByVal hwnd As Integer, ByRef lpwndpl As WINDOWPLACEMENT) As Integer

Private Const SW_SHOWMINIMIZED As Short = 2
Private Const SW_SHOWMAXIMIZED As Short = 3
Private Const SW_SHOWNORMAL As Short = 1

Private Structure WINDOWPLACEMENT
    Dim length As Integer
    Dim flags As Integer
    Dim showCmd As Integer
    Dim ptMinPosition As POINTAPI
    Dim ptMaxPosition As POINTAPI
    Dim rcNormalPosition As RECT
End Structure

[...]

Dim handle As Integer
Dim wp As WINDOWPLACEMENT

handle = FindWindow(vbNullString, "My Details - Windows Internet Explorer")
GetWindowPlacement(handle, wp)
wp.showCmd = SW_SHOWNORMAL
SetWindowPlacement(handle, wp)

所有这些都从Codeproject 文章中复制以恢复窗口。

于 2013-07-18T07:57:46.830 回答