Hızlı Konu Açma

Hızlı Konu Açmak için tıklayınız.

Son Mesajlar

Konulardaki Son Mesajlar

Reklam

Forumda Reklam Vermek İçin Bize Ulaşın

Otomatik Güncelleme Sistemi !

BOMBFACTORY

Uzman Üye
Uzman Üye
Trabzonspor
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
 

Users Who Are Viewing This Konu (Users: 0, Guests: 1)

Üst