⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 ravstarter.frm

📁 瑞星2007版升级起子VB源代码
💻 FRM
📖 第 1 页 / 共 3 页
字号:
VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll"
Begin VB.Form RavStarter 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "http://zy.5ip8.cn   收集发布"
   ClientHeight    =   3600
   ClientLeft      =   5160
   ClientTop       =   3435
   ClientWidth     =   4140
   Icon            =   "RavStarter.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   3600
   ScaleWidth      =   4140
   Begin VB.Timer Timer3 
      Left            =   2400
      Top             =   3720
   End
   Begin 瑞星起子.XP_ProgressBar XP_ProgressBar1 
      Height          =   255
      Left            =   30
      TabIndex        =   26
      Top             =   3330
      Width           =   4095
      _ExtentX        =   7223
      _ExtentY        =   450
      Color           =   2871848
   End
   Begin VB.PictureBox Picture3 
      AutoSize        =   -1  'True
      Height          =   1695
      Left            =   600
      Picture         =   "RavStarter.frx":78CA
      ScaleHeight     =   1635
      ScaleWidth      =   2910
      TabIndex        =   25
      Top             =   600
      Visible         =   0   'False
      Width           =   2970
   End
   Begin VB.Timer Timer2 
      Left            =   2880
      Top             =   3720
   End
   Begin VB.Timer Timer1 
      Interval        =   5000
      Left            =   3360
      Top             =   3720
   End
   Begin VB.Frame Frame1 
      Caption         =   "功能"
      Height          =   1050
      Index           =   2
      Left            =   120
      TabIndex        =   18
      Top             =   2280
      Width           =   3950
      Begin VB.PictureBox Picture2 
         BorderStyle     =   0  'None
         Height          =   750
         Left            =   50
         ScaleHeight     =   750
         ScaleWidth      =   3855
         TabIndex        =   19
         Top             =   200
         Width           =   3855
         Begin VB.CheckBox Check2 
            Caption         =   "发现新版本后自动升级"
            Height          =   255
            Left            =   1680
            TabIndex        =   21
            Top             =   50
            Width           =   2175
         End
         Begin VB.CheckBox Check1 
            Caption         =   "开机自动运行"
            Height          =   255
            Left            =   120
            TabIndex        =   20
            Top             =   50
            Width           =   1575
         End
         Begin 瑞星起子.isButton Command1 
            Height          =   375
            Left            =   45
            TabIndex        =   22
            Top             =   345
            Width           =   1150
            _ExtentX        =   2037
            _ExtentY        =   661
            Icon            =   "RavStarter.frx":171B4
            Style           =   0
            Caption         =   "升级杀毒"
            CaptionAlign    =   2
            iNonThemeStyle  =   0
            Enabled         =   0   'False
            Tooltiptitle    =   ""
            ToolTipIcon     =   0
            ToolTipType     =   1
            ttForeColor     =   0
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Verdana"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            MaskColor       =   0
         End
         Begin 瑞星起子.isButton Command2 
            Height          =   375
            Left            =   1260
            TabIndex        =   23
            Top             =   345
            Width           =   1335
            _ExtentX        =   2355
            _ExtentY        =   661
            Icon            =   "RavStarter.frx":19CDE
            Style           =   0
            Caption         =   "升级防火墙"
            CaptionAlign    =   2
            iNonThemeStyle  =   0
            Enabled         =   0   'False
            Tooltiptitle    =   ""
            ToolTipIcon     =   0
            ToolTipType     =   1
            ttForeColor     =   0
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Verdana"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            MaskColor       =   0
         End
         Begin 瑞星起子.isButton Command3 
            Height          =   375
            Left            =   2650
            TabIndex        =   24
            Top             =   345
            Width           =   1150
            _ExtentX        =   2037
            _ExtentY        =   661
            Icon            =   "RavStarter.frx":43D30
            Style           =   0
            Caption         =   "关于起子"
            CaptionAlign    =   2
            iNonThemeStyle  =   0
            Tooltiptitle    =   ""
            ToolTipIcon     =   0
            ToolTipType     =   1
            ttForeColor     =   0
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Verdana"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            MaskColor       =   0
         End
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "瑞星防火墙版本信息"
      Height          =   1050
      Index           =   1
      Left            =   120
      TabIndex        =   10
      Top             =   1200
      Width           =   3950
      Begin VB.PictureBox Picture1 
         BorderStyle     =   0  'None
         Height          =   780
         Index           =   1
         Left            =   50
         ScaleHeight     =   780
         ScaleWidth      =   3855
         TabIndex        =   11
         Top             =   200
         Width           =   3850
         Begin VB.TextBox RfwSvcTxt 
            Height          =   270
            Left            =   2920
            Locked          =   -1  'True
            TabIndex        =   14
            Text            =   "检测中.."
            Top             =   80
            Width           =   855
         End
         Begin VB.TextBox RfwLocTxt 
            Height          =   270
            Left            =   840
            Locked          =   -1  'True
            TabIndex        =   13
            Top             =   80
            Width           =   855
         End
         Begin VB.TextBox RfwPathTxt 
            Height          =   270
            Left            =   1000
            Locked          =   -1  'True
            TabIndex        =   12
            Top             =   430
            Width           =   2780
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "官方最新版本"
            Height          =   180
            Index           =   1
            Left            =   1800
            TabIndex        =   17
            Top             =   120
            Width           =   1080
         End
         Begin VB.Label Label2 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "当前版本"
            Height          =   180
            Index           =   1
            Left            =   75
            TabIndex        =   16
            Top             =   120
            Width           =   720
         End
         Begin VB.Label Label3 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "防火墙路径"
            Height          =   180
            Index           =   1
            Left            =   75
            TabIndex        =   15
            Top             =   480
            Width           =   900
         End
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "瑞星杀毒软件版本信息"
      Height          =   1050
      Index           =   0
      Left            =   120
      TabIndex        =   2
      Top             =   80
      Width           =   3950
      Begin VB.PictureBox Picture1 
         BorderStyle     =   0  'None
         Height          =   780
         Index           =   0
         Left            =   50
         ScaleHeight     =   780
         ScaleWidth      =   3855
         TabIndex        =   3
         Top             =   200
         Width           =   3850
         Begin VB.TextBox RavPathTxt 
            Height          =   270
            Left            =   1200
            Locked          =   -1  'True
            TabIndex        =   9
            Top             =   430
            Width           =   2580
         End
         Begin VB.TextBox RavLocTxt 
            Height          =   270
            Left            =   840
            Locked          =   -1  'True
            TabIndex        =   7
            Top             =   80
            Width           =   855
         End
         Begin VB.TextBox RavSvcTxt 
            Height          =   270
            Left            =   2920
            Locked          =   -1  'True
            TabIndex        =   4
            Text            =   "检测中.."
            Top             =   80
            Width           =   855
         End
         Begin VB.Label Label3 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "杀毒软件路径"
            Height          =   180
            Index           =   0
            Left            =   75
            TabIndex        =   8
            Top             =   480
            Width           =   1080
         End
         Begin VB.Label Label2 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "当前版本"
            Height          =   180
            Index           =   0
            Left            =   75
            TabIndex        =   6
            Top             =   120
            Width           =   720
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -