www.pudn.com > QQ2009.rar > frmAbout.frm, change:2009-11-15,size:7909b


VERSION 5.00 
Begin VB.Form frmAbout  
   BorderStyle     =   0  'None 
   Caption         =   "About Fake QQ2009" 
   ClientHeight    =   4650 
   ClientLeft      =   0 
   ClientTop       =   0 
   ClientWidth     =   4650 
   LinkTopic       =   "Form1" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   Picture         =   "frmAbout.frx":0000 
   ScaleHeight     =   310 
   ScaleMode       =   3  'Pixel 
   ScaleWidth      =   310 
   StartUpPosition =   2  '屏幕中心 
   Begin VB.Timer timFade  
      Enabled         =   0   'False 
      Interval        =   10 
      Left            =   3360 
      Top             =   3480 
   End 
   Begin QQ2009.cHyperLink l1  
      Height          =   210 
      Left            =   240 
      TabIndex        =   1 
      Top             =   2880 
      Width           =   735 
      _ExtentX        =   1296 
      _ExtentY        =   370 
      BackColor       =   16446183 
      ForeColor       =   15429654 
      Caption         =   "IceBoy" 
   End 
   Begin QQ2009.cHyperLink l2  
      Height          =   210 
      Left            =   1080 
      TabIndex        =   2 
      Top             =   2880 
      Width           =   615 
      _ExtentX        =   1296 
      _ExtentY        =   370 
      BackColor       =   16446183 
      ForeColor       =   15429654 
      Caption         =   "reker" 
   End 
   Begin QQ2009.cHyperLink l3  
      Height          =   210 
      Left            =   1800 
      TabIndex        =   3 
      Top             =   2880 
      Width           =   1095 
      _ExtentX        =   1931 
      _ExtentY        =   370 
      BackColor       =   16446183 
      ForeColor       =   15429654 
      Caption         =   "谷歌VIP用户" 
   End 
   Begin QQ2009.cHyperLink l4  
      Height          =   210 
      Left            =   1320 
      TabIndex        =   5 
      Top             =   3360 
      Width           =   1455 
      _ExtentX        =   1931 
      _ExtentY        =   370 
      BackColor       =   16446183 
      ForeColor       =   15429654 
      Caption         =   "vIstaswx Blog" 
   End 
   Begin QQ2009.cHyperLink ll1  
      Height          =   210 
      Left            =   240 
      TabIndex        =   7 
      Top             =   4200 
      Width           =   855 
      _ExtentX        =   1931 
      _ExtentY        =   370 
      BackColor       =   16446183 
      ForeColor       =   15429654 
      Caption         =   "VBGood" 
   End 
   Begin QQ2009.cHyperLink ll2  
      Height          =   210 
      Left            =   1200 
      TabIndex        =   8 
      Top             =   4200 
      Width           =   1215 
      _ExtentX        =   1931 
      _ExtentY        =   370 
      BackColor       =   16446183 
      ForeColor       =   15429654 
      Caption         =   "ForeverBell" 
   End 
   Begin QQ2009.cHyperLink cHyperLink1  
      Height          =   210 
      Left            =   2400 
      TabIndex        =   9 
      Top             =   4200 
      Width           =   1815 
      _ExtentX        =   3201 
      _ExtentY        =   370 
      BackColor       =   16446183 
      ForeColor       =   15429654 
      Caption         =   "codesky.net" 
   End 
   Begin VB.Label Label2  
      BackStyle       =   0  'Transparent 
      Caption         =   "友情打广告:" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   10.5 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   255 
      Left            =   240 
      TabIndex        =   6 
      Top             =   3840 
      Width           =   1335 
   End 
   Begin VB.Label Label1  
      BackStyle       =   0  'Transparent 
      Caption         =   "作者博客:" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   10.5 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   255 
      Left            =   240 
      TabIndex        =   4 
      Top             =   3360 
      Width           =   1095 
   End 
   Begin VB.Label lblC  
      BackStyle       =   0  'Transparent 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   10.5 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   2175 
      Left            =   240 
      TabIndex        =   0 
      Top             =   720 
      Width           =   4215 
   End 
   Begin VB.Image imgClose  
      Height          =   270 
      Left            =   4230 
      Top             =   150 
      Width           =   270 
   End 
   Begin VB.Image imgC_O  
      Height          =   270 
      Left            =   3960 
      Picture         =   "frmAbout.frx":468DA 
      Top             =   2640 
      Visible         =   0   'False 
      Width           =   270 
   End 
   Begin VB.Image imgC_N  
      Height          =   270 
      Left            =   3600 
      Picture         =   "frmAbout.frx":46D0C 
      Top             =   2640 
      Visible         =   0   'False 
      Width           =   270 
   End 
