外挂呼出隐藏与置前.txt

外挂窗体的呼出 隐藏和永远置前的制作方法和运用

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dim flag1 As Boolean
Option Explicit
''使指定窗口总在最前
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Const HWND_TOPMOST = -1
Const SWP_NOMOVE = &H2
Const SWP_NOSIZE = &H1
Const SWP_NOZORDER = &H8

Sub SetFormTopmost(TheForm As Form)

SetWindowPos TheForm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, _
SWP_NOZORDER + SWP_NOMOVE + SWP_NOSIZE

End Sub

Sub Form_Load()
SetFormTopmost Me
End Sub

Private Sub Timer1_Timer()     '时间设置为1000
If GetAsyncKeyState(vbKeyF5) Then
If flag1 = False Then
Me.Hide
flag1 = True
Else
Me.Show
flag1 = False
End If
End If
End Sub