تفعيل و تعطيل التشغيل Run - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90) +--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111) +---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116) +---- الموضوع : تفعيل و تعطيل التشغيل Run (/showthread.php?tid=5248) |
تفعيل و تعطيل التشغيل Run - المبرمج الطموح vb6 - 06-10-12 << بسم الله الرحمن الرحيم >>
أضع بين يديكم كود لتفعيل - و التعطيل - للبرنامج Run اعتماداً على مدخلة في الريجستري طبعا كل من الأكواد التالية يحتاج الى أداة عنوان Label1 و أداة زر Command1 نبدأ بسم الله : كود تفعيل التشغيل أو Run : Dim lResult Private Sub Command1_Click () lResult = RegCreateKey(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", hKeyHandle) lResult = RegSetValueEx(hKeyHandle, "NoRun", 0&, REG_DWORD, 0, 4) lResult = RegCloseKey(hKeyHandle) Label1.Caption = "Last Action : Run Option Enabled" End Sub أما كود التعطيل للتشغيل أو Run : Dim lResult Private Sub Command1_Click () lResult = RegCreateKey(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", hKeyHandle) lResult = RegSetValueEx(hKeyHandle, "NoRun", 0&, REG_DWORD, 1, 4) lResult = RegCloseKey(hKeyHandle) Label1.Caption = "Last Action : Run Option Disabled" End Sub تحيـــــــــــــــاتي |