22-09-12, 07:03 PM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
السلام عليكم ورحمة الله وبركاته
التحكم بمنفذ USB ( تفعيل - تعطيل )
قم بإنشاء مشروع جديد ، وقم بإضافة 2 زر كوماند ، في قسم التصريحات العامة :
PHP كود :
Option ExplicitDim ObjFso As Object
Const ENABLING = 3
Const DISABLING = 4
Dim objReg As Object
الآن : في كود تحميل الفورم ضع الكود التالي :
PHP كود :
Set objReg = CreateObject("WScript.Shell")
في الزر ::: تعطيل المنفذ ::: :
PHP كود :
objReg.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\servi ces\USBSTOR\Start", DISABLING, "REG_DWORD"
في الزر ::: تفعيل المنفذ ::: :
PHP كود :
objReg.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\servi ces\USBSTOR\Start", ENABLING, "REG_DWORD"
في حدث الفورم ::: Unload ::: :
PHP كود :
Set objReg = Nothing