WebOzeL RekLam-BiLgiSayar İnternet ALanı - Kendi Setup Dosyanı oLuştur
 

Anasayfa
Ziyaretçi defteri
Tasarım Yaptırma
İletişim
Free UpLoad
Reklam Nedir
Reklamın Önemi
Reklamın Etiketleri
Reklamın Dili
Reklam Neden Yapılır?
Reklam içeriği
RekLam Ver
hitinizi arttırmanın yolları
Siteni Google Ekle
Hakkımızda
Kısayol Tuşları
Layers Katmanlar
Photoshopta Zombi Efekti
Photoshopta Tırnak Uzatma
Saç Gibi Hassas Bölgelerin Kesimi
Yaşlandırma Efekti - İnsanları Yaşlandırın
Resimde bir objeyi ön plana çıkarma
Korku Filmi Efekti
Nesnelere Işık Efekti Verme
Resimin Kenarını Kıvırma
Resime Ölü Efekti Verme
Site Traffic
Görev Yöneticisi
Dreamweaver DersLeri
Firework DersLeri
Premiere eLements DersLeri
FLash DersLeri
AudaCity DersLeri
DNS AyarLarı
Format Atma
Simgelerin Arka Planını Kaldır
Hata Veren DLL DosyaLarı
Windows Vista Forma Atma
kLasörLere ÖzeL SimgeLer Koymak
Pc Zamanı Geri aLma
Xp Mavi Ekran HataLarı
TekTuş BiLgisayarı Kapat
Hata Kodu ve KaynakLarı
kLavye TeknikLeri
Yararlı SiteLer
Photoshop (Nedir? - Nasıl kullanılır?)
Photoshop Tarihçesi
Photoshop Araç Kutusu (Toolbox)
İpucu
Genel Bakış
Genel Kurallar
Örnekler
Açıklama
EvLiLik YasaLarı
TC No SorguLama
SinemaLarda Bu Hafta
GünLük Burç
iL iL Türkiyem
WebTasarim 1
Web Tasarim 2
WebTasarim 3
WebTasarim 4
WebTasarim 5
WebTasarim 6
Murphy Savaş YasaLarı
Murphy iş KanunLarı
Türkçe Müzik DinLe
WebTasarim 7
angelina jolie saat
site içi arama motoru
ask testi
banttan kayan yazı
Canlı Tv
HTML KodLarı Burada
Karışık NickLer
GüzeL Msn NickLeri
AnLamLı Msn NickLeri
Beğenilen Msn Nickleri
Yeni NickLer
Msn Nick Arşiv
Harika Msn NickLeri
Karizma Msn NickLeri
Süper Msn NickLeri
EtkiLeyici Msn NickLeri
AyrıLık NickLeri
Nefret NickLeri
AnLamLı NickLer 2
Komik Kısa NickLer
Kod İstek Burda !!!
Facebook'ta Paylaş Kodu
Twitter'da Paylaş Butonu
WebTasarim 8
Ziyaretçi BiLgiLeri
Kendi Setup Dosyanı oLuştur
İstediğimiz saatte bilgisayar kapansın
Butona Kısayol Ekleme
Saatin Yanında Simge Oluşturalım(System Traya ikon ekleme)
Visual Basic 2008 İle Görev Yöneticisi Yapımı
Vb.NET 'te forma Mozilla Browser eklemek
Timer Kullanmadan Progressbar Yapımı
Yön tuşlarıyla shapemizi hareket ettirelim
Mouse ile formumuza çizim yapalım
Labelimizdeki yazıları aşağı doğru yazdıralım
VisuaL Basic KODLARI
Alt Bölüm Kodu
Ziplediğiniz Oyun-Program vs. PartLara Bölme(ResimLi AnLatım)
Sahadan Maç Sonucu
İddaa programı
Puan Durumu
Araba resimleri
Aşk Ölçer
Başa Dön
BJK Haberleri
Dini Bilgiler
Tk Adres aLmak
Regedit AyarLarı
Smiley Değiştirme
Vista Programsız Disk (HDD) Bölme Yeni ve Bölüm Oluşturma [Resimli]
KLasöre Arka pLan Resmi Koymak - ResimLi AnLatım
Renk KodLarı
CanLı Destek
Sitene Canlı Destek Ekle
Banner
Facebook İfade
Oyun Oyna
RenkLi Yazi Kodu
Kod Editörü
tasarim yap
Murphy KanunLarı
Photoshop DersLeri
Avatar Yapımı
Animation Yapımı
Photoshop ile Meyvelere Surat EkLeme ResimLi Anlatım
Photoshop Hareketli banner Yapımı
FiLm Arşivi
Yeni sayfanın başlığı

