frmsplash.frm

专业版本的vb防火墙管理程序

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Begin VB.Form FrmSplash 
   BackColor       =   &H00D6D1D0&
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   3885
   ClientLeft      =   5835
   ClientTop       =   4215
   ClientWidth     =   6375
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   Icon            =   "FrmSplash.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3885
   ScaleWidth      =   6375
   Begin VB.Timer Timer1 
      Interval        =   500
      Left            =   5745
      Top             =   1080
   End
   Begin MSComCtl2.Animation Animation1 
      Height          =   825
      Left            =   1245
      TabIndex        =   0
      Top             =   1260
      Width           =   4035
      _ExtentX        =   7117
      _ExtentY        =   1455
      _Version        =   393216
      Center          =   -1  'True
      BackColor       =   14078416
      FullWidth       =   269
      FullHeight      =   55
   End
   Begin Firewall.UserControl3 UserControl31 
      Height          =   1650
      Left            =   0
      TabIndex        =   3
      Top             =   2235
      Width           =   6375
      _ExtentX        =   11245
      _ExtentY        =   2910
      Begin VB.Label LblLoad 
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "载入中..."
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   270
         Left            =   1980
         TabIndex        =   4
         Top             =   1410
         Width           =   4365
      End
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "Visual Basic"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   14.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   435
      Left            =   975
      TabIndex        =   5
      Top             =   435
      Width           =   1755
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "2005"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   15.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   435
      Left            =   5160
      TabIndex        =   2
      Top             =   660
      Width           =   810
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "个人防火墙"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00CD663F&
      Height          =   990
      Left            =   1005
      TabIndex        =   1
      Top             =   615
      Width           =   4290
   End
End
Attribute VB_Name = "FrmSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：05/06/11
'描  述：很专业的个人防火墙
'网  站：http://www.mndsoft.com/
'e-mail：[e-mail]
'OICQ  : 88382850
'****************************************************************************
Private Declare Function GetTickCount& Lib "kernel32" ()
Public Start_Seconds
Function LoadAmination()
ret& = GetTickCount&
Start_Seconds = Int(ret& / 1000)
    
Dim TempData
Dim fso As New FileSystemObject
'If fso.FileExists(GetAppPath & "103.avi") = False Then
    TempData = BuildFileFromResource(GetAppPath & "103.avi", 171, "AVI")
        If TempData <> "" Then
            If fso.FileExists(TempData) = True Then
            Animation1.Open TempData
            Animation1.Play
            End If
        End If
'Else
'Animation1.Open GetAppPath & "103.avi"
'Animation1.Play
'End If

DoEvents


End Function
Private Sub Form_Load()
LoadAmination
End Sub

Private Sub LoadUP()
Dim fso As New FileSystemObject
LblLoad.Caption = "正在加载... GUI"
Load FrmMain
DOUNTIL 1
LblLoad.Caption = "正在加载... 检查连接"
DOUNTIL 2
LblLoad.Caption = IIf(IsNetConnectOnline, "已连接", "未连接")
DOUNTIL 3
LblLoad.Caption = "正在加载... 程序列表"
FrmMain.UpdatePrograms
DOUNTIL 4
LblLoad.Caption = IIf(IsNetConnectViaProxy, "读取中... Proxy: 找到", "Reading... Proxy: 未找到")
DOUNTIL 5
FrmMain.UserControl21(0).Visible = True
FrmMain.Show
FrmMain.RefreshList
DoEvents
Unload Me
End Sub

Private Sub Timer1_Timer()
LoadUP
End Sub

Function DOUNTIL(Index As Long)
ret& = GetTickCount&
Do Until (ret& / 1000) - Start_Seconds > Index
ret& = GetTickCount&
DoEvents
Loop
End Function