السلام عليكم ورحمه الله وبركاته
هل يمكن يا اخواني
كود يقوم بمنع نسخ او ارسال الملفات خارج الكمبيوتر
يعني عندي صور او ملفات لا اريد لاحد ان ينقلها من جهازي لفلاشه او اي هارد خارجي
هل هناك كود يقوم بالمهمه
انتظركم
فى البرمجه لا يوجد شئ غير موجود ولكن عدم المعرفه هى الموجوده بالنسبة لنا
على العموم يوجد كود يقوم بعمل باسورد على الملفات الخاصة بك
يعطيك العافيه اخي وائل
لكن هذا ليس طلبي لا اريد قفل الملفات
بل منع نسخها او نقلها خارج الكمبيوتر
اظن ان هناك عمليه تجري بالرجستري لهذه الغايه
السلام عليكم ورحمة الله وبركاته
جرب الكود التالي
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 لتتمكن من النسخ الي الفلاش
ملاحظة : يجب تشغيل البرنامج كمسؤول
بالتوفيق
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
اخي العزيز يمكنك وضع الكود التالي وضبط التايمر للعمل كل 1 ثانية او حسب رغبتك
إقتباس :Private Sub Timer1_Timer()
Clipboard.Clear
End Sub
هذا الكود يقوم بتصفير الكلببورد وهو المكان الذي يحوي القيم المنسوخة
السلام عليكم
كود حدف المفتاح
PHP كود :
Dim Reg As Object
Private Sub Command1_Click()
Set Reg = CreateObject("wscript.shell")
Reg.RegDelete ("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies\")
End Sub
بالتوفيق
السلام عليكم ورحمة الله
اضافة على ما قدمه اخي ALBRNS
جرب الكود التالي لإغلاق منفذ القلاش بالقيمة 4 او 3 للتمكين
PHP كود :
Set Wsh = CreateObject("wscript.shell")
Wsh.regwrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\USBSTOR\Start", 4, "REG_DWORD"
لجعل الفلاش للقراءة فقط بالقيمة 1
او 0 للتمكن من النسخ والحذف والتعديل علي الفلاش
PHP كود :
Set Wsh = CreateObject("WScript.Shell")
Wsh.regwrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies\WriteProtect", 1, "REG_DWORD"
اتمنى لك حظا موفقا اخي nablion
جزاكم الله خير اخواني على الامثله
بارك الله فيكم
(08-04-13, 07:22 PM)nablion كتب : [ -> ]جزاكم الله خير اخواني على الامثله
بارك الله فيكم