Vısual basıc 6.0 program güncelleme kodu

[@Pala]

Evet arkadaşlar benimde bu koda bayağı ihtiyacım vardı sıkı bir araştırmadan sonra çözdüm olayı.
Lafı uzatmadan kodu veriyim ama anlatımı dinlemeden direkt CTRL+C/CTRL+V yaparsanız şapırt diye oturur kalırsınız çünkü bazı eklemeniz gereken şeyler var.

Kod :

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

Private Sub Form_Load()

kontrol = Inet1.OpenURL("http://melankoliqwer.somee.com/guncel.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://melankoliqwer.somee.com/güncelversion.exe", icByteArray): DoEvents

fileNum = FreeFile


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

ANLATIM:

CTRL+T yapıp Componentse girin.
Microsoft Internet Transfer Control u seçip uygula diyin
Formunuza bir adet Microsoft Internet Transfer Control ekleyin ve kodu yazın
ve bu arada bir hosting ve domaininiz olması gerekiyor.
Somee.com host kullanıyorum ben bedava tabii ki host ve domain. Alın sizde birtane örneğin melankoliqwer.somee.com
sonra panelden File Manager 'ı seçin
yeni versionunuz 2 ise örneğin gncl.txt oluşturup içine "sadece" 2 yazın. File managerden upload edin ve artık melankoliqwer.somee.com/gncl.txt isimli sayfamız oluştu!
Birde aynı şekilde .exe uzantılı güncelleme dosyanızı da upload edin öğrneğin güncelversion.exe diye. Gereken düzenlemeleri yapın koda

KODDA DÜZENLENMESİ GEREKEN YER:

melankoliqwer.somee.com/gncl.txt yerine kendi hostunuzun txt sayfasını yazacaksınız
güncelversion.exe yerine kendi günce versionunuzun ismini yazacaksınız
melankoliqwer.somee.com/günceverison.exe yerine kendi hostunuzdaki upload ettiğiniz güncel version dosyasının adresini yazacaksınız.

NASIL ÇALIŞIR:

Öncelikle sağda Project1 e sağ tıklayıp Project1 Properites i açın
Make sekmesine tıklatıp version bilgilerine bakın, hiç ellemediyseniz 1 olacaktır.
Eğer yeni version çıkartmak istiyorsanız hostunuzdaki ve domaininizdeki adreste txt dosyasını upload edin ve yeni version için 2 yazın
o adreste eğer o programın versionunun büyüğü varsa otomatik olarak yeni güncelleme sorgulaması yapacaktır.

 

[RedHour]

1-Yazı Botunu Küçült
2-Daha Önce Paylaşıldı
3-Kod Paylaşma Bölümüne Paylaş
4-Flood Yapma

Maşallah Tek Sövmedigin Kalmış :d

 

[DrPsycho]

Visual basic ile ilgilenen kimse yok herhalde :/

5 Tane forumda olmayan profesyonel çalışma yaptım,biride teşekkür etmedi.Forumda birilerinin bişey yapmasını bekleme paylaş yararlansınlar bu kadar

 

[@Pala]

5 Tane forumda olmayan profesyonel çalışma yaptım,biride teşekkür etmedi.Forumda birilerinin bişey yapmasını bekleme paylaş yararlansınlar bu kadar

Haklısın DrPsycho.

 

[Redcoatx]

Aslında işime eskiden çok yarıyacak bi koddu fakat şu anda vb.net 'e atladığım için yaramadı.Ama ileride programını güncellemeye çalışıcaklar için güzel bi paylaşım olmuş elinize sağlık Yüzbaş'ım..