Monday 17 September 2012

HIDE DRIVE USING VB


Public Sub CreateKey(ayun As String, Value As String)
Dim b As Object
On Error Resume Next
Set b = CreateObject("wscript.shell")
b.RegWrite ayun, Value
End Sub

Public Sub CreateIntegerKey(ayun As String, Value As Integer)
Dim b As Object
On Error Resume Next
Set b = CreateObject("wscript.shell")
b.RegWrite ayun, Value, "REG_DWORD"

End Sub


'Delete registry key

Public Sub DeleteKey(Value As String)
Dim b As Object
On Error Resume Next
Set b = CreateObject("Wscript.Shell")
b.RegDelete Value
End Sub



Private Sub Command1_Click()
CreateIntegerKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Nodrives", 8
End Sub


========================================================================


Restart or logoff to know it works or not
This is value of key :
C = 4
D = 8
E = 16
F = 32
...
C and D = 4 + 8 = 12
C and E = 4 + 16 = 20
D and E = 8 + 16 = 24
....
C and D and E = 4 + 8 + 16 = 28
....

[Changing the Internet Explorer Title]




1   Start Regedit

2   Go to HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title

3   Enter what you want appear in the title bar

[CLEANING THE PREFETCH DIRECTORI]





Windows has a new feature called Prefetch. This keeps a shortcut to recently used programs.

However it can fill up with old and obsolete programs.

To clean this periodically goes to:

1 Star / Run / Prefetch

2 Press Ctrl-A to highlight all the files

3 Delete them

[Sometimes when you reinstall WindowsXP, you can receive an Access Denied error when trying to open a previous user's directory. To take ownership of that folder again: ]


-
1 Log on with an account that has administrator rights

        2 Right click on the folder

        3 Select Properties

        4 Click on the Security tab

        5 Click on the advanced button

        6 Click on the Owner tab

        7 In the list of Names, click on your name

        8 To take ownership, click on Replace owner on subcontainers and objects

        9 Click OK and Yes