Private Declare Function URLDownloadToFile Lib "urlmon" _ Alias "URLDownloadToFileA" _ (ByVal pCaller As Long, _ ByVal szURL As String, _ ByVal szFileName As String, _ ByVal dwReserved As Long, _ ByVal lpfnCB As Long) As Long
Private Sub Command1_Click() Dim sURL As String, sLocalFile As String sURL = "http://office.9zp.com/face/tou2.gif" sLocalFile = "c:\test.gif" URLDownloadToFile 0&, sURL, sLocalFile, 0&, 0& End Sub
Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Private Sub Command1_Click()
Dim sURL As String, sLocalFile As String
sURL = "http://office.9zp.com/face/tou2.gif"
sLocalFile = "c:\test.gif"
URLDownloadToFile 0&, sURL, sLocalFile, 0&, 0&
End Sub
http://www.cnkernel.com/
我写的一个邮件软件,集成多种文件传送方式.
和OUTLOOK差不了多少!!有邮件DEMO提供,完全脱离OUTLOOK.可以提供所有VB源码.
给个邮件地址,发过去!