10 Kasım

Visual Basic de SETUP oluşturmak

MuJoe

Üye
6 Ara 2007
193
3
Konumuz visual basicde programımız için setup oluşturmak.
mesela program yaptık ve bu program için başka makinede çalışması için yarım düzine ocx yada dll dosyası gerekiyor. İşte buna basitçe bir çözüm yolu.
1. Setupını oluşturacağımız programı compile edelim.
2. program için gerekli eklentileri hazırlayalım.(ocx, dll vb)
3. Şimdi setup programını yapmaya geldi.
4. Bir proje açalım.Bu projeyi istediğimiz gibi dizayn edelim.(bu setup progumuz olcak. Bu alttaki örnektir.
installtg1.jpg

5. Dizayn işini yaptıktan sonra ADD-INS tan ADD-MANAGER i açalım.
6. vb6 resource editöre çift tıklayalım ve tamam diyelim.
7. Kontrol barına res editör gelicek. Onu açalım
8. Add custom resource seçeneğine tıklayarak ve eklentilerimizi seçelim.
*Compile ettiğimiz programıda ekliyelim managere 103 olsun oda
9. Editöre seçtiğimiz eklentiler eklenicek. Sırasıyla 101, 102,103 ... diye
10. Dizaynını yaptığımız projeyi gelelim -KUR- butonunun kod bölümünü açalım
11. Yalnızca 3 eklenti eklediğimi varsayarak (101, 102, 103) Alttaki kodları yapıştırıyorum


Private Sub KUR_Click()
Dim resbytes() As Byte
resbytes = LoadResData(101, "CUSTOM")
Dim no As Byte
no = FreeFile
Open "C:\\WINDOWS\\System32\\MSWINSCK.ocx" For Binary As #no
Put #no, , resbytes
Close #no

Dim resbytes2() As Byte
resbytes = LoadResData(102, "CUSTOM")
Dim no2 As Byte
no = FreeFile
Open "C:\\WINDOWS\\System32\\MScomdlg.ocx" For Binary As #no
Put #no, , resbytes
Close #no

Dim resbytes3() As Byte
resbytes = LoadResData(103, "CUSTOM")
Dim no3 As Byte
no = FreeFile
Open App.Path & "\\Programım.exe" For Binary As #no
Put #no, , resbytes
Close #no

’Kodlara dikkat edlim arkadaşlar Örneğin (101-MSWINSCK.ocx//102-MScomdlg.ocx//103-programım.exe) yaptım. Eklediğinize göre deiştirin
’Yukardaki kodlar setup dosyasına gömülü olan eklentileri -KUR- butonuna tıklayınca "C:\\WINDOWS\\System32\\" dizinine çıkarıyor.
’Burdan sonra ise reglenmeleri gerekiyor. Onun içinse

Shell ("regsvr32 /s \\WINDOWS\\System32\\MSWINSCK.ocx")
Shell ("regsvr32 /s \\WINDOWS\\System32\\MScomdlg.ocx")

’Dim resbytes3 satırında ise programımız (exemiz) app.Path yani install progunun çalıştığı klasöre çıkarılıyor.
’Burada eklentilerimiz taşınmış, reglenmiş ve exemiz installe aynı dizine çıkmış oluyor. Yani kurulum bitiyor.
’Bunu belirtmek içinse


Msgbox " Kurulum Başarı ile Tamamlandı!..."
end
End Sub



Bu olaylara progressbar filan gibi kontroller ekliyerek daha güzel görüntü oluşturabilir daha orjinal yapabilirsiniz.
Ben olayın mantığını anlattım.(düşünebildiğim kadarıyla) Umarım faydasını görüceksiniz.


 
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.