module1.bas

一个VB做的HTTP文件下载程序。。。供参考。。。WEB HTTP文件下载

Attribute VB_Name = "Module1"
Global strSvrURL As String
Global URL As String
Global RESUMEFILE As Boolean
Global FilePathName As String
Global FilePath As String
Global FileName As String
Global FileLength As Single
Global Sec%, Min%, Hr%
Global Unix As Boolean
Public Function GETDATAHEAD(DATA As Variant, ToRetrieve As String)
On Error Resume Next
If DATA = "" Then Exit Function
Dim EndBYTES%, A$, LENGTHEND%, PART%, Part2%, RetrieveLength%
If InStr(DATA, ToRetrieve) > 0 Then
LENGTHEND = Len(DATA)
PART = InStr(DATA, ToRetrieve)
RetrieveLength = Len(ToRetrieve)
A = Right(DATA, LENGTHEND - PART - RetrieveLength)
LENGTHEND = Len(A)
If InStr(A, vbCrLf) > 0 Then
Part2 = InStr(A, vbCrLf)
A = Left(A, Part2 - 1)
End If
GETDATAHEAD = A
End If
End Function
Public Function OutFileName(File$) As String
Dim P%
    P = InStr(File$, ".")
    If P = 0 Then
        OutFileName = File & "ext" & ".rsm"
        Exit Function
    End If
If LCase(Right(File$, 3) = "rsm") Then
Dim LENGTH%, A$, B$
    P = InStr(File$, ".")
    A = Left(File$, P - 1)
    B = Right(A, 3)
    LENGTH = Len(A$)
    A = Left(A, LENGTH - 3)
    OutFileName = A & "." & B
Else
Dim Dot%, One$, Ext$, SLength%
    Dot = InStr(File$, ".")
    
    One = Left(File$, Dot - 1)
    Ext = Right(File$, 3)
    OutFileName = One & Ext & ".rsm"
End If
End Function