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

21-11-2009, 11:49:49

Üyeliği durduruldu

Merhaba Arkadaşlar ;

Ben Visual Basic 6.0 Kullaniyorum. vede güncelleştirme yapmak istiyorum mesela bilgisayarda c: programfiles'da xxx.rar dosyası veya xxx.exe dosyası yok otomatık indiricek dosyaya. war ise indirmicek.. ??

+ Cpu Düşürmeyi Nasıl Sağlarım,Azalmayı Veya...

Not : Yardimlarindan Dolayi Herkeze ' Teşekkürler.

21-11-2009, 16:56:10

#2

aGeneL

burda pek 6 kullanan oldugnu zannetmiyorm. sen bunu
http://vbturk.net/ ' e bi sor orda daha cabuk cevap alabilirsin

21-11-2009, 17:25:12

#3

~~HayaL~~

Üyeliği durduruldu

Teşekkür Ederimde , O Siteye Üye Oldum Fakat Mail Vs Gelmedi Onaylanmadida :S Şifre Unuttum Diyorum, Mail Gelmıyo...

21-11-2009, 19:59:05

#4

ilkerxx

simdi bir inet ekle projene ve proje properties kismindan major kismini ayarla hep 1 ,2 ,3 ,4 diye sonra kontrol.txt olsun bir hostunda ve onada programin major versionunda hep bir buyuk sayi yaz tabi update olunca yaz

, biraz ugrastim program version kontrol yapiyor soruyor ve varsa yukluyor ancak exeyi silip onun yerine koymayi bulamadim onuda sen bulursun artik

neyse ztn cok acik,anlamadigin yer varsa sorarsin, buarada alinti degil

, örnek olarak kendi hostumu kullandim sende kullanabilirsin kontrol.txt nin icinde 2 yaziyor...ve update.exe... kodlarda anlarsin ztn

version = App.Major
If kontrol > version Then

bu kisimda major sayilarinin buyuk olup olmadigini kontrol ediyor yani yeni cikanin verisonu daha yeniyse kod isler... kolay gelsin

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

Private Sub Form_Load()

kontrol = Inet1.OpenURL("http://www.t-posta.com/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.t-posta.com/update.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

21-11-2009, 23:00:02

#5