End 
Attribute VB_Name = "frmAbout" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
 
Dim cState As Integer 
Dim fadeAdd As Integer 
 
Private Sub cHyperLink1_Click() 
 OpenURL "http://www.mndsoft.com" 
End Sub 
 
Private Sub ll2_Click() 
    OpenURL "http://hi.baidu.com/foreverbell_" 
End Sub 
 
Private Sub Form_Load() 
    SetWindowLong Me.hWnd, GWL_EXSTYLE, GetWindowLong(Me.hWnd, GWL_EXSTYLE) + WS_EX_LAYERED 
    SetLayeredWindowAttributes Me.hWnd, &HFF00FF, 0, LWA_COLORKEY_ALPHA 
    SetWindowPos Me.hWnd, -1, 0, 0, 0, 0, 3 
    CloseNormal 
     
    lblC.Caption = "Fake QQ 2009 ver 1.0.0 beta" & vbCrLf & vbCrLf & _ 
    "代码编写: vIstaswx,时间关系BUG一堆。" & vbCrLf & _ 
    "完成时间: 2009-10-6" & vbCrLf & vbCrLf & _ 
    "该马甲用万恶的VB6写成,代码已经开源。" & vbCrLf & _ 
    "假冒QQ,仅供娱乐,后果自负。" & vbCrLf & _ 
    "感谢以下大牛的帮助/代码[字母顺序]:" & vbCrLf 
     
    fadeAdd = 5 
    timFade.Enabled = True 
End Sub 
 
Private Sub CloseNormal() 
    If cState = 0 Then 
        cState = 1 
        imgClose.Picture = imgC_N.Picture 
    End If 
End Sub 
 
Private Sub CloseOver() 
    If cState = 1 Then 
        cState = 0 
        imgClose.Picture = imgC_O.Picture 
    End If 
End Sub 
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) 
    CloseNormal 
End Sub 
 
Private Sub imgClose_Click() 
    fadeAdd = -5 
    timFade.Enabled = True 
End Sub 
 
Private Sub imgClose_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) 
    CloseOver 
End Sub 
 
Private Sub l1_Click() 
    OpenURL "http://hi.baidu.com/iceboy_" 
End Sub 
 
Private Sub l2_Click() 
    OpenURL "http://www.rekersoft.cn/" 
End Sub 
 
Private Sub l3_Click() 
    OpenURL "http://hi.baidu.com/googlevipuser" 
End Sub 
 
Private Sub l4_Click() 
    OpenURL "http://vIstaswx.blogbus.com" 
End Sub 
 
Private Sub ll1_Click() 
    OpenURL "http://www.vbgood.com/vbf.good" 
End Sub 
 
Private Sub timFade_Timer() 
    Static I As Long 
    I = I + fadeAdd 
    SetLayeredWindowAttributes Me.hWnd, &HFF00FF, I, LWA_COLORKEY_ALPHA 
     
    If I >= 255 Or I <= 0 Then timFade.Enabled = False 
    If I <= 0 Then Unload Me 
End Sub