Güncelleme Bilir Program Yazma

[ßyMesMes]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Programlarınıza Güncelleme Sistemi Ekleyin.

Mesela Bir Programınız Var. Ve siz bu programınızla müşterilerinizin yeni versiyonlardan haberdar etmek istiyorsunuz.

Kodları Direk Projenize Kopyala Yapıştır Yapalım...

Önce projemize Microsoft Internet Transfer Control Ekleyelim. Bunun için Ctrl+T tuşuna basın. Oradan Ocx dosyamızı bulun ve ekleyin.

Private Type update 
Url As String 
Versiyon_Me As String 
Mesaj As String 
M_OK As Boolean 
Version_son As String 
Url2 As String 
End Type 

Dim update As update 

Private Sub Form_Load( ) 
update.Url = "http://www.site.com/programlar/stok/" 
update.Versiyon_Me = App.Major & "." & App.Minor & "." & App.Revision 
update.M_OK = Inet1.OpenURL(update.Url & "MesajVar.txt" ) 

If update.M_OK = True Then 
update.Version_son = Inet1.OpenURL(update.Url & "version.txt" ) 
If update.Version_son > update.Versiyon_Me Then 
update.Mesaj = Inet1.OpenURL(update.Url & "Mesaj.txt" ) 
update.Url2 = Inet1.OpenURL(update.Url & "url.txt" ) 
MsgBox update.Url2 
cevap = MsgBox(update.Mesaj, vbInformation + vbYesNo ) 
If cevap = 6 Then 
Unload Me 
Dim OpenU As Long 
OpenU = Shell("explorer " & update.Url2 ) 
End If 
End If 
End If 
End Sub

AÇIKLAMAK GEREKİRSE ARKADAŞLAR...

Private Type update 
Url As String 
Versiyon_Me As String 
Mesaj As String 
M_OK As Boolean 
Version_son As String 
Url2 As String 
End Type

Bunlarla bir type oluşturdum. Yani tam olarak türkçe karşılığını bilmiyorum ama oluşturdum şey aynen text1 kutusunun içeriğini nasıl text1.text ile alırsak bunuda değişkenlerin karışmaması açısından kolay geldiği için bu şekilde yaptım.

Değişkenlere bilgilerimizi ekleyelim...

update.Url = "http://www.site.com/programlar/stok/" 
update.Versiyon_Me = App.Major & "." & App.Minor & "." & App.Revision 
update.M_OK = Inet1.OpenURL(update.Url & "MesajVar.txt" )

update.Versiyon_Me = App.Major & "." & App.Minor & "." & App.Revision bu kod programımızın versiyonlarını bulmamıza yarar.

If update.M_OK = True Then 
update.Version_son = Inet1.OpenURL(update.Url & "version.txt" ) 
If update.Version_son > update.Versiyon_Me Then 
update.Mesaj = Inet1.OpenURL(update.Url & "Mesaj.txt" ) 
update.Url2 = Inet1.OpenURL(update.Url & "url.txt" ) 
cevap = MsgBox(update.Mesaj, vbInformation + vbYesNo ) 
If cevap = 6 Then 
Unload Me 
Dim OpenU As Long 
OpenU = Shell("explorer " & update.Url2 ) 
End If 
End If 
End If

update.M_OK ile sayfadaki içeriği aldık. Eğer 1 ise yani True ise
update.Version_son = Inet1.OpenURL(update.Url & "version.txt" ) son versiyonu alıyor. sonra diyorki eğer son versiyon benim projemin versiyonundan büyük ise ( Mesela benim projemin sürümü 1.0.0 olsun eğer sayfada 1.1.0 varsa son versiyon büyük olduğu için haber gelecek.. )

update.Mesaj = Inet1.OpenURL(update.Url & "Mesaj.txt" ) mesaj.txt dosyasından mesajı alıyor. Sonra 
update.Url2 = Inet1.OpenURL(update.Url & "url.txt" ) ile yönlendirileceğimiz sayfanın urlsini alıyoruz. Ve son olarak 
cevap = MsgBox(update.Mesaj, vbInformation + vbYesNo ) 
If cevap = 6 Then 
Unload Me 
Dim OpenU As Long 
OpenU = Shell("explorer " & update.Url2 ) 
End If

mesaj kutusunda mesajı görüntülüyoruz. Eğer cevabımız evet ise
OpenU = Shell("explorer " & update.Url2 ) yeni bir internet explorer geliyor ve o sayfaya yönleniyoruz...

Kolay Gelsin

 

[darki2696]

Tşkler...

 

[cskn192]

Teşekkürler.

 

[turkmmouser03]

Teşşekurler . Kaliteli Bir Konu Olmuş .