Web Sayfasını İstediğimiz Klasöre Kaydettirmek

Bir uygulamam için uzun çabalardan sonra geliştirdiğim yöntemi size anlatmak istiyorum.

XP, son kaydedilen web sayfasının, kayıt yeri bilgisini kayıt Defteri içerisinde

SOFTWARE\Microsoft\Internet Explorer\Main anahtarı altında, SaveDirectory Dize değeri içerisinde tutar. Kullanıcı, internetten yeni bir sayfa kaydetmek istediğinde, en son hangi klasöre sayfa kaydı yapmışsa, Farklı Kaydet iletişim kutusu o klasörü görüntüleyecek şekilde açılır.

            Bizler uygulamamızda bir webbrowser ile sayfa kaydetme işlemi yaptırmak amacındaysak ve sayfanın örneğin uygulamanın bulunduğu dizinde bir klasöre kaydedilmesini istiyorsak Kayıt defterindeki bu Dize Değerini değiştirmekle işe başlayabiliriz.

            Ben bu işlemi yaparken sayın Arif AKTAŞ’ın

http://www.vbturk.net/idsorgula.asp?id=119  adresindeki “VB ile Registry Kullanımı” adlı makalesindeki modül kodlarını mdlRegistry adlı module koyarak gerçekleştirdim. Kendisine teşekkür ediyorum.

VB ile DLL Oluşturma ve Kullanma: Excel Dosyası ile İletişim

Exceldeki işlemlerden, Excel dosyasının VBA Kod sayfasında yapacağımız düzenlemelerle haberdar olabiliriz. Bunun için kendi hazırlayacağımız bir DLL’den yararlanmak mümkün. Örnek olarak vereceğim DLL belirttiğimiz sabit bir yolda bulunan veritabanımıza, Excel dosyamız her kaydedildiğinde Kayıt Tarihi ve saatini ekleyecek.

            Öncelikle bir Veritabanımızın olması şart. Veritabanımızın ismi vtExcel. İçerisinde tek tablo var. Alanları KayıtNo(OtomatikSayı), KayıtTarihi(Metin), KayıtSaati(Metin) olan tablomuzun ismi tblKayıt. Veritabanımız “C:\” dizininde.

Yeni bir Proje Başlatıyoruz. Proje türü olarak ActiveX DLL ‘yi seçiyoruz. Projemize bir Class1.cls modülü eklenmiş durumda. Şimdi projemizin adını “ExcelKaydet”, Modülümüzün adını da “Kayıt” olarak değiştiriyoruz.

Modulümüzün içerisine istediğimiz kayıt işlemini gerçekleştirecek aşağıdaki fonksiyonu yazacağız:

VB Help Dosyası Açma

Private Sub HelpMe_Click()

RetVal = Shell("winhelp.exe " & App.Path & "\HELPFILE.HLP", 3)

End Sub

VB Sistem Registryden Nasıl Okunur Yazılır?

Registry girişine almak ve kaydetmek

‘girişe yazınız.

‘ HKEY_CURRENT_USER\Software\VB and VBA Program Settings\MyApp\Settings\

SaveSetting "MyApp", "Settings", "Left", 10

‘Debug penceresinden giriş ve çıkışları oku.Debug.Print GetSetting("MyApp", "Settings", "Left", 4)

Registry’de Windows API kullanımı

Option Explicit

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias _

"RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, _

phkResult As Long) As Long

VB INI Dosyasından Okuma Yapmak

***** 16-bit Örnek *****

Project’inize 1 adet commandbutton ekleyin ve aşağıdaki kodu yazınız:

Declare Function GetPrivateProfileString Lib "kernel" (ByVal lpApplicationName _

As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal _

lpReturnedString As String, ByVal nSize As integer, ByVal lpFileName As String) _

As integer

Declare Function WritePrivateProfileString Lib "kernel" (ByVal _

lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As _

String, ByVal lpFileName As String) As integer

Sub Command1_Click()

Dim sData As String
Dim iDataLen As integer