Veri okutma Hata :( [ vb6 ]
- Konbuyu başlatan HereIam
- Başlangıç tarihi
saintx
Kayıtlı Üye
version.txt içeriği boş ?
- Katılım
- 7 Mart 2012
- Mesajlar
- 12,586
- Reaction score
- 389
- Puanları
- 83
nero all in one 'nin versiyon kontrol bölümü
kullanım
konunuz visual .net bölümünden visual 98 bölümüne tasınmıstır.
Kod:
Public Function CheckVersion() As Boolean
On Error Resume Next
Dim URL As String, HTML As String, Sp1() As String, Sp2() As String
URL = "http://panel.neronlineworld.com/nero.txt"
HTML = Form1.Inet1.OpenURL(URL)
Sp1 = Split(HTML, vbNewLine)
If (Sp1(0) = vbNullString) Then Exit Function
Sp2 = Split(Sp1(0), "=")
If (Sp2(1) = vbNullString) Then Exit Function
If (Sp2(1) = App.Major & App.Minor & App.Revision) Then
CheckVersion = False
Else
CheckVersion = True
End If
End Function
Public Sub GetNewVersion()
Dim Response As String
Response = MsgBox("Yeni versiyon cikmis, indirmek ister misiniz?", vbQuestion + vbYesNo)
If Response = vbYes Then
ShellEx "http://www.neronlineworld.com/showthread.php?p=1221", essSW_MAXIMIZE
End
End If
End Sub
Public Sub NoRelease()
MsgBox "Programin en guncel surumu yuklu.", vbInformation
End Subkullanım
Kod:
If (CheckVersion) Then Call GetNewVersion Else Call NoReleasekonunuz visual .net bölümünden visual 98 bölümüne tasınmıstır.
1
111Mutay
Guest
İlk önce version.txt'den değerin okunduğuna emin ol, version verisi okunduktan sonra bir messagebox ile okunan veriyi ekrana yazdır, eğer text içinde version yazdığı halde messagebox boşsa text okuma kısmında bir hata vardır, eğer messageboxta versiyon verisi görünüyor ve sonrasında programın en güncel sürümü yüklü diyorsa versiyon karşılaştırma satırında bir sorun vardır.