Bu Mesajı Bulamadım.(txt, .dll, .bat, .ini ) ye kayıt

[mnz]

Merhaba, Öncelikle herkesin geçmiş Ramazan bayramı mubarek olsun.
Forumda daha önce gördüğüm bir mesajı bulamadım. Bulamayınca da mesajı bu forumda mı görmüştüm onu da hatırlayamadım.Aradan zaman geçti.
.txt, .dll, .bat, .ini dosyalarının bir tanesine excel den kayıt yapılıyordu ( Örn: Ali 35 )(alt alta çeşitli isimler) daha sonra bu Ali sorgulanarak 35 çağrılıyordu userform.textbox a.
Dün çok aradım ama bulamadım. Yardımınızı rica ediyorum.

 

[Haluk]

Bu linke bir göz atın, işinize yarayabilir ....

http://www.excel.web.tr/showthread.php?t=34250

 

[mnz]

Üstat bu konuyu sizin yazdığınızı hayal meyal hatırladığım için özellikle sizin gönderdiğiniz mesajların büyük bir kısmını tekrar gözden geçirmiştim. Bu nasıl gözümden kaçtı bilmiyorum.
İşte aradığım bu konuydu.
Teşekkürler.

 

[mnz]

.ini dosyasına birden fazla şifre tanımı yapılabiliyormu?

 

[Haluk]

Örnek:

Declare Function WritePrivateProfileString Lib "kernel32" _
        Alias "WritePrivateProfileStringA" _
        (ByVal lpApplicationName As String, ByVal lpKeyName As Any, _
         ByVal lpString As Any, ByVal lpFileName As String) As Long
'
Sub InıDosyasinaYaz()
    WritePrivateProfileString "MyPaswIni", "Password1", "Sifre1", "D:\TestFolder\Password.ini"
    WritePrivateProfileString "MyPaswIni", "Password2", "Sifre2", "D:\TestFolder\Password.ini"
End Sub