registryden bilgi almak Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
This program needs 3 buttons 
Const REG_SZ = 1 ' Unicode nul terminated string 
Const REG_BINARY = 3 ' Free form binary 
Const HKEY_CURRENT_USER = &H80000001 
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long 
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long 
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long 
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long 
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long 
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long 
Function RegQueryStringValue(ByVal hKey As Long, ByVal strValueName As String) As String 
    Dim lResult As Long, lValueType As Long, strBuf As String, lDataBufSize As Long 
    'retrieve nformation about the key 
    lResult = RegQueryValueEx(hKey, strValueName, 0, lValueType, ByVal 0, lDataBufSize) 
    If lResult = 0 Then 
        If lValueType = REG_SZ Then 
            'Create a buffer 
            strBuf = String(lDataBufSize, Chr$(0)) 
            'retrieve the key's content 
            lResult = RegQueryValueEx(hKey, strValueName, 0, 0, ByVal strBuf, lDataBufSize) 
            If lResult = 0 Then 
                'Remove the unnecessary chr$(0)'s 
                RegQueryStringValue = Left$(strBuf, InStr(1, strBuf, Chr$(0)) - 1) 
            End If 
        ElseIf lValueType = REG_BINARY Then 
            Dim strData As Integer 
            'retrieve the key's value 
            lResult = RegQueryValueEx(hKey, strValueName, 0, 0, strData, lDataBufSize) 
            If lResult = 0 Then 
                RegQueryStringValue = strData 
            End If 
        End If 
    End If 
End Function 
Function GetString(hKey As Long, strPath As String, strValue As String) 
    Dim Ret 
    'Open the key 
    RegOpenKey hKey, strPath, Ret 
    'Get the key's content 
    GetString = RegQueryStringValue(Ret, strValue) 
    'Close the key 
    RegCloseKey Ret 
End Function 
Sub SaveString(hKey As Long, strPath As String, strValue As String, strData As String) 
    Dim Ret 
    'Create a new key 
    RegCreateKey hKey, strPath, Ret 
    'Save a string to the key 
    RegSetValueEx Ret, strValue, 0, REG_SZ, ByVal strData, Len(strData) 
    'close the key 
    RegCloseKey Ret 
End Sub 
Sub SaveStringLong(hKey As Long, strPath As String, strValue As String, strData As String) 
    Dim Ret 
    'Create a new key 
    RegCreateKey hKey, strPath, Ret 
    'Set the key's value 
    RegSetValueEx Ret, strValue, 0, REG_BINARY, CByte(strData), 4 
    'close the key 
    RegCloseKey Ret 
End Sub 
Sub DelSetting(hKey As Long, strPath As String, strValue As String) 
    Dim Ret 
    'Create a new key 
    RegCreateKey hKey, strPath, Ret 
    'Delete the key's value 
    RegDeleteValue Ret, strValue 
    'close the key 
    RegCloseKey Ret 
End Sub 
Private Sub Command1_Click() 
    Dim strString As String 
    'Ask for a value 
    strString = InputBox("Please enter a value between 0 and 255 to be saved as a binary value in the registry.", App.Title) 
    If strString = "" Or Val(strString) > 255 Or Val(strString)  -

Benzer Sonuçlar
No	Makro Adı
1	registryden bilgi almak
2	hücre değerini açiklamaya ekleme
3	word sayfası olarak çıktı almak
4	forma otomatik resim getirme
5	klasör bilgisi
6	şifrelemede son nokta
7	excel sayfasında yazılanları texte çevirmek
8	wmi windows
9	hücre değiştirilemez uyarısı, diğer hücreye yönlendirme
10	Özel Üstbilgi / Altbilgi: Özel bir üstbilgi eklemek isterseniz bu kod sizin için. Bu kodu çalıştırın, giriş kutusuna özel değer girin. Üstbilgi veya altbilginin hizalamasını değiştirmek için kodu düzenleyebilirsiniz.
11	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
12	dtpickerin değerinin database den gelen bir değer olmasını istiyorsak
13	hücre renkleri ile ilgili kodlar
14	multipage zemin rengi
15	userformu kilitlemek 1
16	userformu kilitlemek 3
17	makrolar kutusu ve makrolar görünsün
18	yapılan kaydı hafızada tutma
19	menü çubuğunun silinmesi ve özel bir menünün oluşturulması
20	kapali durumdaki c: est.xls dosyası açılacak ve içine c:userform1.frm ilave edildikten sonra kaydedilerek kapatilacaktir

Benzer Sonuçlar

Makro Adı

registryden bilgi almak

hücre değerini açiklamaya ekleme

word sayfası olarak çıktı almak

forma otomatik resim getirme

klasör bilgisi

şifrelemede son nokta

excel sayfasında yazılanları texte çevirmek

wmi windows

hücre değiştirilemez uyarısı, diğer hücreye yönlendirme

Özel Üstbilgi / Altbilgi: Özel bir üstbilgi eklemek isterseniz bu kod sizin için. Bu kodu çalıştırın, giriş kutusuna özel değer girin. Üstbilgi veya altbilginin hizalamasını değiştirmek için kodu düzenleyebilirsiniz.