قفل USBوFolderوDrive

[sabair]

دوستان سلام
يا کسي سورس قفل USB يا قفل پوشه دارد
دوستان من سورسي مي خواهم که بتوانم USBوپوشه را قفل نمايم؟

به عنوان مثال هر کس کول ديسک به سيستيم کامپيوتر وصل کرد
کامپيوتر نرم افزار پيغام قفل بدهد
وقفل پوشه که کسي نتواند قفل پوشه را باز کند
و قفل درايو : برنامه بتواندليست drive هايي کامپيوتررا نمايش و سپس آنها را قفل کند c:,d:,e: و...

با تشکر از تمامي برنامه نويسان
بخصوص برنامه نويسان VB6:قلب::قلب::قلب::قلب::قلب::قلب ::قلب::قلب:

[HjSoft]

يك راه نجومي ( اگر كسي جواب نداد ، اين جواب ميده ) : يكراهش اينه كه از طريق FindWindowsA بياين نام درايو رو بگيرين و قبلش هم از طريق ريجستري بيايين نمايش مسير در Captionرو فعال كنيد . ((( گفتم كه نجوميه )))

[sabair]

دوستان اگر سورسي داريد خواهشا آپلود نمايد
با تشکر

[HjSoft]

اين سورس دقيقا ميشه ويروس ! چون از اين طريق تنها راه داره كه ويروسي خودشو كپي كنه . در هر صورت توي سايت تا دلت بخواهد از FindWindowA هست .
اين مربوطه به مسير ريجستري :

rets = SetDWORDValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Explorer\CabinetState", "FullPath", "1")

اينم Api مربوط به گرفتن مسير :

Private Declare Function FindWindowA Lib "user32.dll" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

:: موفق باشيد ::