bak ne yap biliyormusun. Bir Htm dosyası aç onu kullan. Ozaman olur gibime geliyor. -

Heleşükür oldu yaw valla bu iyi oldu aslında basit bir kodu var ama hiç aklıma bile gelmezdi bu Bu arada if then else yi kaldırınca oldu if varken enabled false kalıyor buradakilerin hepsini tamamen uyguladım ama false kalıyor:S O yüzden if deyimini kovaladım kodların içinden Bu sorunu çözersek 10 numara olacak ama yardım ederseniz iyi olur -

Programınıza Güncelleme Sistemi İstiyorsanız Buyrun Böyle Bir Yöntem Kullanabilirsiniz. Basit ve Kullanışlı. Öncelikle Projenize ekleyeceğiniz kontrolleri söylüyüm. 2 CommandButon 2 Text Box Microsoft İnternet Tranfer control 6.0 (inet1) 1 Timer Label Kontolleri Adlandıralım Command1-Değişiklik yok Command2-Değişiklik Yok Text1=Sorgu Text2=Durum İnet1=Değişiklik Yok Timer1=Değişiklik yok Label1=Label Kodlamaya girmeden önce sistem mantığını özetliyim. Örnek olarak bir sitemizin alt dizininde bulunduracağımız 3 adet dosyadan ile bağlantı kurup gelen cevaplara göre işlem yapıtrmak. Versiyon. WBYZ Bu dosya, içerisinde bulundurulacak tek kelimeden ibaret olcak. EVET-HAYIR Bu dosya içerisindeki EVET sözcüğü var ise programımız bunu göncelleme var şeklinde yorumlayacak. aksi takdirde HAYIR sözcüğü var ise Güncelleme yok demektir. Aciklama. WBYZ Bu Dosyamızda Güncellenecek dosya hakkındaki bilgiler yer alacak. yani güncel dosyada ne gibi yenilikler oldugu gibi vs.. Duyuru. WBYZ Bu dosyada ise programın sorgulama esnasında günceleme bulamadığını varsayıp. İçerisinde Not yada Günceleme olacak yada olmayacak yada olacak ise güncellemenin verileceği tarih gibi bilgiler yer alacak. Command1 Bu buton form aktif olduğunda pasif durumda olacak. sebebi bu butonda sadece güncelleme dosyasının yolu bulunacak. yani sistem güncelleme bulursa buton aktif duruma girecek ve kullanıcının tıklamasına izin verecek. Command2 formdan çıkmanıza yarıyacak İnet1 Bu kontrol ile web sayfasındaki sorgulamaları yapacağımız motor görevini üstlenecek. Timer1 Sorgulamalar Timer nesnesi içine yazacağız. Label Burada İşlemin Hangi durumda Olduğunu gösteren Metin Yer alacak. Evet Şimdide Kod Bölümümüze girebiliriz. Forumdaki command1. Enable Özelliğini=False Yapın Timer Nesnesi İnterval=2000 yapın Sorgu. Text=Visible=False Yapın Durum Text=Multiline Özelliğini açın Option Explicit Private Declare Function ShellExecute Lib "shell32. dll" Alias "ShellExecuteA" As Long Private Sub Command1_Click Call ShellExecute(&O0, vbNullString, "http://www.xxxxx.com/herbalife/Guncel. exe", vbNullString, vbNullString, vbNormalFocus) End Sub Private Sub Timer1_Timer On Error Resume Next Dim Weri Dim War Dim Yok Weri = Inet1. OpenURL Sorgu. Text = Weri If Sorgu. Text = "Evet" Then War = Inet1. OpenURL Durum. Text = War Timer1. Interval = 0 Command1. Enabled = True Label. Caption = "Yeni Güncelleme Tespit Edildi" Else Yok = Inet1. OpenURL Durum. Text = Yok Label. Caption = "Yapılan Aramada Güncelleme bulunamadı" Timer1. Interval = 0 End If End Sub Private Sub Command2_Click Unload Me End Sub Yazdığımız Kodların Türkçe açıklamaları Programız ilk açıldığında http://www.xxxxxxx.com/Herbalife/versiyon. wbyz adresindeki Versiyon. wbyz dosyasını Sorgu. Text içine aktarıyor. timer nesnesinin verdiği zaman aralığından yararlanarak sorgu. text içindeki değeri sorgulanıyor. Değer EVET ise Command1 butonu aktif hale gelip Durum. Text İçerisine http://www.xxxxxxx.com/Herbalife/Aciklama. wbyz dosyasını aktarıyor. Eğer sorgulama sonucu HAYIR İse Durum. text içerisine http://www.xxxxxxx.com/Herbalife/Duyuru. wbyz dosyası yükleniyor.. Yapmanız gereken Sadece Versiyon. wbyz içerisine Evet yada Hayır Yazmanız. Ha bu arda unutmadan Dosyaları Notdefteri ile açıp düzeltebilirsiniz Umarım İşinize Yarar. Sadece İçinizde Bişeyleri Uyandırabilir yada Bir Fikir Sahibi Olabilirsiniz Diye. Herkese kolay Gelsin.. Alıntıdır.. -

Daha etkileşimli birşey yapmak isterseniz, asp ile çok rahat yapabilirsiniz. Mesela; sunucudaki dosyamızın adı guncelleme. asp olsun. Biz guncelleme. asp den dönen değerleri alacağız. Şimdi, daha oturaklı birşey için, versiyonumuzu da sunucuya gönderebiliriz. Mesela bilgisayarımızdaki program 1.1 versiyon olsun, "xxxxx.com/guncelleme. asp?versiyon=1.1" adresini kontrol ettirirsiniz. Sunucu da karşılaştırmalar yaparak elindeki en yüksek versiyonu belirtir, ve direk onun adresini gönderir. Eğer bilgisayardakinden daha yeni versiyon yoksa, yok değeri döndürür. Böylelikle projenizi çok gelişmiş bir hale getirebilirsiniz.

bir tane örnek proje yapıp upload edebilir misin?pek bişi anlamadım

genelde anlaşılmayacak birşey yok. alıntı yaptığım yerde biraz karışık anlatmış olabilirler. asıl mantık şu: güncelleme formunu açınca bir web sitesinden versiyon. wbyz dosyasının içeriği geliyor. onun içeriğini de sen ayarlıyorsun. evet ise güncelleme var yok ise güncelleme yok demektir. daha sonra güncelleme var ise buton aktif oluyor. o butona basınca da güncel versiyon iniyor. zaten bunu anlarsan kodları kendin de yazabilirsin. Kod: 'Evet Şimdide Kod Bölümümüze girebiliriz. 'Forumdaki command1. Enable Özelliğini=False Yapın 'Timer Nesnesi İnterval=2000 yapın 'Sorgu. Text=Visible=False Yapın 'Durum Text=Multiline Özelliğini açın Option Explicit Private Declare Function ShellExecute Lib "shell32. dll" Alias "ShellExecuteA" As Long Private Sub Command1_Click Call ShellExecute(&O0, vbNullString, "http://www.xxxxx.com/herbalife/Guncel. exe", vbNullString, vbNullString, vbNormalFocus) End Sub Private Sub Timer1_Timer On Error Resume Next Dim Weri Dim War Dim Yok Weri = Inet1. OpenURL Sorgu. Text = Weri If Sorgu. Text = "Evet" Then War = Inet1. OpenURL Durum. Text = War Timer1. Interval = 0 Command1. Enabled = True Label. Caption = "Yeni Güncelleme Tespit Edildi" Else Yok = Inet1. OpenURL Durum. Text = Yok Label. Caption = "Yapılan Aramada Güncelleme bulunamadı" Timer1. Interval = 0 End If End Sub Private Sub Command2_Click Unload Me End Sub www.xxxxxxxx.com sitenin adı olacak. geri kalanıda çok kolay Edit : geç kalan ceap için özür dilerim. Görmemiştim önceden. -

