Registry

[r0ot$harp]

سلام بچه ها
این کد پایین باعث می شود که TaskManager کاملا بسته شود

A = Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Pol icies\System /v DisableTaskMgr /t REG_DWORD /d 1 /f", vbNormalFocus)


حالا سوال من اینه که در کد بالا قسمتی هست که بارنگ قرمز نمایان است که مقدارش 1 هست من می خوام برنامه اول چک کنه اگه مقدار بالا در داخل ریجستری و در داخل همین آدرس 1 بود یه کار بکنه اگه نبود یه کار دیگه چگونه این کار باید انجام گیرد .

[__siavash__]

با این کدها میتونی مقدارشو اگر 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\Policies \System", 0, KEY_ALL_ACCESS, phkResult)
RetVal = RegQueryValueEx(phkResult, "DisableTaskMgr", 0, REG_DWORD, lpData, 4)
MsgBox "DisableTaskMgr ValueDate: " & lpData
RetVal = RegCloseKey(phkResult)

End Sub