- Katılım
- 3 Şubat 2014
- Mesajlar
- 1,744
- Tepkime puanı
- 0
- Puanları
- 0
Merhaba Arkadaşlar Bugün Sizlere Birçok Kişinin İstediği Bir Kodu Vericem. Bu Kod İçin Video Çekme Gereği Duymadım. Size Şimdi Ne Yapacağınızı Anlatayım.
1- Bir index.html Dosyası Oluşturun. Bu Dosyanın İçine guncelleme Yazın Ve Siteye Uploadlayın.
2-Site LinkiniİNDEX ATTIĞINIZ SİTE LİNKİ Yerine Yazın.
3- Yeni Sürümü De Siteye Atın Ve Linkini ÖĞEYİ DENETLE BURAYA Yerine Yazın.
4- İNDİRİLENİN ADI.UZANTISI Bölümüne De Yeni Sürüm Programın İsmini Ve Uzantısını Yazın.
5- Programı Çalıştırın
1- Bir index.html Dosyası Oluşturun. Bu Dosyanın İçine guncelleme Yazın Ve Siteye Uploadlayın.
2-Site LinkiniİNDEX ATTIĞINIZ SİTE LİNKİ Yerine Yazın.
3- Yeni Sürümü De Siteye Atın Ve Linkini ÖĞEYİ DENETLE BURAYA Yerine Yazın.
4- İNDİRİLENİN ADI.UZANTISI Bölümüne De Yeni Sürüm Programın İsmini Ve Uzantısını Yazın.
5- Programı Çalıştırın
Kod:
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("İNDEX ATTIĞINIZ SİTE LİNKİ")
End Sub
Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
If WebBrowser1.Document.Body.InnerHtml = "guncelleme" Then
MsgBox("Güncelleme Bulundu ! İndirme Başlıyor ! Lütfen Bekleyiniz ...")
otoguncelleme()
End If
End Sub
Private Sub otoguncelleme()
Try
My.Computer.Network.DownloadFile("ÖĞEYİ DENETLE BURAYA", "C:\Users\" + SystemInformation.UserName + "\Desktop\İNDİRİLENİN ADI.UZANTISI", "", "", True, 20, False)
MsgBox("İndirme Başarılı !")
Process.Start("C:\Users\" + SystemInformation.UserName + "\Desktop\İNDİRİLENİN ADI.UZANTISI")
Me.Close()
Catch ex As Exception
MsgBox("İndirme Başarısız !" + vbCrLf + vbCrLf + ex.Message) ' istersek Hatayı Yazdırabiliriz
End Try
End Sub