新聞財經娛樂♬資訊 News Economy

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 LongPrivate Const BINDF_GETNEWESTVERSION As Long = &H10Sub DownloadFile()  Dim result As Long  Dim url As String  Dim localFile As String  url = "http://yahoo.com"  localFile = "C:yahoo.html"  result = URLDownloadToFile(0, url, localFile, BINDF_GETNEWESTVERSION, 0)  If result <> 0 Then    MsgBox "Couldn't download file"    Exit Sub  End If  End Sub                                          

1:2:3:4:5:6:7:8:9:10:11:12:13:14:15:16:17:18:19:20:21:22:23:24: