Visual Basic – Izlistavanje svih Mail klijenata na sistemu

 –  aลพurirano:  –  

Koliko imate instaliranih mail klijenata? Nije potrebno da mukotrpno pretraลพujete disk, veฤ‡ je dovoljan samo jedan „pogled“ u Registry bazu. Sve ลกto vam je potrebno je da uz pomoฤ‡ Visual Basic-a kreirate mali program koji ฤ‡e zaviriti u Registry bazu, i zatim vam prikazati podatke. Sledeฤ‡i programski kod sa „copy-and-paste“ ubacite u novi modul projekta: 



 Declare Function RegOpenKey Lib „advapi32.dll“ Alias _

    „RegOpenKeyA“ (ByVal hKey As Long, ByVal lpSubKey _

    As String, phkResult As Long) As Long


 Declare Function RegEnumKey Lib „advapi32.dll“ Alias _

   „RegEnumKeyA“ (ByVal hKey As Long, ByVal dwIndex As Long, _

    ByVal lpName As String, ByVal cbName As Long) As Long




 Declare Function RegCloseKey Lib „advapi32.dll“ (ByVal hKey _

   As Long) As Long


 Public Const HKEY_LOCAL_MACHINE = &H80000002


 Public Sub IzlistajMailKlijente(ListBox As ListBox)









    Dim strKey As String * 255

    Dim lngRegKey As Long

    Dim intKey As Integer


    ListBox.Clear


    Call RegOpenKey(HKEY_LOCAL_MACHINE, _

    „SoftwareClientsMail“, lngRegKey)


    While RegEnumKey(lngRegKey, intKey, strKey, 255) = 0

        ListBox.AddItem Left(strKey, InStr(strKey, Chr(0)) – 1)

        intKey = intKey + 1

    Wend


    Call RegCloseKey(lngRegKey)


 End Sub

Preostaje vam da na praznu formu dodate jedno komandno dugme i jedan ListBox. Na klik dugmiฤ‡a pozivaฤ‡emo funkciju „IzlistajMailKlijente“ kojoj ฤ‡emo kao argument proslediti naziv ListBox kontrole. Funkcija ฤ‡e obrisati sadลพaj liste i ispisati sve mail klijente koji su instalirani. Provera se vrลกi u klijentskoj sekciji Registry baze, gde se iลกฤitavaju svi kljuฤevi. Pozovite funkciju na sledeฤ‡i naฤin: 



 Call IzlistajMailKlijente(List1)

Naravno, vrlo lako moลพete modifikovati kod da bi nazive klijenata smestili u niz.

Pratite Krstaricu na www.krstarica.com