بسم الله الرحمن الرحيم
اخواني انا مثل اللي يقول يا من شرى له من حلاله عله
من جد والله
تكفون ساعدوني
مشكلتي ان شاء الله تكون لكم بسيطه
انا اخذت من عندكم كود لاخفاء محركات الاقراص كلها
المهم سويته ونجح....
لكن المصيبه رفض يردها
اعدة التشغيل وما فيه امل
تكفون اسرع واحد يقدر يكتب الحل بسرعه
تكفى وتكفى تهز الرجاجيل
الكود اللي انا اخذته:
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Const KEY_ALL_ACCESS = &HF3F 'Full access permission
Const HCU = &H80000001
Const A = 1, B = 2, C = 4, D = 8, E = 16, F = 32, G = 64, H = 128
Const I = 256, J = 512, K = 1024, L = 2048, M = 4096, N = 8192
Const O = 16384, P = 32768, Q = 65536, R = 131072, S = 262144
Const T = 524288, U = 1048576, V = 2097152, W = 4194304
Const X = 8388608, Y = 16777216, Z = 33554432, ALL = 67108863
Const subky = "SoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer"
Dim handle As Long
Dim rval As Long
Dim result As Long
Dim dval As Long
Private Sub Command1_Click()
dval = 0
If Check1(0).Value = 1 Then dval = dval + A
If Check1(1).Value = 1 Then dval = dval + B
If Check1(2).Value = 1 Then dval = dval + C
If Check1(3).Value = 1 Then dval = dval + D
If Check1(4).Value = 1 Then dval = dval + E
If Check1(5).Value = 1 Then dval = dval + F
If Check1(6).Value = 1 Then dval = dval + G
If Check1(7).Value = 1 Then dval = dval + H
If Check1(8).Value = 1 Then dval = dval + I
If Check1(9).Value = 1 Then dval = dval + J
If Check1(10).Value = 1 Then dval = dval + K
If Check1(11).Value = 1 Then dval = dval + L
If Check1(12).Value = 1 Then dval = dval + M
If Check1(13).Value = 1 Then dval = dval + N
If Check1(14).Value = 1 Then dval = dval + O
If Check1(15).Value = 1 Then dval = dval + P
If Check1(16).Value = 1 Then dval = dval + Q
If Check1(17).Value = 1 Then dval = dval + R
If Check1(18).Value = 1 Then dval = dval + S
If Check1(19).Value = 1 Then dval = dval + T
If Check1(20).Value = 1 Then dval = dval + U
If Check1(21).Value = 1 Then dval = dval + V
If Check1(22).Value = 1 Then dval = dval + W
If Check1(23).Value = 1 Then dval = dval + X
If Check1(24).Value = 1 Then dval = dval + Y
If Check1(25).Value = 1 Then dval = dval + Z
If Check1(26).Value = 1 Then dval = ALL
rval = RegOpenKeyEx(HCU, subky, 0, KEY_ALL_ACCESS, handle)
rval = RegSetValueEx(handle, "NoDrives", 0, 4, dval, 4)
rval = RegCloseKey(handle)
End
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
rval = RegCreateKey(HCU, subky, handle)
rval = RegOpenKeyEx(HCU, subky, 0, KEY_ALL_ACCESS, handle)
rval = RegQueryValueEx(handle, "NoDrives", 0, 4, result, 4)
If (result And A) = A Then Check1(0).Value = 1
If (result And B) = B Then Check1(1).Value = 1
If (result And C) = C Then Check1(2).Value = 1
If (result And D) = D Then Check1(3).Value = 1
If (result And E) = E Then Check1(4).Value = 1
If (result And F) = F Then Check1(5).Value = 1
If (result And G) = G Then Check1(6).Value = 1
If (result And H) = H Then Check1(7).Value = 1
If (result And I) = I Then Check1(8).Value = 1
If (result And J) = J Then Check1(9).Value = 1
If (result And K) = K Then Check1(10).Value = 1
If (result And L) = L Then Check1(11).Value = 1
If (result And M) = M Then Check1(12).Value = 1
If (result And N) = N Then Check1(13).Value = 1
If (result And O) = O Then Check1(14).Value = 1
If (result And P) = P Then Check1(15).Value = 1
If (result And Q) = Q Then Check1(16).Value = 1
If (result And R) = R Then Check1(17).Value = 1
If (result And S) = S Then Check1(18).Value = 1
If (result And T) = T Then Check1(19).Value = 1
If (result And U) = U Then Check1(20).Value = 1
If (result And V) = V Then Check1(21).Value = 1
If (result And W) = W Then Check1(22).Value = 1
If (result And X) = X Then Check1(23).Value = 1
If (result And Y) = Y Then Check1(24).Value = 1
If (result And Z) = Z Then Check1(25).Value = 1
If (result And ALL) = ALL Then
For ix = 0 To 26
Check1(ix).Value = 1
Next
End If
rval = RegCloseKey(handle)
End Sub
والله يسامحك
وسلامتكم