Programlada herşey sabit değildir çok fazla script gibi düşünüyorsunuz. VB gibi basit bir program sadece zamanla öğrenilebilecek birşeydir zamanında denedim ama olmadı. Yapman gereken şey bazı basit programlamaları kodlayarak ileyi düzeye kadar gelişmen. Üstelik VB'den connector yapılmaz en kötü ihtimal Delphi en iyi ihtimal C dillerini kullanmanız gerekir.
Arkadaşlar mesela c:programfiles/ultima / klasorunde xxxx.exe dosya yok otomatık indiricek bu kodları bilen warsa söylerse çok sevınırım tek eksigimiz kaldı bu oda.....
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.
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.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...
Üye Ol veya Giriş Yap
Bu forum başlığına mesaj atmak istiyorsanız hemen üye olun veya giriş yapın.