- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
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:
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:
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:
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:
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:
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...
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:
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:
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:
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:
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:
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...