+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : التحكم بمنفذ usb ( تفعيل - تعطيل ) ( فيجول بيسيك 6 ) (/showthread.php?tid=4344)
التحكم بمنفذ usb ( تفعيل - تعطيل ) ( فيجول بيسيك 6 ) - Ahmad Jawad - 22-09-12
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
السلام عليكم ورحمة الله وبركاته
التحكم بمنفذ 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