VB Projenize Güncelleme Sistemi Ekleme

[esen4271]

Ayyıldız2 | 2008 TR Yapısı • 1-99 Orta Emek Destan • Oto Avsız • 10 Temmuz 21:00 HEMEN TIKLA!

Projenize Güncelleme sistemini eklemeniz için bazı kodları paylaşacağım.
Hosting içine txt atmanız gerekli en garantisi (eu.pn) den bedava oluşturup versiyon.txt yi eklemek
Mantık olarak sitenize ekliyeceğniz versiyon.txt de "Var Var Var Var" yazarsa yönlendirilecek adrese gider
"Yok Yok Yok Yok" yazarsa projeniz olduğu gibi devam eder. Labeldede güncelleme yok diye belirtir.
Gerekenler :
Form1 ve Form2 başta olmak üzere (form1 e aşağıdakileri ekleyin)
1 Adet Webbrowser
2 Adet Textbox
1 Adet Label

[COLOR="#FF0000"][B]Kod:[/B][/COLOR]
-------------------------------------------------------------------------------------------------------
[COLOR="#0000CD"]Private Sub[/COLOR] Form_Load[B]()[/B]
WebBrowser1.Navigate [B]([/B]"[COLOR="#808080"]http://www.sizinsiteniziekleyin.com/versiyon.txt[/COLOR]"[B])[/B]
[COLOR="#0000FF"]End Sub
Private Sub[/COLOR] WebBrowser1_DocumentComplete[B]([/B][COLOR="#0000FF"]ByVal[/COLOR] pDisp [COLOR="#0000FF"]As Object[/COLOR], URL [COLOR="#0000FF"]As Variant[/COLOR][B])[/B]
Text1.Text = WebBrowser1.Document.body.innerHTML
[COLOR="#0000FF"]If[/COLOR] InStr[B]([/B][B][COLOR="#FF0000"]1[/COLOR][/B], Text1.Text, "[COLOR="#808080"]Var[/COLOR]"[B])[/B] [COLOR="#0000FF"]Then[/COLOR]
Label1.Caption = "[COLOR="#808080"]Yeni Güncelleme Tespit Edildi[/COLOR]"
Shell "[COLOR="#808080"]explorer.exe http://www.sizinsiteniz/indir/index.html[/COLOR]" [COLOR="#008000"]"yönlendireceğiniz html içine sonraki projenize redirect edin"[/COLOR]
WebBrowser1.Visible = [COLOR="#0000FF"]False[/COLOR]
[COLOR="#0000FF"]Else[/COLOR]
Text2.Text = WebBrowser1.Document.body.innerHTML
[COLOR="#0000FF"]If[/COLOR] InStr[B]([/B][B][COLOR="#FF0000"]1[/COLOR][/B], Text2.Text, "[COLOR="#808080"]Yok[/COLOR]"[B])[/B] [COLOR="#0000FF"]Then[/COLOR]
Label1.Caption = "[COLOR="#808080"]Güncelleme bulunamadı[/COLOR]"
WebBrowser1.Visible =[COLOR="#0000FF"] False[/COLOR]
Form2.Show
[COLOR="#0000FF"]End If
End If
End Sub[/COLOR]

 

[|herkul01|]

Teşekkürler.