自动刷新 IE 窗口在 VB.Net 中不起作用

Question

我尝试编写一个简单的函数将 Internet Explorer 窗口带到前台，然后按 F5 使用 dll 函数刷新它：

    Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Integer) As Integer

然后稍后使用以下方法调用此函数：

    SetForegroundWindow(processID.MainWindowHandle.ToInt32)
        SendKeys.Send("{F5}")

但是，当我尝试调试代码时，setforeground 确实如此不工作。

我使用的是 Windows 2008（64 位），所以我认为应该使用 ToInt64。然而，这似乎也没有达到目的，当我调用 SetForegroundWindow 时，似乎没有任何结果。

还有其他推荐吗？我正在使用 VS 2008。

很多 thnaks！

Answer 1

P/Invoke 签名 我可以发现建议参数应该是 IntPtr，而不是一个大小的整数（这是有道理的 - 您不需要为 32 位和 64 位编写单独的代码）：

<DllImport("user32.dll")> _
 Private Shared Function SetForegroundWindow(ByVal hWnd As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
 End Function

此外，焦点问题非常难以调试，因为调试器窗口往往需要始终重新获得焦点（例如，如果您单步执行，它可能会将焦点设置在其他地方，然后立即重新获得焦点以显示下一行代码）