Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const SW_HIDE = 0 '隐藏
Private Const SW_SHOW = 1 '显示
'隐藏
Private Sub Command1_Click()
Dim WinWnd As Long
WinWnd = FindWindow(vbNullString, "C:\Windows\System32\cmd.exe")
If WinWnd <> 0 Then
ShowWindow WinWnd, SW_HIDE
End If
End Sub
'显示
Private Sub Command2_Click()
Dim WinWnd As Long
WinWnd = FindWindow(vbNullString, "C:\Windows\System32\cmd.exe")
If WinWnd <> 0 Then
ShowWindow WinWnd, SW_SHOW
End If
End Sub
转载声明:本站发布文章及版权归原作者所有,转载本站文章请注明文章来源!