درخواست سورس

[rook]

دوستان من میخوام سطل آشغال حذف كنم چیكار كنم میخوام خود پوشه حذف كنم Recycle Bin سوسرس میخوام

[babyy]

واسه پاک کردن سطل بازیافت؛کلید زیر رو از ریجیستری حذف کن

کد php:

HKLM,SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\{645FF040-5081-101B-9F08-00AA002F954E} 


[rook]

میدونم دوست عزیز ولی چطوری با vb6 این کار را انجام بدم

[ترانسپورتر]

این کد رو از ی جا دزدیدم ، ببینید به کار میاد ، vb6 روی سیستم ندارم که تست کنم!

کد:

'Registry constants
    Public Const HKEY_CLASSES_ROOT = &H80000000
    Public Const HKEY_CURRENT_CONFIG = &H80000005
    Public Const HKEY_CURRENT_USER = &H80000001
    Public Const HKEY_DYN_DATA = &H80000006
    Public Const HKEY_LOCAL_MACHINE = &H80000002
    Public Const HKEY_PERFORMANCE_DATA = &H80000004
    Public Const HKEY_USERS = &H80000003
    Public Const REG_SZ = 1
    Public Const ERROR_SUCCESS = 0&
    Public Const RET_NO_MORE_KEYS = 259&
    Public Const REG_OPTION_NON_VOLATILE = 0
    Public Const STANDARD_RIGHTS_ALL = &H1F0000
    Public Const SYNCHRONIZE = &H100000
    Public Const READ_CONTROL = &H20000
    Public Const STANDARD_RIGHTS_READ = (READ_CONTROL)
    Public Const STANDARD_RIGHTS_WRITE = (READ_CONTROL)
    Public Const KEY_CREATE_LINK = &H20
    Public Const KEY_CREATE_SUB_KEY = &H4
    Public Const KEY_ENUMERATE_SUB_KEYS = &H8
    Public Const KEY_NOTIFY = &H10
    Public Const KEY_QUERY_VALUE = &H1
    Public Const KEY_SET_VALUE = &H2
    Public Const KEY_READ = ((STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not SYNCHRONIZE))
    Public Const KEY_WRITE = ((STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE))
    Public Const KEY_EXECUTE = (KEY_READ)
    Public Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE))
    
    
    Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
    Public Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal samDesired As Long, phkResult As Long) As Long
    Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
    Public Declare Function RegEnumKeyEx Lib "advapi32.dll" Alias "RegEnumKeyExA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, lpcbName As Long, ByVal lpReserved As Long, ByVal lpClass As String, lpcbClass As Long, lpftLastWriteTime As Any) As Long
    Public Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
    Public Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As Any, phkResult As Long, lpdwDisposition As Long) As Long
    Public Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
    Public 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
    
    
    
    Public Sub Delete_Old_Registry()  'Delete the old registry settings
    
       Dim hKey As Long
        Dim hNewKey As Long
        Dim lKeyCounter As Long
        Dim sKeyName As String
        Dim lKeyRet As Long
        Dim lResult As Integer
      
        Const BUFFER_SIZE As Long = 255
      
        lKeyRet = BUFFER_SIZE
        'Open the registry key root
        If RegOpenKey(HKEY_CURRENT_USER, "Software\VB and VBA Program Settings\GUI2000", hKey) = 0 Then
            'Create a buffer
            sKeyName = Space(BUFFER_SIZE)
            'Enumerate the keys and then delete them
            While RegEnumKeyEx(hKey, lKeyCounter, sKeyName, lKeyRet, ByVal 0&, vbNullString, ByVal 0&, ByVal 0&) <> RET_NO_MORE_KEYS
                lResult = RegDeleteKey(hKey, sKeyName)
                'Prepare for the next key
                lKeyCounter = lKeyCounter + 1
                sKeyName = Space(BUFFER_SIZE)
                lKeyRet = BUFFER_SIZE
            Wend
            'Delete the root key
            lResult = RegDeleteKey(hKey, "")
        End If
    End Sub

[rook]

نشد دوست من خواهشن كمك كنید استاد از من پرسیده‌