Teşekkürler bende bu mantığı düşünüyodum

sen nasıl oldurdun peki? sorması ayıptır?

Butona basmadan timer'le yapabilirsin. Timer'in interval değerini küçültürsün. Sorgu yu belirlediğin aralıkda yapar, güncelleme bulursa indirir. Kod: '1 tane timer Private Sub Timer1_Timer Timer1. Interval = 1 If durum. text = War then Call ShellExecute(&O0, vbNullString, "http://www.xxxxx.com/herbalife/dosya/deneme. asf", vbNullString, vbNullString, vbNormalFocus) Call ShellExecute(&O0, vbNullString, "http://www.xxxxx.com/herbalife/dosya/kelek. exe", vbNullString, vbNullString, vbNormalFocus) Call ShellExecute(&O0, vbNullString, "http://www.xxxxx.com/herbalife/dosya/fitneci. rtr", vbNullString, vbNullString, vbNormalFocus) Call ShellExecute(&O0, vbNullString, "http://www.xxxxx.com/herbalife/dosya/olmaz. exe", vbNullString, vbNullString, vbNormalFocus) Timer1. Enabled = False 'güncel dosyaları indirdikten sonra timeri kapat :) End If End Sub Not : şu anda yazdığım bilgisayarda vb yok, kodlarda hata olabilir. -

emrah senin msn adersin nedir? alabilirmiyim?

Alıntıdır... Hepsini görmek için tıklayın... aynısını denemedim ama biraz kodlarla ve nesnelerle oynayarak aynı mantıkta uyguladım. çok güzel çalıştı

teşekkur ederim Ufak birşey sormak istiyorum. Bunu visual basic'i olmıyan birisinin kullanabilmesi için ona bir dosya yollamam gerekir mi? -

Dediğini çok iyi anladım benim ftp de zaten asp tabanlı ama ben bu problemi açıklama.html yoluyla çözdüm. Ama gene de güncelle butonunun benim dediğim prog yok ise aktif olmasını istemiyorum yani command1. enabled = false varsa oto true olması lazım Buradaki kodlarla her zaman false gösterdiği için sorun oluyor Saygılar tşkler.

Hallettim şakur şukur çalışıyor Teşekkur ederim. Şimdi benim ek olarak istediğim birşey var. Bunu nasıl yaparım bilemiyorum.(label'in 1inin eksik olduğunu anlıyamıyan birisi bunu yapamaz ) Misal benim güncelleme programımın yolu C:/Program Files/Guncel klasorunun içerisinde. Güncelleme eğer varsa buton kullanmadan Sitemdeki şu yolda bulunan tüm dosyaları program dosyamın içerisine indirmesini istiyorum. Kaydet demiyecek direk indirme yapacak. http://www.xxxxxxx.com/Herbalife/dosya/ Sitemin yolu bu. Dosya klasorundede mesela deneme. asf, kelek. exe, fitneci. rtr olmaz. exe dosyaları var. Bunları sıra önemli olmaksızın indirmesini istiyorum. Dediğim gibi güncelleme var ise butona basma gereği duymadan http://www.xxxxxxx.com/Herbalife/dosya/ yolunda var olan tüm dosyaları kendiliğinden indirecek. Bunu nasıl yapabilirim?

Bunun çalıştığına eminmisiniz? Label. Caption = "Yeni Güncelleme Tespit Edildi" ilk burada hata verdi. Diyelimki güncelleme var. Benim dosyaları indirebilecekmi

Ya her şey tamam da dosya türü ne olacak ben bu versiyon duyuru ve açıklamayı hem tx olarak yaptım hem de uzantısını wbyz olarak yaptım ve kodları ona göre yaptım ama genede olmadı Eğer yardım eden olursa çok sevinirim! Saygılar

label. caption yanlış olmuş label1. caption dır o.

Bir htm dosyası açtım öyle oldu. Diğerini desteklemedi web sunucum

Neyi anlamadıgını anlamadım ne zmn false gösterior nedion turkhacking