Ozan hocam alttaki Ara_progver functionu ile Drive olayını hallettim.
Mantık şu oldu. progver.txt dosyasını program açılışında Environ("TEMP") klasörüne download ettirdim.Tabii varsa yoksa koşulları felan eklendi.
Bu function ilede txt içinde versiyon numarası bulundu gerisi zaten sizin kodlaBox dosyası normal sizin kodların aynısı sadece internet adresleri değişti bildiğiniz gibi.
İlk mesaj güncellenmiştir.Herşey için çok teşekkürler,kolay gelsin.
Function Ara_progver(textt As String)
Dim DosyaAd_progver As String
Dim kacinci As Byte
Dim ara_ilk As String
DosyaAd_progver = textt
Const Ara = ":"
If Dir(DosyaAd_progver) = "" Or Dir(DosyaAd_progver) = Null Then
Ara_progver = ""
Exit Function
End If
Open DosyaAd_progver For Input As #1
Do While Not EOF(1)
Line Input #1, ara_ilk
kacinci = InStr(1, ara_ilk, Ara)
If kacinci > 0 Then
Ara_progver = Mid(ara_ilk, kacinci + 1, Len(ara_ilk))
Exit Do
End If
Loop
Close #1
End Function
VersiyonNedir kodlarıda altta.
Public Sub VersiyonNedir()
Dim versiyon_adresi As String
'Dim IEb As Object
Dim temp As String
Dim textDosya_progver As String
textDosya_progver = Environ("TEMP") & "\progver.txt"
Dim GVersiyon, GGuncelleDosyasiUrl, GYeniSurumUrl, GGuncelleDosyaAdi, GYeniSurumAdi As String
Dim sim_major_vers, sim_midi_vers, sim_minor_vers, gun_major_vers, gun_midi_vers, gun_minor_vers As Byte
GYeniSurumUrl = Dlookup ("yenidosyaurl", "tbl_uygulama_ayarlari")
GYeniSurumAdi = Dlookup ("yenidosyaadi", "tbl_uygulama_ayarlari")
GGuncelleDosyasiUrl = Dlookup ("guncellemedosyasiurl", "tbl_uygulama_ayarlari")
GGuncelleDosyaAdi = Dlookup ("guncellemedosyasiadi", "tbl_uygulama_ayarlari")
DeleteUrlCacheEntry GYeniSurumUrl
DeleteUrlCacheEntry GGuncelleDosyasiUrl
If Len(Dir(Environ("TEMP") & "\" & GGuncelleDosyaAdi)) > 0 Then
Kill Environ("TEMP") & "\" & GGuncelleDosyaAdi
End If
If Dir(textDosya_progver) <> "" Or Not Dir(textDosya_progver) = Null Then
Kill textDosya_progver
End If
versiyon_adresi = Dlookup ("versiyonkontrolurl", "tbl_uygulama_ayarlari")
URLDownloadToFile 0, versiyon_adresi, textDosya_progver, 0, 0
temp = Ara_progver(textDosya_progver)
lbl_programin_versiyonu.Caption = Nz(DLookup("uygulama_versiyonu", "tbl_uygulama_ayarlari"), "0.0.00")
If Dir(Environ("TEMP") & "\progver.txt") = "" Or Dir(Environ("TEMP") & "\progver.txt") = Null Then
lbl_guncel_versiyon.Caption = ""
MsgBox Environ("TEMP") & "\progver.txt" & vbNewLine & vbNewLine & "Dosyasi Bulunamadi...", vbCritical, "Hata"
Exit Sub
End If
' Set IEb = Nothing
GVersiyon = Mid$(temp, InStr(temp, ":") + 1, 6)
sim_major_vers = Mid$(lbl_programin_versiyonu.Caption, 1, 1)
sim_midi_vers = Mid$(lbl_programin_versiyonu.Caption, 3, 1)
sim_minor_vers = Mid$(lbl_programin_versiyonu.Caption, 5, 2)
gun_major_vers = Mid$(GVersiyon, 1, 1)
gun_midi_vers = Mid$(GVersiyon, 3, 1)
gun_minor_vers = Mid$(GVersiyon, 5, 2)
If IsNull(gun_major_vers) And IsNull(gun_midi_vers) And IsNull(gun_minor_vers) Then
Exit Sub
End If
lbl_guncel_versiyon.Caption = GVersiyon
If gun_major_vers > sim_major_vers Then
lbl_guncel_versiyon.ForeColor = RGB(255, 0, 0)
If MsgBox("A Kullandýðýnýz programdan daha yeni bir versiyon bulunmaktadýr." & vbCrLf & vbCrLf & "Yeni versiyonu indirmek istiyor musunuz?", vbExclamation + vbYesNo, "Yeni Sürüm Mevcut") = vbYes Then
URLDownloadToFile 0, GYeniSurumUrl, Environ("TEMP") & "\" & GYeniSurumAdi, 0, 0
URLDownloadToFile 0, GGuncelleDosyasiUrl, Environ("TEMP") & "\" & GGuncelleDosyaAdi, 0, 0
End If
ElseIf gun_midi_vers > sim_midi_vers Then
lbl_guncel_versiyon.ForeColor = RGB(255, 0, 0)
If MsgBox("B Kullandýðýnýz programdan daha yeni bir versiyon bulunmaktadýr." & vbCrLf & vbCrLf & "Yeni versiyonu indirmek istiyor musunuz?", vbExclamation + vbYesNo, "Yeni Sürüm Mevcut") = vbYes Then
URLDownloadToFile 0, GYeniSurumUrl, Environ("TEMP") & "\" & GYeniSurumAdi, 0, 0
URLDownloadToFile 0, GGuncelleDosyasiUrl, Environ("TEMP") & "\" & GGuncelleDosyaAdi, 0, 0
End If
ElseIf gun_minor_vers > sim_minor_vers Then
lbl_guncel_versiyon.ForeColor = RGB(255, 0, 0)
If MsgBox("C Kullandýðýnýz programdan daha yeni bir versiyon bulunmaktadýr." & vbCrLf & vbCrLf & "Yeni versiyonu indirmek istiyor musunuz?", vbExclamation + vbYesNo, "Yeni Sürüm Mevcut") = vbYes Then
URLDownloadToFile 0, GYeniSurumUrl, Environ("TEMP") & "\" & GYeniSurumAdi, 0, 0
URLDownloadToFile 0, GGuncelleDosyasiUrl, Environ("TEMP") & "\" & GGuncelleDosyaAdi, 0, 0
Dim db As DAO.Database
Dim strSQL As String
Dim strTableName, GDosyaDizin, GEskiDosya, GYeniDosya As String
GDosyaDizin = CurrentProject.Path & "\"
GEskiDosya = Dlookup ("uygulamaadi", "tbl_uygulama_ayarlari")
GYeniDosya = Dlookup ("yenidosyaadi", "tbl_uygulama_ayarlari")
Set db = OpenDatabase(Environ("TEMP") & "\" & GGuncelleDosyaAdi)
db.Execute "Delete * FROM tbl_guncellemeayar;"
db.Execute "INSERT INTO tbl_guncellemeayar (dosyadizin, eskidosyaadi,yenidosyaadi) VALUES ('" & GDosyaDizin & "', '" & GEskiDosya & "', '" & GYeniDosya & "');"
db.Close
Dim accapp As Access.Application
Set accapp = New Access.Application
accapp.OpenCurrentDatabase Environ("TEMP") & "\" & GGuncelleDosyaAdi
'accapp.Visible = True
Application.Quit
End If
Else
'MsgBox "Þu anda en son güncel versiyonu kullanýyorsunuz", vbInformation + vbOKOnly, ProgramAdi
lbl_guncel_versiyon.ForeColor = RGB(0, 0, 0)
End If
End Sub
yakıt_hesapla_SON Googe Drive.rar
(Dosya Boyutu: 591,55 KB | İndirme Sayısı: 2)
