منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مساعده بخصوص كود منع نسخ الملفات من الجهاز - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : مساعده بخصوص كود منع نسخ الملفات من الجهاز (/showthread.php?tid=8335)

مساعده بخصوص كود منع نسخ الملفات من الجهاز - nablion - 04-04-13

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

هل يمكن يا اخواني
كود يقوم بمنع نسخ او ارسال الملفات خارج الكمبيوتر
يعني عندي صور او ملفات لا اريد لاحد ان ينقلها من جهازي لفلاشه او اي هارد خارجي

هل هناك كود يقوم بالمهمه

انتظركم

مساعده بخصوص كود منع نسخ الملفات من الجهاز - WAEL ABED - 05-04-13

فى البرمجه لا يوجد شئ غير موجود ولكن عدم المعرفه هى الموجوده بالنسبة لنا
على العموم يوجد كود يقوم بعمل باسورد على الملفات الخاصة بك

مساعده بخصوص كود منع نسخ الملفات من الجهاز - nablion - 06-04-13

يعطيك العافيه اخي وائل

لكن هذا ليس طلبي لا اريد قفل الملفات

بل منع نسخها او نقلها خارج الكمبيوتر

اظن ان هناك عمليه تجري بالرجستري لهذه الغايه

مساعده بخصوص كود منع نسخ الملفات من الجهاز - ALBRNS - 07-04-13

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

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

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 لتتمكن من النسخ الي الفلاش

ملاحظة : يجب تشغيل البرنامج كمسؤول

بالتوفيق

مساعده بخصوص كود منع نسخ الملفات من الجهاز - nablion - 07-04-13

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

مساعده بخصوص كود منع نسخ الملفات من الجهاز - محمد العبيدي - 07-04-13

اخي العزيز يمكنك وضع الكود التالي وضبط التايمر للعمل كل 1 ثانية او حسب رغبتك
إقتباس :Private Sub Timer1_Timer()
Clipboard.Clear
End Sub
هذا الكود يقوم بتصفير الكلببورد وهو المكان الذي يحوي القيم المنسوخة

مساعده بخصوص كود منع نسخ الملفات من الجهاز - ALBRNS - 08-04-13

السلام عليكم

كود حدف المفتاح

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 

بالتوفيق

مساعده بخصوص كود منع نسخ الملفات من الجهاز - 3amo - 08-04-13

السلام عليكم ورحمة الله
اضافة على ما قدمه اخي 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

مساعده بخصوص كود منع نسخ الملفات من الجهاز - nablion - 08-04-13

جزاكم الله خير اخواني على الامثله

بارك الله فيكم

RE: مساعده بخصوص كود منع نسخ الملفات من الجهاز - ltfe - 23-08-16

(08-04-13, 07:22 PM)nablion كتب : جزاكم الله خير اخواني على الامثله

بارك الله فيكم