|
分類:[VB6以前]
分類:[VB6以前]
下に書いているURL解析の続きなんで、もしかしたらマルチポストになるかもしれません
もし、これがマルチだと判断されるなら、このレスはすぐに消しますので言って下さい
質問します、下に書いたWindowsMediaのストリーミングダウンロードで
解析することは出来ましたので、動画のダウンロードをしたいのですが
私の使っているコードでは、うまく全てをダウンロードすくことが出来ません、
なぜうまくいかないのか教えてくれませんか。
Option Explicit
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 SaveFileName As String
Dim DownloadFile As String
Dim Ret As Long
On Error GoTo CancelError
CommonDialog1.CancelError = True
CommonDialog1.Filter = "全てのファイル(*.*)|*.*|"
Form1.CommonDialog1.ShowSave
SaveFileName = CommonDialog1.FileTitle
DownloadFile = Form1.Text1.Text ←ここでwmvのURLを叩き込む
Ret = URLDownloadToFile(0, DownloadFile, SaveFileName, 0, 0)
DoEvents
If Ret = 0 Then
MsgBox "ダウンロードできました。"
Else
MsgBox "エラーが発生しました。"
End If
Exit Sub
CancelError:
Exit Sub
End Sub
|