- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
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
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
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