Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias _
"FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, _
ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Sub Command1_Click()
Dim OurParent As Long
Dim OurHandle As Long
OurParent = FindWindow("Shell_TrayWnd", vbNullString)
OurHandle = FindWindowEx(OurParent, 0, "Button", vbNullString)
ShowWindow OurHandle, 0 '隱藏開始按鈕
Command1.Enabled = False
Command2.Enabled = True
End Sub
怎么執行后不隱藏
uj5u.com熱心網友回復：
用Spy++對比一下開始按鈕的HWND和你代碼中獲得的HWND看是否一樣。uj5u.com熱心網友回復：
這代碼只能支持Windows 2000和XP，不支持Windows 7。誰讓你不懂原理就知道亂抄。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/142381.html
標籤：VB基礎類