Public Sub VersiyonNedir()
Dim versiyon_adresi As String
Dim IEb As Object
Dim temp As String
Dim sim_major_vers, sim_midi_vers, sim_minor_vers, gun_major_vers, gun_midi_vers, gun_minor_vers As Byte
If Len(Dir(CurrentProject.Path & "\guncelle.mdb")) > 0 Then
Kill CurrentProject.Path & "\guncelle.mdb"
End If
versiyon_adresi = "https://www.dropbox.com/s/lznm3dke1uy9ljn/metinVersiyon.txt"
Set IEb = CreateObject("InternetExplorer.Application")
IEb.Visible = True
With IEb
.Navigate versiyon_adresi
Do Until IEb.ReadyState = 4
DoEvents
Loop
For Each opt In IEb.Document.getElementsbyTagName("iframe")
If opt.classname = "previewhtml" Then
temp = opt.src
End If
Next
.Navigate temp
Do Until IEb.ReadyState = 4
DoEvents
Loop
For Each opt In IEb.Document.getElementsbyTagName("div")
temp = opt.innertext
Next
End With
lbl_guncel_versiyon.Caption = Mid$(temp, InStr(temp, ":") + 1, 6)
lbl_programin_versiyonu.Caption = Nz(DLookup("program_versiyonu", "tbl_program_ayarlari"), "0.0.00")
IEb.Quit
Set IEb = Nothing
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$(lbl_guncel_versiyon.Caption, 1, 1)
gun_midi_vers = Mid$(lbl_guncel_versiyon.Caption, 3, 1)
gun_minor_vers = Mid$(lbl_guncel_versiyon.Caption, 5, 2)
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, "https://accesstr.net/sitegenel/guncelleme/guncel_yakit_hesapla.mdb", CurrentProject.Path & "\guncel_yakıt_hesapla.mdb", 0, 0
URLDownloadToFile 0, "https://accesstr.net/sitegenel/guncelleme/guncelle.mdb", CurrentProject.Path & "\guncelle.mdb", 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, "https://accesstr.net/sitegenel/guncelleme/guncel_yakit_hesapla.mdb", CurrentProject.Path & "\guncel_yakıt_hesapla.mdb", 0, 0
URLDownloadToFile 0, "https://accesstr.net/sitegenel/guncelleme/guncelle.mdb", CurrentProject.Path & "\guncelle.mdb", 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, "https://accesstr.net/sitegenel/guncelleme/guncel_yakit_hesapla.mdb", CurrentProject.Path & "\guncel_yakıt_hesapla.mdb", 0, 0
URLDownloadToFile 0, "https://accesstr.net/sitegenel/guncelleme/guncelle.mdb", CurrentProject.Path & "\guncelle.mdb", 0, 0
Dim accapp As Access.Application
Set accapp = New Access.Application
accapp.OpenCurrentDatabase CurrentProject.Path & "\guncelle.mdb"
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
VersiyonNedir kodunu aşağıdaki ile değiştirerek dene.
