Dim Reg As Object Private Sub Command2_Click() Set Reg = CreateObject("wscript.shell") Reg.RegWrite ("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies\WriteProtect"), 1, "REG_DWORD" End Sub
Dim Reg As Object Private Sub Command2_Click() Set Reg = CreateObject("wscript.shell") Reg.RegWrite ("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies\WriteProtect"), 1, "REG_DWORD" End Sub
غير القيمة الي 0 لتتمكن من النسخ الي الفلاش
ملاحظة : يجب تشغيل البرنامج كمسؤول
بالتوفيق
ممكن تعديل هذا الكود
ليكون هناك زر حذف المفتاح بدل جعل القيمه 0
Dim Reg As Object Private Sub Command1_Click() Set Reg = CreateObject("wscript.shell") Reg.RegDelete ("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies\") End Sub