?? frmupdate.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 FrmUpDate
Caption = "在線升級"
ClientHeight = 1440
ClientLeft = 60
ClientTop = 345
ClientWidth = 5880
Icon = "FrmUpDate.frx":0000
LinkTopic = "Form1"
ScaleHeight = 1440
ScaleWidth = 5880
StartUpPosition = 2 '屏幕中心
Begin InetCtlsObjects.Inet Inet1
Left = 0
Top = 840
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
End
Begin MSComctlLib.ProgressBar ProgressBar1
Height = 375
Left = 120
TabIndex = 0
Top = 480
Width = 5655
_ExtentX = 9975
_ExtentY = 661
_Version = 393216
Appearance = 1
End
Begin VB.Label lblProgressInfo
Height = 255
Left = 120
TabIndex = 1
Top = 120
Width = 5655
End
End
Attribute VB_Name = "FrmUpDate"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private m_lngDocSize As Long
Private Const strURL = "http://upserver4.ys168.com/ys168up/D1/YY.aspx?f=04M49E6E6E4E0D9D5UVN3UN630UR956UWV7UM363UM877D6A01A20A01I5F9G1D9D8D9E1D6E5A24E7E3E1D9E7C2"
'Private Const strURL = "http://www.lynnet.org/Update/人事管理系統(tǒng)Ver2.0.exe"
Private Const FileName = "人事管理系統(tǒng).exe"
Private Sub Form_Load()
'文件大小值復(fù)位
m_lngDocSize = 0
'復(fù)位進度條控件
ProgressBar1.Value = 0.001
'顯示進度的標簽內(nèi)容設(shè)為空
lblProgressInfo.Caption = ""
'定義ITC控件使用的協(xié)議為HTTP協(xié)議
Inet1.Protocol = icHTTP
'調(diào)用Execute方法向Web服務(wù)器發(fā)送HTTP請求
Inet1.Execute Trim$(strURL), "GET"
lblProgressInfo.Caption = "請等待..."
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Shell App.Path & "\" & FileName, vbNormalFocus
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim binBuffer() As Byte
Dim sngProgerssValue As Single
Dim iBlock As Long
On Error Resume Next
iBlock = 0
Select Case State
Case icResponseCompleted
'打開文件供寫入
Open App.Path & "\" & FileName For Binary Access Write As #1
Do '從緩沖區(qū)讀取數(shù)據(jù)
DoEvents
binBuffer = Inet1.GetChunk(512, icByteArray)
'strText = strText & strBuffer
iBlock = iBlock + 1
If m_lngDocSize > 0 Then
'獲得進度百分比值
sngProgerssValue = Int((iBlock * 512 / m_lngDocSize) * 100)
'更新進度標簽顯示內(nèi)容
lblProgressInfo.Caption = "已下載 " & CStr(iBlock * 512) & " 字節(jié) (" & CStr(sngProgerssValue) & "%)"
'用新值更新進度條控件
ProgressBar1.Value = sngProgerssValue
'寫入文件
Put #1, , binBuffer()
End If
Loop Until iBlock * 512 >= m_lngDocSize
'關(guān)閉文件
Close #1
MsgBox "升級完成", vbOKOnly Or vbInformation, "在線升級"
Case icResponseReceived
If m_lngDocSize = 0 Then
'讀取頁面文件大小
If Len(Inet1.GetHeader("Content-Length")) > 0 Then
m_lngDocSize = CLng(Inet1.GetHeader("Content-Length"))
If (m_lngDocSize = 0) Then
MsgBox "讀取遠程數(shù)據(jù)出錯", vbOKOnly Or vbExclamation, "在線升級"
End If
Else
MsgBox "ERROR!", vbOKOnly Or vbExclamation, "在線升級"
End If
End If
Case icError
MsgBox "與主機通信出錯", vbOKOnly Or vbExclamation, "升級失敗"
Case icResolvingHost
lblProgressInfo.Caption = "正在查找主機..."
Case icHostResolved
lblProgressInfo.Caption = "已經(jīng)找到主機"
Case icConnecting
lblProgressInfo.Caption = "正在聯(lián)系主機"
Case icConnected
lblProgressInfo.Caption = "已經(jīng)連接到主機"
Case icRequesting
lblProgressInfo.Caption = "正在發(fā)送請求..."
Case icRequestSent
lblProgressInfo.Caption = "成功發(fā)送請求"
Case icReceivingResponse
lblProgressInfo.Caption = "正在接收回應(yīng)..."
Case icDisconnecting
lblProgressInfo.Caption = "正在斷開連接..."
Case icDisconnected
lblProgressInfo.Caption = "已經(jīng)斷開連接"
End Select
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -