VB Projenize Güncelleme Sistemi Ekleme

[esen4271]

ROHAN2 WORLD 1-120 TR TİPİ OFFICIAL YOHARA, BALATHOR VE AMON! 80. GÜNÜNDE! +10.000 ONLİNE! HİLE VE BOT %100 ENGELLİ 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.