📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"
Begin VB.Form frmMain
BorderStyle = 1 'Fixed Single
Caption = "欢迎使用在线更新程序 - 海阔天空收集整理"
ClientHeight = 5130
ClientLeft = 150
ClientTop = 450
ClientWidth = 7035
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5130
ScaleWidth = 7035
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command1
Caption = "网站"
Height = 375
Left = 1710
TabIndex = 16
Top = 4725
Width = 1215
End
Begin VB.Timer tmrStatus
Interval = 1250
Left = 5640
Top = 240
End
Begin InetCtlsObjects.Inet netInternet
Left = 4320
Top = 240
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
End
Begin VB.Timer tmrCheckForUpdates
Enabled = 0 'False
Interval = 100
Left = 6600
Top = 240
End
Begin VB.Timer tmrProgress
Enabled = 0 'False
Left = 6120
Top = 240
End
Begin MSComctlLib.ImageList imgImageList
Left = 5040
Top = 240
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 2
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":0000
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":039A
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.TreeView lstList
Height = 2055
Left = 2280
TabIndex = 13
Top = 1080
Width = 4455
_ExtentX = 7858
_ExtentY = 3625
_Version = 393217
Style = 7
ImageList = "imgImageList"
Appearance = 1
End
Begin VB.PictureBox picPicture
AutoSize = -1 'True
Height = 3885
Left = 240
Picture = "frmMain.frx":0734
ScaleHeight = 3825
ScaleWidth = 1770
TabIndex = 9
Top = 240
Width = 1830
End
Begin VB.CommandButton cmdBack
Caption = "< 上一步(&B)"
Enabled = 0 'False
Height = 375
Left = 3120
TabIndex = 3
Top = 4695
Width = 1215
End
Begin VB.CommandButton cmdNext
Caption = "下一步(&N) >"
Height = 375
Left = 4320
TabIndex = 2
Top = 4695
Width = 1215
End
Begin VB.CommandButton cmdCancel
Caption = "取消(&C)"
Height = 375
Left = 5640
TabIndex = 1
Top = 4710
Width = 1215
End
Begin MSComctlLib.ProgressBar proProgress
Height = 375
Left = 2100
TabIndex = 11
Top = 4260
Visible = 0 'False
Width = 4695
_ExtentX = 8281
_ExtentY = 661
_Version = 393216
Appearance = 1
MousePointer = 11
Scrolling = 1
End
Begin VB.CommandButton cmdFinish
Caption = "退出"
Height = 375
Left = 5640
TabIndex = 15
Top = 4710
Width = 1215
End
Begin VB.Label Label1
Caption = "海阔天空收集整理"
Height = 195
Left = 90
TabIndex = 18
Top = 4950
Width = 1395
End
Begin VB.Label lblBack
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "0"
Height = 195
Left = 330
TabIndex = 17
Top = 4440
Visible = 0 'False
Width = 540
End
Begin VB.Label lblStatus
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "lblStatus"
Height = 255
Left = 2160
TabIndex = 14
Top = 3600
Visible = 0 'False
Width = 4695
End
Begin VB.Label lblNext
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "0"
Height = 195
Left = 240
TabIndex = 12
Top = 4440
Width = 90
End
Begin VB.Label lblDiscriptonsHeader
BackStyle = 0 'Transparent
Caption = "lblDiscriptionHeader"
Height = 375
Left = 2280
TabIndex = 10
Top = 600
Visible = 0 'False
Width = 4095
End
Begin VB.Image Image1
Height = 30
Left = 240
Picture = "frmMain.frx":4496
Top = 4320
Width = 6660
End
Begin VB.Label lblDiscription
BackStyle = 0 'Transparent
Caption = "在线更新程序需要启动网络才能进行搜索一些必须的更新文件."
Height = 555
Left = 2160
TabIndex = 8
Top = 3240
Width = 4065
End
Begin VB.Label lblVersion
AutoSize = -1 'True
Caption = "version no."
Height = 195
Left = 210
TabIndex = 7
Top = 4680
Width = 1140
End
Begin VB.Label lblEnd
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = " 检查是否有可用的更新."
ForeColor = &H00FF0000&
Height = 180
Left = 3375
TabIndex = 6
Top = 3960
Width = 1980
End
Begin VB.Label lblButton
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = " 下一步"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 180
Left = 2640
TabIndex = 5
Top = 3960
Width = 690
End
Begin VB.Label lblClick
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "单击"
ForeColor = &H00FF0000&
Height = 180
Left = 2310
TabIndex = 4
Top = 3960
Width = 360
End
Begin VB.Label lblHeader
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "欢迎使用在线更新程序．"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 180
Left = 2160
TabIndex = 0
Top = 360
Width = 2145
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'/**********************************************************************
' 在线升级程序，海阔天空
' Play78.com : 网站导航，源码之家，绝对开源
' 海阔天空收集整理
' http://www.play78.com/
' e-mail:hglai@eyou.com
' **********************************************************************
Dim strVersion As String
Dim strAppVersion As String
Private Sub cmdBack_Click()
If lblBack.Caption = "0" Then
lblHeader.Caption = "欢迎使用在线更新程序"
lblDiscriptonsHeader.Visible = False
lblDiscription.Caption = "在线更新程序需要您连接到网络才能进行搜索需要更新的文件."
cmdBack.Enabled = False
cmdNext.Enabled = True
proProgress.Visible = False
lblClick.Visible = True
lblButton.Visible = True
lblEnd.Visible = True
Me.Caption = "欢迎使用在线更新程序 枕善居"
lblNext.Caption = "0"
ElseIf lblBack.Caption = "1" Then
End If
End Sub
Private Sub cmdCancel_Click()
Dim Result As String
Result = MsgBox("确定要离开在线更新程序?", vbYesNo, "退出?")
If Result = vbYes Then
Unload Me
Else
Exit Sub
End If
End Sub
Private Sub cmdFinish_Click()
Unload Me
End Sub
Private Sub cmdNext_Click()
If lblNext.Caption = "0" Then
lblHeader.Caption = "正在搜索更新..."
lblDiscriptonsHeader.Caption = "在线更新程序正在搜索下列程序:"
lblDiscriptonsHeader.Visible = True
lblDiscription.Caption = "这个过程可能需要一段时间,请耐心等待."
cmdNext.Enabled = False
lblStatus.Visible = True
lblStatus.Caption = ""
tmrProgress.Enabled = True
tmrCheckForUpdates.Enabled = True
proProgress.Visible = True
lblClick.Visible = False
lblButton.Visible = False
lblEnd.Visible = False
Me.Caption = "在线更新程序 - 搜索中"
lblNext.Caption = "1"
ElseIf lblNext.Caption = "1" Then
End If
End Sub
Private Sub Command1_Click()
OpenIt frmMain, "http://www.play78.com/"
End Sub
Private Sub Form_Load()
lblVersion.Caption = "Version " & App.Major & "." & App.Minor
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
lstList.Nodes.Add , , "Tracker", "Tracker", 1
tmrProgress.Interval = "10"
End Sub
Private Sub tmrCheckForUpdates_Timer()
On Error GoTo MyError
strAppVersion = App.Major & "." & App.Minor
lblStatus.Caption = "正在连接到 internet..."
' cmdCheck.Enabled = False
strVersion = netInternet.OpenURL("http://www.mndsoft.com/downfiles/version.ver")
' lblNewVersion.Caption = strVersion
If strVersion > strAppVersion Then
' 找到新版本
tmrCheckForUpdates.Enabled = False
Else
tmrCheckForUpdates.Enabled = False
End If
Exit Sub
MyError:
MsgBox "无法连接到 internet!" & vbNewLine & "请检查是否连接，然后重试!"
tmrCheckForUpdates.Enabled = False
tmrProgress.Enabled = False
End Sub
Private Sub tmrProgress_Timer()
If proProgress.Value < 100 Then
proProgress.Value = proProgress.Value + 1
ElseIf strVersion > strAppVersion Then
lblStatus = "正在下载脚本..."
'tmrNext.Enabled = True
frmDownload.Show
tmrProgress.Enabled = False
Else 'if strVersion < strAppVersion Then
lblStatus = "当前程序不需要更新!"
cmdCancel.Visible = False
tmrProgress.Enabled = False
End If
End Sub
Private Sub tmrStatus_Timer()
lblStatus.Caption = "检查更新文件..."
tmrStatus.Enabled = False
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -