modapi.bas

URLDownload 带下载进度<-- 描述就那么多。。。

Attribute VB_Name = "modApi"
Option Explicit
Public Declare Function DeleteUrlCacheEntry Lib "wininet" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long
'typedef struct tagBINDINFO {
'    ULONG cbSize;
'    LPWSTR szExtraInfo;
'    STGMEDIUM stgmedData;
'    DWORD grfBindInfoF;
'    DWORD dwBindVerb;
'    LPWSTR szCustomVerb;
'    DWORD cbStgmedData;
'    DWORD dwOptions;
'    DWORD dwOptionsFlags;
'    DWORD dwCodePage;
'    SECURITY_ATTRIBUTES securityAttributes;
'    IID iid;
'    IUnknown *pUnk;
'    DWORD dwReserved;
'} BINDINFO;

Public Type BINDINFO
    cbSize As Long
    szExtraInfo As String

End Type


Public Type T
    D1 As Long
    D2 As Integer
    D3 As Integer
    D4(0 To 7) As Byte
End Type