Yardımcı paket programlar olmadan kendi setup(ön yüklemenizi) oluşturun.

Öncelikle Formumuza Şu Nesneleri Ekleyip Aşağıda bulunan resim gibi düzenleyin.

Eklenecekler :
  • 6 adet CommandButon
  • 1 Adet textbox
  • 1 Adet DriveListBox
  • 1 Adet DirListBox
  • 1 Adet Label (Label en üstte Tanıtım içindir zorunlu değildir)
Değişkenleri tanımlayın(en üst kısma form load kısmına değil)

Dim path As String
Dim oldpath As String
Dim folder As Boolean


Formumuz Aşağıdaki gibi olsun:

http://resim.sanalkurs.net/uploads/setup_1.jpg

Programımız açıldığında sadece logomuz ve Yükle Kaldır Çıkış butonları görünecektir yani formumuz çalıştığında şu şekil görünecektir


http://resim.sanalkurs.net/uploads/alan.jpg

dirlistboxlar kullanıcıya görünmeyecetir.Bunun için de form load kısmına:


Private Sub Form_Load()

Dir1.Visible = False
Drive1.Visible = False
Command4.Visible = False
Command5.Visible = False
Command6.Visible = False
End Sub
yazınız
Öncelikle Yükle Butonundan İşe Başlayalım içine

Dir1.Visible = True
Drive1.Visible = True
Command4.Visible = True
Command5.Visible = True
Command6.Visible = True


Text1.Text = "Lütfen Önce Klasör Oluşturun Sonra İstenilen Hedefe Yükleyin"

Kullanıcı yükle butonuna bastığı zaman yüklemesi gereken klasör için dirlistboxlar ve Klasör Oluştur İptal Devam ET Tuşları(command 4,5,6) Görünür Olacaktır
Klasör Oluştur butonuna gelelim

If folder = True Then Exit Sub

If folder = False Then Let folder = True

If folder = True Then

path = Dir1.path
oldpath = Dir1.path


FileSystem.MkDir path + "Program Adı"
Dir1.Refresh
End If

Text1.Text = "PROGRAM ADI adında bir klasör Oluşturuldu"

Eğer folder (yani Klasör) varsa yükleme devam etsin ancak klasör yoksa yeni bir Programdı adında kalsörü dirlistboxta seçilen bölgeye oluştursun ve listeyi yenilesin
Gelelim Devam et yani yüklemeyi ilerlet butonuna

Dim fso, txtfile


If folder = False Then
Dim res
res = MsgBox("Öncelikle Yeni Bir Klasör Oluştur", vbOKOnly + vbCritical)
Exit Sub
End If


path = Dir1.path + "Program Adı"
'dosyaların kopyalanacağı dizinler
FileSystem.FileCopy "Dosyayı burdan al örnek program.exe", path + "Buraya ver örnek program.exe"
FileSystem.FileCopy "Dosyayı Burdan Al Tam yol adı", "Buraya ver"
FileSystem.FileCopy "Dosyayı Burdan Tam Yol Adı", "Buraya ver"
FileSystem.FileCopy "Dosyayı Burdan Tam Yol Adı", "Buraya ver"

Set fso = CreateObject("Scripting.FileSystemObject")
    Set txtfile = fso.CreateTextFile("C:geriyukle.txt", True)
    txtfile.Write (oldpath)
    txtfile.Close
Text1.Text = "Yukleme Başarılı"


Eğer Kullanıcı klasörü seçmiş yükleme devam eder. Eğer klasör oluşturmamış ise kullanıcıya oluşturması için bir uyarı verir. Burda programınızın nerde alınıp nereye kopyalacağını belirtiniz.(Otomatik patch yükleme ya da günceleştirme işlemlerindede kullanabilirsiniz). Program kendiliğinden geri yükleme ayarlarını oluşturan bir metin (.txt) oluşturacaktır.

Setup Dosyanızı başarıyla kurdunuz...


Kolay Gelsin...
 
 

=> Sen de ücretsiz bir internet sitesi kurmak ister misin? O zaman burayı tıkla! <=