06-10-12, 12:30 PM
<< بسم الله الرحمن الرحيم >>
أضع بين يديكم كود لتفعيل فتح - و التعطيل - للوحة التحكم في نظام التشغيل اعتماداً على مدخلة في الريجستري
طبعا كل من الأكواد التالية يحتاج الى أداة عنوان Label1 و أداة زر Command1
نبدأ بسم الله :
كود تفعيل لوحة التحكم أو Control Panel :
Dim lResult
Private Sub Command1_Click ()
lResult = RegCreateKey(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", hKeyHandle)
lResult = RegSetValueEx(hKeyHandle, "NoControlPanel", 0&, REG_DWORD, 0, 4)
lResult = RegCloseKey(hKeyHandle)
Label1.Caption = "Last Action : Control Panel Enabled"
End Sub
أما كود التعطيل فهو للوحة التحكم أو Control Panel :
Dim lResult
Private Sub Command1_Click ()
lResult = RegCreateKey(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", hKeyHandle)
lResult = RegSetValueEx(hKeyHandle, "NoControlPanel", 0&, REG_DWORD, 1, 4)
lResult = RegCloseKey(hKeyHandle)
Label1.Caption = "Last Action : Control Panel Disabled"
End Sub
تحياتي
حصريا للمنتدى :
درس: كيفية حساب عدد الأسطر في نص
-- إذا لم تزد على الحياة شيئاً فأنت زائد عليها --
-- المبرمج الطموح vb6 --