从Vb.net服务获得其他应用程序的焦点

Imports System.Runtime.InteropServices

Public Class FocusHelper
    <DllImport("user32.dll", SetLastError:=True)>
    Private Shared Function SetForegroundWindow(ByVal hWnd As IntPtr) As Boolean
    End Function

    <DllImport("user32.dll", SetLastError:=True)>
    Private Shared Function ShowWindow(ByVal hWnd As IntPtr, ByVal nCmdShow As Integer) As Boolean
    End Function

    Public Shared Sub SetFocusToWindow(ByVal windowTitle As String)
        Dim hWnd As IntPtr = FindWindow(Nothing, windowTitle)
        If hWnd <> IntPtr.Zero Then
            SetForegroundWindow(hWnd)
            ShowWindow(hWnd, 9) ' SW_RESTORE
        End If
    End Sub

    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
    Private Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    End Function
End Class