是否有DoFileDownload这个API函数

Question

http://www.activevb.de/tipps/vb6tipps/tipp0089.html
  '------------- Anfang Projektdatei PROJECT1.VBP -------------
 
'Dieser Source stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.
 
'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source !
 
'--------- Anfang Formular "Form1" alias Form1.frm  ---------
 
 
Option Explicit
 
Private Declare Function DoFileDownload Lib "shdocvw.dll" _
        (ByVal lpszFile As String) As Long
 
Private Sub Command1_Click()
  Dim Result&, URL$
    URL = StrConv(Text1.Text, vbUnicode)
    Call DoFileDownload(URL)
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei PROJECT1.VBP --------------

Answer 1

为什么我的计算机上用API浏览器上没有找到.是库文件不对吗?

Answer 2

shdocvw.dll
什么库 没见过

Answer 3

隐藏参数，下载文件用。
一个Command，两个Text 代码如下：Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As LongPrivate Sub Command1_Click()
　　　Dim sDownload As String
　　　sDownload = StrConv(Text1.Text, vbUnicode)
　　　Call DoFileDownload(sDownload)
End SubPrivate Sub Form_Load()
　　　Text1.Text = "http://www.chat.ru/~softdaily/fo-ag162.zip"
　　　Form1.Caption = "Audiograbber 1.62 Full"
　　　Text2.Text = "http://www6.50megs.com/audiograbber/demos/cr-ag161.zip"
End Sub