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\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