[nablion]

ALBRNS كتب :السلام عليكم ورحمة الله وبركاته

جرب الكود التالي

PHP كود :

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