挂机锁代码

挂机锁代码 ?Ò?úËø?úÂë: Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 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 Private Const SWP_SHOWWINDOW As Long = &H40 Private Const SWP_HIDEWINDOW As Long = &H80 Private Const SWP_NOACTIVATE As Long = &H10 Private Sub Command1_Click() If Text1.Text = "" And Text2.Text = "" Then MsgBox "ÄãÃ?ÓÐÉè??ÃÜÂë??ÇëÖØÊÔ??", 0, "ÌáÊ?" Else If Text1.Text <> Text2.Text Then MsgBox "ÊäÈëµÄÃÜÂë??ÕýÈ???ÇëÕýÈ?ÊäÈë??", 0, "?íÎóÌáÊ?" Else Form2.show Dim hide As Long hide = FindWindow("Shell_traywnd", vbNullString) Call SetWindowPos(hide, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) End If End If End Sub Private Sub Command2_Click() Form2.show End Sub Private Sub Label1_Click() End Sub ?Ò?úÒ?Ãæ?úÂë Option Explicit Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _ (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, _ ByVal fuWinIni As Long) As Long 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) Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Const SWP_SHOWWINDOW As Long = &H40 Private Const SWP_HIDEWINDOW As Long = &H80 Private Const SWP_NOACTIVATE As Long = &H10 Private Sub Command1_Click() If Text1.Text = Form1.Text1.Text Then Dim myval As Long, show As Long myval = SystemParametersInfo(97, False, CStr(1), 0) show = FindWindow("Shell_traywnd", vbNullString) Call SetWindowPos(show, 0, 0, 0, 0, 0, SWP_SHOWWINDOW) End Else MsgBox "ÃÜÂë?íÎó??ÇëÕýÈ?ÊäÈëÄúµÄÃÜÂë", 0, "?íÎóÌáÊ?" End If End Sub ÉÁ×Ö?úÂë: Private Sub Form_Load() Dim myval myval = SetWindowPos(Form2.hwnd, -1, 0, 0, 0, 0, 3) End Sub Private Sub Form_Load() Label1.Tag = "1" Timer1.Interval = 500 End Sub Private Sub Timer1_Timer() Dim ctl As Control For Each ctl In Me If TypeOf ctl Is Label ?Ánd ctl.Tag = "1" Then ctl.Visible = Not ctl.Visible End If Next End Sub