با این کدها میتونی مقدارشو اگر 0 با 1 باشه بخونی !
Option Explicit
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, 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 ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Private Const HKEY_CURRENT_USER = &H80000001
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const KEY_ALL_ACCESS = &HF003F
Const REG_DWORD = 4&
Private Sub Form_Load()
Dim RetVal As Long
Dim phkResult As Long
Dim lpData As Long
Dim lpcbData
RetVal = RegOpenKeyEx(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policie s\System", 0, KEY_ALL_ACCESS, phkResult)
RetVal = RegQueryValueEx(phkResult, "DisableTaskMgr", 0, REG_DWORD, lpData, 4)
MsgBox "DisableTaskMgr ValueDate: " & lpData
RetVal = RegCloseKey(phkResult)
End Sub