Question

在VB.NET中，您可以使用

将焦点设置为外部应用程序

AppActivate("Windows Name")

或

AppActivate(processID As Integer)

如果您这样做，现在这样可以正常工作：

Dim intNotePad As Integer = Shell("C:\WINNT\Notepad.exe",
AppWinStyle.MinimizedNoFocus)
AppActivate(intNotePad)

但是当我这样做时：

For Each theprocess As Process In processlist
    If InStr(theprocess.ProcessName, "DWG") Then
        strProcessList += String.Format("Process: {0} ID: {1}", theprocess.ProcessName, theprocess.Id) + vbCrLf
        AppActivate(theprocess.ID)
    End If
Next

然后它找不到窗口，即使它是打开的，即使它使用窗口标题找到窗口。

但我需要按进程ID。

我该怎么做？

我需要它专注于Windows安装程序安装项目中的第三方安装程序。

Answer 1

我不知道为什么你没有达到正确的结果。通常，在将焦点设置到其他应用程序时，我从来没有过多的运气AppActivate（至少有不同程度的成功）。试试这个：

将此类添加到相同的模块/对象/您的代码：

Public NotInheritable Class Win32Helper
    <System.Runtime.InteropServices.DllImport("user32.dll", _
    EntryPoint:="SetForegroundWindow", _
    CallingConvention:=Runtime.InteropServices.CallingConvention.StdCall, _
    CharSet:=Runtime.InteropServices.CharSet.Unicode, SetLastError:=True)> _
    Public Shared Function _
    SetForegroundWindow(ByVal handle As IntPtr) As Boolean
        ' Leave function empty
    End Function

    <System.Runtime.InteropServices.DllImport("user32.dll", _
    EntryPoint:="ShowWindow", _
    CallingConvention:=Runtime.InteropServices.CallingConvention.StdCall, _
    CharSet:=Runtime.InteropServices.CharSet.Unicode, SetLastError:=True)> _
    Public Shared Function ShowWindow(ByVal handle As IntPtr, _
    ByVal nCmd As Int32) As Boolean
        ' Leave function empty
    End Function
End Class

然后在代码中，而不是AppActivate，执行以下操作：

Dim appHandle As intPtr
appHandle = theprocess.MainWindowHandle 'theprocess is naturally your process object

Dim Win32Help As New Win32Helper
Win32Helper.SetForegroundWindow(appHandle)

Answer 2

尝试使用这些Win32函数：

Declare Sub SwitchToThisWindow Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal fAltTab As Boolean)
Declare Function SetActiveWindow Lib "user32.dll" (ByVal hwnd As IntPtr) As IntPtr
Private Enum ShowWindowEnum
    Hide = 0
    ShowNormal = 1
    ShowMinimized = 2
    ShowMaximized = 3
    Maximize = 3
    ShowNormalNoActivate = 4
    Show = 5
    Minimize = 6
    ShowMinNoActivate = 7
    ShowNoActivate = 8
    Restore = 9
    ShowDefault = 10
    ForceMinimized = 11
End Enum

使用Process.MainWindowHandle获取句柄。这适用于大多数应用程序，但不是所有应用程序。

设置外部应用程序焦点

2 个答案: