Tuyển tập những thủ thuật PC ( phần 1 )

1. Khắc phục lổi mất shortcut trong Send To
Bạn tạo shortcut cho một hay nhiều ứng dụng sau khi xong , khi bạn nhấn
chuột phải vào một
thư mục hay tập tin và chọn chức năng Send To , các shortcut này sẽ
không hiển thị ra theo như
ý muốn của bạn . Nguyên nhân do đường dẩn của SendTo bạn chưa thiết
lập đúng cách .
Mắc dù bạn chép shortcut vào trong thư mục Documents and
Settings\<Tên tài khoản đăng
nhập>\SendTo tuy nhiên nó vẩn không xuất hiện các shortcut .
Để giải quyết lổi này bạn mở Notepad và chép đoạn mã sau vào :
Set WshShell = CreateObject("WScript.Shell")
USFolderPath =
"HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User
Shell
Folders"
On Error resume next
WshShell.RegWrite "HKCR\exefile\shellex\DropHandler\",
"{86C86720-42A0-1069-A2E8-
08002B30309D}", "REG_SZ"
WshShell.RegWrite "HKCR\lnkfile\shellex\DropHandler\", "{00021401-
0000-0000-C000-
000000000046}", "REG_SZ"
WshShell.RegWrite USFolderPath & "\SendTo",
"%USERPROFILE%\SendTo",
"REG_EXPAND_SZ"
Wshshell.RUN ("regsvr32.exe shell32.dll /i /s")
MsgUser = Msgbox ("Fixed the Send To menu. Restart Windows for the
changes to take effect",

Know
VNECHIP – Advanced Technologies , 24/7 Support , Free Fastest Online
Bạn mở Notepad và chép đoạn mã sau vào :
Option Explicit
On Error Resume Next
Dim WSHShell
Set WSHShell=Wscript.CreateObject("Wscript.Shell")
WSHShell.RegDelete
"HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\L
astKey"
WSHShell.Run "REGEDIT"
Set WSHShell = Nothing
Lưu lại và đặt tên cho tập tin này là lastregistry.vbs
4. Kiểm tra tổng số thư mục , tập tin có trong thư mục Windows
Bạn muốn kiểm tra trên máy tính của mình có bao nhiêu thư mục và tập
tin nằm trong thư mục
Windows trên hệ điều hành Windows XP hay không . Thủ thuật sau sẽ
giúp bạn làm điều này chỉ
cần nhấn chuột phải . Mở Notepad của bạn lên , chép và dán đoạn code
sau vào trong Notepad :
dir /a /-p /o:gen >filelisting.txt
Đặt tên cho tập tin này là filelisting.bat . Lưu tập tin này lại ở trong thư
mục E:\Windows (E: là ổ
đĩa bạn cài hệ điều hành Windows XP)
Vào MyComputer chọn Tools-Folder Options chọn thanh File Types .
Chọn mục Advanced - New
Trong mục New Action :
Ở dòng Action bạn điền Create File Listing , Ở dòng Application used to
perform action bạn nhập
E:\Windows\filelisting.bat . Nhấn OK hai lần . Chọn Close để thoát .

.Namespace(ssfDrives).ParseName(CDROM).InvokeVerb("E&ject")
End Sub
Lưu tập tin này thành cdeject.vbs
6. Thay đổi thanh tiêu đề trong Internet Explorer
Để thay đổi tên trên thanh tiêu đề (Title) của trình duyệt Internet Explorer
bạn có thể dùng
Registry Editor tuy nhiên nếu bạn là người mới sử dụng Registry lần đầu ,
bạn sẽ cãm thấy rất
khó khăn và bở ngở .
Cách làmm sau đây ta sẽ dùng kịch bãn (script) sử dụng công nghệ
Windows Scripting Host của
Microsoft để giải quyết vấn đề . Đầu tiên bạn mở Notepad lên và chép
đọan mã sau vào :
Option Explicit
Set ws = WScript.CreateObject("WScript.Shell")
Dim ws, t, p, p1, n, cn, mybox, itemtype, vbdefaultbutton
p = "HKCU\Software\Microsoft\Internet Explorer\Main\Window Title"
itemtype = "REG_SZ"
n = "Advanced Technologies , Fastest Online"
Ws.RegWrite p, n, itemtype
p1 = "HKCU\Software\Microsoft\Internet Explorer\Main\"
n = ws.RegRead(p1 & "Window Title")
t = "Thay doi ten cho thanh tieu de"
cn = InputBox("Nhap ten moi cho thanh tieu de va nhan nut OK .", t, n)
If cn <> "" Then
ws.RegWrite p1 & "Window Title", cn
End If
VisitKelly's Korner
Sub VisitKelly's Korner
If MsgBox("Welcome to " & vbCRLF &

8. Xóa danh sách Path Items ở vùng thông báo chỉ một cú nhấn chuột
Bạn thường thắc mắc làm thế nào để xóa bỏ các danh sách liệt kê trong
Path Items ở vùng
thông báo (Notification Area) mà không cần phải thay đổi các giá trị
trong Registry Editor .
Xin giới thiệu đến các bạn xóa danh sách Past Items ở vùng thông báo
không sử dụng Registry
mà ta sẽ sử dụng Windows Scripting Host (WSH) để xóa các danh sách
này .
Mở Notepad lên và chép vào đọan mã sau :
Message = "To work correctly, the script will close" & vbCR
Message = Message & "and restart the Windows Explorer shell." & vbCR
Message = Message & "This will not harm your system." & vbCR &
vbCR
Message = Message & "Continue?"
X = MsgBox(Message, vbYesNo, "Notice")
If X = 6 Then
On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegDelete
"HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\TrayNot
ify\IconStreams"
WshShell.RegDelete
"HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\TrayNot
ify\PastIconsStream"
Set WshShell = Nothing
On Error GoTo 0
For Each Process in GetObject("winmgmts:"). _
ExecQuery ("select * from Win32_Process where name='explorer.exe'")
Process.terminate(0)