* Güncelleştirme Yardim [ Visual Basic 6.0 ]

ilk resimde major sayisinin nasil ayarlancagini gosteriyor sari olan yere program verisonunu yazacaksin iste, yeni surumler ciktikca 1, 2 ,3,4 diye..minor kismini elleme hep majorden yap

ikinci ve ucuncu resimdede major sayisinin nasil elde edecegini gosterdim app.major yani biz zaten sana verdigim kodda ftpdeki sayi ile major sayisini karsilastirdik yani programin version numarasini eger benim programin major sayisi 1 ise sende yeni program yaptin ve major u 2 ise ftp ye kontrol.txt ye 2 yazacan ve update.exe yide koyacan ftp ye eger baktiki program kendi major yani verisonundan daha yeni program var sarti yerine getirir bukadar...

version = App.Major
If kontrol > version Then

bu kodları nereye yazıcam ama

version = App.Major

proje baslat dedıgımde app.major olan yer hata verıyor sarı oluyor?


Siz bana bu projenin save dosyasını upload edip linki pm ile yollayabılırmısınız ben link degişimi yapıyım?

senin butun kodun bukadarsa tabiki hata verir sana assagidaki verdigim kodun tamamini kullan ve inet eklemeyi unutma lutfen yazinin tamamini oku ve kod zaten projenin tumu ve calisiyor test ettim

ya inet ekledim inet1 işte ama app.major "app" burası hata verıyo siyah oluyo hatalı dıyo

major kısmıda 1 ellemedım hiç sonra kontrol.txt içine 1 yazdım xeon.exe dosyası attım ftp update.exe yerıne xeon.exe yaptım ama app olan yer hata verıor ?

kodlarinin tümünü yazarmisin buraya birde hata resmini

version = App.Major
If kontrol > version Then

Dim kontrol As Integer
Dim version As Integer
Dim cevap
Dim yeni_yukle As Boolean

Private Sub Form_Load()

kontrol = Inet1.OpenURL("http://www.xeon.gen.tr/kontrol.txt"): DoEvents
version = App.Major
If kontrol > version Then
cevap = MsgBox("Yeni version var,Yuklensin mi ?", vbYesNo)

If cevap = vbYes Then
MsgBox ("Programi Kapatip Tekrar Acin")
yeni_yukle = True
Else
MsgBox ("Yeni version Yuklenmeyecektir.")
End If

End If
End Sub

Private Sub Form_Terminate()
If yeni_yukle = True Then
Dim fileBytes() As Byte
Dim fileNum As Integer

On Error GoTo DownloadError
DoEvents

fileBytes() = Inet1.OpenURL("http://www.xeon.gen.tr/xeon.exe", icByteArray): DoEvents

fileNum = FreeFile


Open App.Path & "\yeni.exe" For Binary Access Write As #fileNum
Put #fileNum, , fileBytes()
Close #fileNum
MsgBox "Yeni Version Yuklendi"
DownloadError:
MsgBox Err.Description
End If
End Sub


Direk Kodlar. resim çekmeye gerek yok hata verıyor tıkladıgımda şu satır oda app.major en usttekı.

ilk iki satirini sil benim anlatim yaptigim yerleri fazladan kopyalamissin hem general dec kisminda sart komutumu olurmu bence biraz vbasic ders falan arastir

Tamam Abi Herşey Güzelde Progresbar sayesınde vede label de ne kadar inmiş vs gösterebilirmiyiz?

inet in ozelliklerinden alabilirsin mesela getheader var ancak bunu anlatamam kendin arastir biraz uzun