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

224. Xem giờ hệ thống bằng Windows Script Host
Bạn thường xem giờ bằng chức năng Day and Time trong Control
Panel hoặc ở thanh System
Tray . Tuy nhiên ta vẩn có cách xem giờ trên hệ thống bằng
Windows Script Host . Để làm điều
này , bạn mở notepad lên và chép đọan mã sau vào :
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer &
"\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from
Win32_UTCTime")
For Each objItem in colItems
Wscript.Echo "Day: " & objItem.Day
Wscript.Echo "Day Of Week: " & objItem.DayOfWeek
Wscript.Echo "Hour: " & objItem.Hour
Wscript.Echo "Milliseconds: " & objItem.Milliseconds
Wscript.Echo "Minute: " & objItem.Minute
Wscript.Echo "Month: " & objItem.Month
Wscript.Echo "Quarter: " & objItem.Quarter
Wscript.Echo "Second: " & objItem.Second
Wscript.Echo "Week In Month: " & objItem.WeekInMonth
Wscript.Echo "Year: " & objItem.Year
Wscript.Echo
Next
Lưu lại và đặt tên là disptime.vbs

225. Thêm một cách để đổi tên lệnh Run
Bạn từng biết sử dụng khóa Registry để đổi tên trong menu Start ,

chọn Macros
Trong danh sách Macros in bạn chọn Word Commands
Chọn List Commands trong danh sách Macro Name và nhấn nút
Run
Trong hộp thọai List Commands chọn Current menu and keyboard
settings hoặc All Word
commands và nhấn phím OK .
Khi đó Word sẽ tạo cho bạn một tài liệu mới và liệt kê danh sách
các phím tắt cho bạn .

227. Mở các khay đĩa ra bằng một cú nhấp chuột
Máy tính của bạn có rất nhiều ổ đĩa CDROM , ổ nào củng có cả
CDR/CDRW đều đủ cả không
thiếu mặt một “nhân tài” nào hết . Mổi lần muốn lấy các ổ đĩa này
ra muốn “mệt xĩu” . Bạn mở
Notepad lên và chép đọan mã sau vào :
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If
Lưu tập tin này lại , bạn đặt tên cho tập tin này là cd.vbs

228. Tích hợp chức năng tạo ISO vào menu ngữ cảnh
Ngày nay việc tạo một đĩa CD Boot với các phần mềm hổ trợ cho
bạn không có gì quá khó khăn
bạn có thể sử dụng phần mềm Nero Burning hay các phần mềm hổ
trợ để tạo cho mình một đĩa

@echo off
SET DIRE=%1
TITLE Creating Data ISO Image of %DIRE%
ECHO.
ECHO Removing any possible attributes set on %DIRE% and its
subfolders
ATTRIB -R -H %DIRE% /S /D
FOR /F %%G IN ("%DIRE%") DO SET DCT=%DIRE: =_%
FOR /F %%Q IN ("%DCT%") DO SET LABL=%%~nQ
ECHO.
ECHO Creating ISO
CDIMAGE.EXE -l%LABL% -yd -n -h -x -o -m -d %DIRE%
%DIRE%.iso
ECHO.
PAUSE
EXIT
Lưu tập tin này lại trong thư mục H:\Boot và đặt tên là
dataiso.cmd
Nhấn chuột phải vào tập tin cdimage.inf và chọn Install .

. 229. Thay đổi thanh tiêu đề trong Internet Explorer
Đầ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 = "Chuc mung ban da den voi www.vnechip.com"
Ws.RegWrite p, n, itemtype

Trong Windows XP, mỗi khi chạy Regedit để xem, hay chỉnh sửa
thông tin, bạn có thể phải mở
ra rất nhiều khóa (bằng cách nhấn vào dấu cộng ở đầu mỗi khóa),
và lần sau mở lại nó vẫn ở
trạng thái như thế, làm bạn phải mất công thu gọn lại (bằng cách
nhấn vào dấu trừ ở đầu mỗi
khóa). Đối với nhiều người, công việc này không có gì khó khăn
cả, nhưng nếu bạn cảm thấy nó
phiền toái thì sao không tìm cách “trị” nó. Để làm việc này, ta phải
“dùng độc để trị độc”. Một lần
nữa, hãy nhớ sao lưu Registry trước khi thay đổi nó.
Nếu sau khi thay đổi, không có tác dụng, có thể bạn phải truy nhập
với quyền Admin (bạn log off,
tại màn hình logoff, nhấn giữ hai phím Ctr, Alt và nhấn phím
Delete hai lần, nhập username và
password Administrator mà bạn đã tạo ra lúc cài đặt vào) để thực
hiện việc này.
Bạn vào Start, Run gõ regedit, tìm đến khóa sau:
HKEY_CURRENT_USER\Software\Microsoft
\Windows\CurrentVersion\Applets\Regedit
Trong cửa sổ bên phải, tìm giá trị là “LastKey”. Nhấn kép vào nó,
xóa hết dòng dữ liệu trong mục
Value data. Nhìn sang cửa sổ bên trái, click phải vào khóa Regedit,
chọn Permission đặt chế
độ Deny cho tất cả các User. Nhấn OK để đóng cửa sổ Permission.
Đóng cửa sổ Registry, và
mở nó ra lần nữa xem sao

232. Cài đặt font chữ mới
Sau khi cài đặt xong Win dows, bạn sẽ có các bộ font cơ bản của

dàng cài đặt các font mới.