VisualBasic_gunceleme_bilir_prg_.htm
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.

 
Kod Alanı:

 
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...
 

Kod Alanı:

 
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...
 

Kod Alanı:

 
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.

 

Kod Alanı:

 
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.. )

 

Kod Alanı:

 
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

Yardım İçin Sadece Bir Tık Yeter
 
Sponsor
 
.tk
 
Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol