从任务列表和 ALT+TAB 顺序中隐藏 VB.Net 应用程序？

Question

我正在创建一个我想在后台运行的小型检查器应用程序，它只有一个简单的计时器来检查某个进程是否正在运行，但是我想从 Alt-Tab 切换器中隐藏它，并且任务列表是可能的也。 我遇到了一些来自 Microsoft 的代码，但它是 2003 年的，并且不再适用于最新版本的 VB.Net，我收到以下错误：

OwnerhWnd = GetWindow(Me.hWnd, GW_OWNER)

我在网上查过它，并遵循了一些人所说的，但无济于事。 许多人向其他人建议使用 Me.Handle，但我也无法使其正常工作，只是不断收到相同的错误：

A first chance exception of type 'System.DllNotFoundException' occurred in Checkr.exe

这是提供的代码：

Public Class Form1

  Declare Function ShowWindow Lib "User" (ByVal hWnd As Integer,
  ByVal nCmdShow As Integer) As Integer
  Declare Function GetWindow Lib "User" (ByVal hWnd As Integer,
  ByVal wCmd As Integer) As Integer
  Const SW_HIDE = 0
  Const GW_OWNER = 4

Sub Form_Load ()
  Dim OwnerhWnd As Integer
  Dim ret As Integer

  ' Make sure the form is invisible:
  form1.Visible = False

  ' Set interval for timer for 5 seconds, and make sure it is enabled:
  timer1.Interval = 5000
  timer1.Enabled = True

  ' Grab the background or owner window:
  OwnerhWnd = GetWindow(Me.hWnd, GW_OWNER)
  ' Hide from task list:
  ret = ShowWindow(OwnerhWnd, SW_HIDE)

End Sub


Sub Timer1_Timer ()
  Dim ret As Integer
  ' Display a message box:
ret = MsgBox("Visible by Alt+Tab. Cancel to Quit", 1, "Invisible Form")
  ' If cancel clicked, end the program:
  If ret = 2 Then
     timer1.Enabled = False
     Unload Me
     End
  End If
End Sub

如果有帮助，可以在此处找到原始的 Microsoft 文章。

Answer 1

摆脱那个旧代码......

在 VB.Net 中你需要做的就是将 Form 的FormBorderStyle设置为FixedToolWindow ，并将ShowInTaskBar设置为 False：

FixedToolWindow - 不可调整大小的工具窗口边框。 工具窗口不会出现在任务栏或用户按 ALT+TAB 时出现的窗口中。 尽管指定 FixedToolWindow 的表单通常不会显示在任务栏中，但您还必须确保 ShowInTaskbar 属性设置为 false，因为其默认值为 true。

Answer 2

在你的表单 Load 事件中试试这个：

Call SetWindowLong(Me.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW)

您将需要导入以下命名空间：

Imports System.Runtime.InteropServices

以及添加这个 user32 函数：

<DllImport("user32.dll", _
EntryPoint:="SetWindowLong")> _
Private Shared Function SetWindowLong(ByVal hWnd As IntPtr, _
                                     ByVal nIndex As Integer, _
                                     ByVal dwNewLong As Integer) _
                                 As Integer
End Function

此外，您需要在某处声明 WS_EX_TOOLWINDOW 和 GWL_EXSTYLE 的常量：

Dim WS_EX_TOOLWINDOW as Integer = &H80
Dim GWL_EXSTYLE as Integer = -20

现在您的表单将从任务栏和 alt-tab 菜单中隐藏。 阅读更多相关信息： http : //www.pinvoke.net/default.aspx/Enums/WindowStylesEx.html

可以在同一站点上找到其他常量，遗憾的是我无法发布更多链接。 希望这回答了您的问题（如果尚未回答）！

Answer 3

1.使用以下代码创建模块或类¹ 。

2. 调用需要隐藏的各个表单中的类，如下图

Dim x_cl_HideTaskView As _cl_HideTaskView = New _cl_HideTaskView(Me)

¹ 创建模块/类的代码（如步骤 1 中所述）

Imports System.Runtime.InteropServices
Module _g_ui_Fn_HideTaskView

Public Class _cl_HideTaskView
    Dim WithEvents x_form As Form
    Public Sub New(ByVal _form As Object)
        x_form = _form
    End Sub

    Private Sub x_form_Load(sender As Object, e As EventArgs) Handles x_form.Load
        _sub_hideTaskView()
    End Sub

#Region "Hide this form from Task View Window (ALT + TAB)"
    'Imports System.Runtime.InteropServices
    <DllImport("user32.dll", EntryPoint:="SetWindowLong")>
    Private Shared Function SetWindowLong(ByVal hWnd As IntPtr, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
    End Function
    Private Sub _sub_hideTaskView()
        Dim WS_EX_TOOLWINDOW As Integer = &H80
        Dim GWL_EXSTYLE As Integer = -20
        Call SetWindowLong(x_form.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW)
    End Sub
#End Region
End Class
End Module