Adamlar o kadar uğraşıp versiyon falan giriyorlardı, yarım saat tutoriallar vardı, ben de bunu 5 dakikada yaparım dedim
Form1 Gerekenler :
menuStrip1
lblProgramci.Text (Label)
lblSurum.Text (Label)
Imports System.Collections
Imports System.IO
Form2 Gerekenler :
progressBar1
lblProgress.Text (Label)
Imports System.Collections
Imports System.IO
Imports System.NET
Imports System.Xml
Form1.vb
Public Class Form1
Dim Programci As New ArrayList() ′Programci isminde ArayList Oluşturuldu.
Dim Surum As New ArrayList() ′Surum isminde ArayList Oluşturuldu.
Dim Dosya As String = "Ayarlar.txt" ′Dosya Yolu Belirtildi.
Dim DosyaOku As StreamReader = Nothing ′Dosyay Okuması için
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
oku()
lblProgramci.Text = Programci(0).ToString()
lblSurum.Text = Surum(0).ToString()
End Sub
Private Sub programHakkndaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles programHakkndaToolStripMenuItem.Click
MessageBox.Show(" Programc : adınız " & vbCr & " Web Site : siteniz " & vbCr & " NOT : Eitim Amal Bir Projedir.", "MVU Gncelleme Sistemi Hakknda", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Private Sub gncellemeKoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gncellemeKoToolStripMenuItem.Click
Form2.Show()
End Sub
Private Sub oku()
If (File.Exists(Dosya) = True) Then ′Dosyanın Olup Olmadığına Bakılıyor.
DosyaOku = File.OpenText(Dosya) ′Dosya Alınıyor.
Try
′Dosyadaki değerler ArayListe gönderiliyor.
Dim s As String = DosyaOku.ReadLine()
While (Not String.IsNullOrEmpty(s))
s = DosyaOku.ReadLine()
Programci.Add(s)
s = DosyaOku.ReadLine()
Surum.Add(s)
End While
Finally
′Dosyay kapatılıyor.
DosyaOku.Close()
End Try
End If
End Sub
End Class
Form2.vb
Dim Programci As New ArrayList() ′Programci isminde ArayList Oluşturuldu.
Dim Surum As New ArrayList() ′Surum isminde ArayList Oluşturuldu.
Dim Dosya As String = "Ayarlar.txt" ′Dosya Yolu Belirtildi.
Dim DosyaOku As StreamReader = Nothing ′Dosyay Okuması için
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
oku()
′XML dosya okunuyor.
Dim sonlandir As Boolean = True
Dim XMLoku As New XmlTextReader("siteniz/App_Images/blog/file/MVU_Guncelleme.xml")
Try
While XMLoku.Read()
Dim XMLsurum As String = "Sürüm : " & XMLoku.GetAttribute("surum")
Dim Dosyasurum As String = Surum(0).ToString()
′Surumler Esit DEGIL ise yukleme yapılıyor.
If Dosyasurum <> XMLsurum Then
′XML′den dosya Adi aliniyor.
Dim DosyaAdi As [String] = XMLoku.GetAttribute("dosya")
Dim indir As New WebClient()
Dim yol As New Uri("siteniz/App_Images/blog/file/" & XMLoku.GetAttribute("dosya"))
′indirilmeye baslaniyor.
AddHandler indir.DownloadProgressChanged, AddressOf DosyaIndir
′kaydedilecek isim ve yol belirleniyor.
Dim kaydet As String = yol.ToString().Substring(yol.ToString().LastIndexO f("/"c) + 1)
indir.DownloadFileAsync(yol, kaydet)
sonlandir = True
Else
′Surumler Esit ise Gunceldir Uyars veriyor.
MessageBox.Show("MVU Gncelleme Sistemi Gnceldir....", "MVU Gncelleme Sistemi", MessageBoxButtons.OK, MessageBoxIcon.Information)
sonlandir = False
XMLoku.Close()
Close()
End If
End While
Finally
If sonlandir Then
MessageBox.Show(" MVU Gncelleme Sistemi Gncellennitir. " & vbCr & " Ltfen Program Kapatp Tekrar Anz...", "MVU Gncelleme Sistemi", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Try
End Sub
Private Sub DosyaIndir(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs)
′indirilen tamamlanma yuzdesi gosteriliyor.
progressBar1.Value = e.ProgressPercentage
lblProgress.Text = ("ndirilen: %" & e.ProgressPercentage)
End Sub
Private Sub oku()
If (File.Exists(Dosya) = True) Then ′Dosyanın Olup Olmadığına Bakılıyor.
DosyaOku = File.OpenText(Dosya) ′Dosya Alınıyor.
Try
′Dosyadaki değerler ArayListe gönderiliyor.
Dim s As String = DosyaOku.ReadLine()
While (Not String.IsNullOrEmpty(s))
s = DosyaOku.ReadLine()
Programci.Add(s)
s = DosyaOku.ReadLine()
Surum.Add(s)
End While
Finally
′Dosyay kapatılıyor.
DosyaOku.Close()
End Try
End If
End Sub
End Class