Bạn có muốn thêm các chức năng có trong hệ điều hành Windows XP chẳng hạn
như Control
Panel , Service , Registry Editor , LogOff , Shutdown , Add/Remove Programs ,
Drive Cleanup ,
System Restore , Device Manager , Reset khi bạn nhấn chuột phải vào My
Computer hay không .
Bạn mở trình soạn thảo văn bản Notepad lên sau đó bạn chép và dán đọan mã
này vào trong
Notepad .
Đọan mã như sau :
Windows Registry Editor Version 5.00
;Them Control Panel khi nhan chuot phai o My Computer
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{20D04FE0-
3AEA-1069-A2D8-
08002B30309D}\shell\Control Panel\command]
@="rundll32.exe shell32.dll,Control_RunDLL"
;Them Registry Editor khi nhan chuot phai o My Computer
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{20D04FE0-
3AEA-1069-A2D8-
08002B30309D}\shell\regedit]
@=hex(2):52,00,65,00,67,00,69,00,73,00,74,00,72,00,79,00,20,00,45,00,64,00,\
69,00,74,00,6f,00,72,00,00,00
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{20D04FE0-
3AEA-1069-A2D8-
08002B30309D}\shell\regedit\command]
@=hex(2):25,00,77,00,69,00,6e,00,64,00,69,00,72,00,25,00,5c,00,72,00,65,\
00,67,00,65,00,64,00,69,00,74,00,2e,00,65,00,78,00,65,00,00,00
;Them Add/Remove khi nhan chuot phai o My Computer
[HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-
08002B30309D}\shell\Add/Remove\command]
Welcome To VNECHIP - Where People Go To Know

;Them Device Manager khi nhan chuot phai o My Computer
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{20D04FE0-
3AEA-1069-A2D8-
08002B30309D}\shell\DevMgr]
@="Device Manager"
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{20D04FE0-
3AEA-1069-A2D8-
08002B30309D}\shell\DevMgr\command]
@="mmc.exe
%%SYSTEMDRIVE%%\\WINDOWS\\SYSTEM32\\devmgmt.msc"
;Them LogOff khi nhan chuot phai o My Computer
[HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-
08002B30309D}\shell\[LogOff]\command]
@="shutdown -l -f -t 5"
;Them Reset khi nhan chuot phai o My Computer
[HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-
08002B30309D}\shell\[Reboot]\command]
@="shutdown -r -f -t 5"
;Them Shutdown khi nhan chuot phai o My Computer
[HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-
08002B30309D}\shell\[Shutdown]\command]
@="shutdown -s -f -t 5"
Bây giờ bạn lưu lại với tên là addonmycomputer.reg
Tiến hành chạy tập tin này , thật tuyệt khi có các công cụ hổ trợ được thêm vào
khi bạn nhấn
phím phải chuột và chọn My Computer .
30. Trình diển tất cả các loại Font thông qua Microsoft Word
Đọan mã sau sẽ sử dụng Microsoft Word để hiển thị các font chữ được cài đặt
trên máy tính của
bạn . Nó sẽ hiển thị tên của font chữ , câu chữ hoa và câu chữ thường , các số từ

msgbox "Ket Thuc"
Lưu tập tin này lại và đặt tên là viewallfont.vbs

31. Trình diển Power Point và xuất ra JPEG
Bạn đang làm bài thuyết trình bằng công cụ Power Point , sau đó bạn muốn xuất
“sản phẩm” của
mình ra định dạng .jpeg . Thủ thuật sau sẽ giúp bạn thực hiện điều này dể dàng .
Bạn mở Notepad và chép đọan mã sau vào , lưu tập tin này và đặt tên cho nó là
powerexportjpeg.vbs .
MessageText = "Trinh dien PowerPoint va xuat ra dinh dang JPEG"
TitleText = "Vi du ve PowerPoint"
Call Welcome()
Dim oPPT
Dim oPPTDoc
Dim sPath
Dim sOutput
sPath= InputBox("Nhap duong dan cho PowerPoint :",TitleText )
sOutput= InputBox("Nhap duong dan ban can xuat ra dinh dang
JPEG:",TitleText )
Set oPPT = WScript.CreateObject("PowerPoint.Application")
oPPT.Visible = TRUE
Set oPPTDoc=oPPT.Presentations.Open(sPath,,,False)
oPPTDoc.Export sOutput,"JPG"
oPPTDoc.Close
Set oPPTDoc = Nothing
oPPT.Quit
set oPPT = Nothing
MsgBox "Qua trinh xuat ra hoan tat",vbInformation+vbOkOnly,TitleText
Sub Welcome()
Dim iPrompt

OK .
Tiếp theo bạn tạo một Shortcut cho Disk Cleanup , bằng cách bạn nhấn chuột
phải ở màn hình
desktop chọn New-Shortcut .
Trong cửa sổ Create Shortcut ở mục Type the location of the item bạn gỏ
cleanmgr
/sagerun:100 nhấn Next .
Trong cửa sổ Select a Title for the Program ở mục Type a name for this
shortcut bạn gỏ
CleanupTask nhấn Finish để hòan tất .
Vào Start – All Programs chọn Accessories - System Tools chọn Scheduled
Tasks .
Trong màn hình Scheduled Tasks bạn chọn tiếp Add Scheduled Task và nhấn
Next .
Nhấn nút Browse , tìm vị trí tập tin shortcut Cleanup Task mà bạn đặt cho
DiskCleanup .
Trong cửa sổ Scheduled Task Wizard . Chọn Weekly (Bạn có thể chọn thời
gian tùy thích mà
bạn muốn sử dụng chức năng này)