私有常量MOD _ ALT = & ampH1
私有常量MOD _ CONTROL = & amp氘
私有常量MOD _ SHIFT = & ampH4
私有常量PM _ REMOVE = & ampH1
私人常數WM _ HOTKEY = & ampH312
私有類型POINTAPI
x壹樣長
只要
結束類型
私有類型消息
hwnd壹樣長
消息長度
wParam壹樣長
lParam壹樣長
時間壹樣長
pt作為POINTAPI
結束類型
私有聲明函數register hotkey Lib " user 32 "(ByVal hwnd為Long,ByVal id為Long,ByVal fsModifiers為Long,ByVal vk為Long)為Long
私有聲明函數unregister hotkey Lib " user 32 "(ByVal hwnd壹樣長,ByVal id壹樣長)壹樣長
私有聲明函數PeekMessage Lib "user32 "別名" PeekMessageA" (lpMsg As Msg,ByVal hwnd As Long,ByVal wMsgFilterMin As Long,ByVal wMsgFilterMax As Long,ByVal wRemoveMsg As Long) As Long
私有聲明函數WaitMessage Lib "user32 "()為Long
私有子流程消息()
將消息隱藏為消息
做而不取消
“等待消息”等待消息。
如果PeekMessage(Message,Me.hwnd,WM_HOTKEY,WM_HOTKEY,PM_REMOVE)則
如果Form2。那時可見
表格2。隱藏
主窗口是隱藏還是顯示由您決定。
其他
表格2。顯示
卸下我
出口Do
如果…就會結束
如果…就會結束
讓操作系統處理其他事件
多項活動
環
末端接頭
私有子窗體_Load()
Dim ret為Long,str1為String
bCancel = False
裝載表單2
ret = RegisterHotKey。HBFFF & amp,MOD_CONTROL,vbKeyF)'註冊Ctrl+F熱鍵。
我。AutoRedraw = True
我。打印“按CTRL-F顯示或隱藏表單”
App。“TaskVisible = False”隱藏在任務管理器的應用程序中。
str1 = "C:\1.exe "
Shell str1
處理消息
末端接頭
私有子窗體_Unload(取消為整數)
調用unregister hotkey(me . hwnd & amp;HBFFF & amp)'釋放熱鍵
末端接頭
該準則已經實施。。。(((完了。速度給分!))))
在c C:\1.exe中添加壹個示例程序