만약 웹컨트롤에서 클릭햇을때
다운로드를 하는 주소면
자신의 다운로더로 다운되게하는 방법 있나요?
없으면...
Public Sub StartDownload(ByVal Ads As String, ByVal D_Ads As String)
On Error Resume Next
DownloadAddress = D_Ads
Que(0) = Text_Limit(Split(D_Ads, \)(UBound(Split(D_Ads, \))), Que(0).Width)
On Error GoTo erR:
MyDestFile = D_Ads
OpenFileBuffer
intProgress = 0
Set HTTPDownload = New Winhttp.WinHttpRequest
IsDownloading = True
HTTPDownload.SetTimeouts 8000, 8000, 8000, 8000
HTTPDownload.Option(WinHttpRequestOption_EnableHttp1_1) = True
HTTPDownload.Option(WinHttpRequestOption_EnableRedirects) = True
HTTPDownload.Open GET, Ads, True
HTTPDownload.Send
Exit Sub
erR:
MsgBox erR.Description, vbCritical, 런타임 에러
CancelDownload
Unload Me
End Sub
저기 위에부분에 변수가 정의되지 않앗다고하는데요.
왜그러죠?
댓글 0