21 Mart 2007 01:04# 1
Üyelik : 19.10.2006
Yaş : 35
Şehir : İzmir
Mesaj Sayısı : 497
Konu : Download Programı Kodları [visaul basicte]
text1 - > txtfrom
text2 -> txtto
command1->cmddownload

Class Module:
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 Declare Function InternetOpen Lib "wininet" Alias _
"InternetOpenA" (ByVal sAgent As String, _
ByVal lAccessType As Long, _
ByVal sProxyName As String, _
ByVal sProxyBypass As String, _
ByVal lFlags As Long) As Long


Private Declare Function InternetCloseHandle Lib "wininet" _
(ByVal hInet As Long) As Integer


Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Const INTERNET_FLAG_EXISTING_CONNECT = &H20000000
Const INTERNET_OPEN_TYPE_DIRECT = 1
Const INTERNET_OPEN_TYPE_PROXY = 3
Const INTERNET_FLAG_RELOAD = &H80000000



Public Function Get_File(sURLFileName As String, _
sSaveFileName As String) As Boolean
Dim lRet As Long
On Error GoTo err_Fix

lRet = InternetOpen("", INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
lRet = URLDownloadToFile(0, sURLFileName, sSaveFileName, 0, 0)
Get_File = True
Exit Function
err_Fix:
Debug.Print Err.LastDllError, lRet
Err.Clear
Get_File = False
End Function

cmddownload_Click:
Private Sub cmdDownload_Click()
Dim obj As clsDownload
Set obj = New clsDownload
Dim bRet As Boolean

Screen.MousePointer = vbHourglass
bRet = obj.Get_File(Trim(Me.txtFrom.Text), Trim(Me.txtTo.Text))
If bRet = False Then Me.txtTo.Text = "Error downloading!"
Screen.MousePointer = vbDefault
Set obj = Nothing
MsgBox "Done", vbInformation
End Sub

Private Sub cmdExit_Click()
Unload Me
End Sub
__________________
(bu bilgi daha önce yayınlandıysa kusurabakmayın)
06 Nisan 2007 23:32# 2
Üyelik : 6.04.2007
Yaş : 37
Şehir : Ankara
Mesaj Sayısı : 84
Cevap : Download Programı Kodları [visaul basicte]
eline sağlık arkadaşım teşekkürler

Konu Bilgileri

Konuyu şu anda 1 kişi okuyor ( 0 kayıtlı ve 1 ziyaretçi ) .
makineteknik.com 'da yer alan üyelerin oluşturduğu tüm içeriklerin doğruluğu ve yayınlanması ile ilgili yasal yükümlülükler içeriği oluşturan üyeye aittir. Bu içeriğin, görüş ve bilgilerin yanlışlık, eksiklik veya yasalarla düzenlenmiş kurallara aykırılığından makineteknik.com hiçbir şekilde sorumlu değildir. Sorularınız için içerik sahibi ile irtibata geçebilirsiniz.
b