Başlangıç > Kodlar > VB.NET 2005 ile dosya indirmek

VB.NET 2005 ile dosya indirmek


VS2005 ile dosya indirme ve indirilen dosyanın otomatik çalıştırılması
Öncelikle programımızın daha önceden belirlenmiş bir dosyayı indirebilecek şekilde yapacağımızı belirtmek isterim. İndirilmek istenilen programın değişken olmasını isterseniz kodları ona göre düzenlemeniz gerekecek.

Form üzerine aşağıdaki nesneleri ekleyin:
2 buton
1 backgroundworker
1 Savefiledialog

1. Butona "indir"
2. Butona "iptal" ismini verin (İptal butonu default olarak Enabled = false olacak)

Programımız şu şekilde çalışacak
İndir butonuna basıldığında karşımıza bir Savefiledialog gelecek ve dosyayı nereye kaydetmek istediğimiz sorulacak.
Ardından programımız indirilecek
indirme işlemi bittiğinde program bize dosyayı çalıştırmak isteyip istemediğimizi soracak. Eğer onaylarsak indirdiğimiz program çalıştırılacak.

Formumuzun Class bölümüne

Dim file_adres = "http://www.dosyasitesi.com/dosya.exe"
dim nereye as string
ibarelerini ekliyoruz
Programa öncelikle indir butonunun click olayı ile başlıyoruz
ve aşağıdaki kodu yazıyoruz
If SaveFileDialog1.ShowDialog = DialogResult.OK Then
nereye = SaveFileDialog1.FileName
BackgroundWorker1.RunWorkerAsync()
indir.Enabled = False
iptal.Enabled = True
End If
böylelikle dialog penceremiz görüntüleniyor ve sonuca göre de dosya indirme işlemi başlatılıyor.
Aynı zamanda indir butonumuzu disable yaparak indirme işleminin tekil yapılmasını sağlıyoruz ve iptal tuşumuzu da aktif hale getiriyoruz.

Dosya indirmeyi backgroundworker yapacak
Bu nedenle backgroundworker objesinin dowork olayına aşağıdaki kodu yazıyoruz:
My.Computer.Network.DownloadFile(file_adres, SaveFileDialog1.FileName, "", "", False, 5000000, True)

bu sayede dosyamız indirilmeye başlanıyor

backgroundworker nesnemizin RunWorkerCompleted özelliğine ise aşağıdaki kodu ekliyoruz.
if msgbox("Dosyanız indirildi." & vbnewline & "Programı şimdi çalıştırmak istiyor musunuz?", MsgBoxStyle.YesNo, "Yükleme tamamlandı") = MsgBoxResult.Yes Then
Shell(nereye, AppWinStyle.NormalFocus, False, -1)
end if

böylelikle indirme işlemi tamamlandığında kullanıcıya bir uyarı penceresi çıkartılacak programı çalıştırmak isteyip istemediği sorulacak.

ikinci butonumuz ise indirme işleminin iptalinde kullanılacak.
bunun için iptal butonumuzun click olayına aşağıdaki kodu ekliyoruz
BackgroundWorker1.CancelAsync()
indir.Enabled = true
iptal.Enabled = False


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: