Xem mẫu
- 223. Xem dung lượng của một Partition
Bạn thường sử dụng Windows Explorer để xem dung lượng partition còn
trống hoặc xem
partition đó có bao nhiêu thư mục thì đây thủ thuật sau sẽ giúp bạn xem
dung lượng của partition
còn trống , các thư mục chứa trong partition đó , ... Ở đây tôi sử dụng
VBscript để làm điều này
khi đó nó sẽ xuất dữ liệu ở ngõ ra của partition đó .
Bạn mở Notepad lên và chép đọan mã sau vào :
Option Explicit
MsgBox RunOutput( "COMMAND /C DIR H:\", 0 )
Function RunOutput( cProgram, nWindowType )
Dim oFS
Set oFS = CreateObject("Scripting.FileSystemObject")
Dim cFile
cFile = oFS.GetSpecialFolder(2).Path & "\" & oFS.GetTempName
Dim oShell
Set oShell = CreateObject( "WScript.Shell" )
oShell.Run cProgram & " >" & cFile, nWindowType, True
Set oShell = Nothing
Dim oFile
Set oFile = oFS.OpenTextFile(cFile, 1, True)
RunOutput = oFile.ReadAll()
oFile.Close
oFS.DeleteFile cFile
End Function
Lưu ý : H: là ổ đĩa mà bạn muốn xem . Lưu tập tin này lại với tên là
output.vbs
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 , tuy nhiên
ta sẽ có cách thứ
hai để đổi tên lệnh Run .
Bạn mở Notepad chép đọan code này vào :
Option Explicit
Set ws = WScript.CreateObject("WScript.Shell")
Dim ws, t, p1, n, cn, MyBox, Title
Dim itemtype
p1 = "HKCR\CLSID\{2559a1f3-21d7-11d4-bdaf-00c04f60b9f0}\"
n = ws.RegRead(p1 & "LocalizedString")
t = "Change the Name of Run on Start Menu"
cn = InputBox("Type in the name to replace Run with.", t, n)
If cn "" Then
ws.RegWrite p1 & "LocalizedString", cn
End If
Title = "Run on the Start Menu has now been renamed."
MyBox = MsgBox(Title,64,"Finished")
- Lưu tập tin này với tên changerun.vbs
Sau đó bạn tiến hành chạy tập tin này và nhập vào tên cần thay đổi . Logoff
hoặc khởi động lại
máy tính
Lưu ý : Thủ thuật này không áp dụng cho Classical Start Menu
226. Hiển thị tất cả các phím tắt trong Microsoft Word 2000
Trong Microsoft Word 2000 có cung cấp cho bạn một macro chứa danh sách
các phím tắt , vậy
bạn có muốn hiển thị tất cả các phím tắt trong Microsoft Word 2000 hay
không , thủ thuật sau sẽ
giúp bạn hiển thị tất cả các phím tắt này rất dể dàng .
Mở Microsoft Word , nhấn Ctrl_N để mở một tài liệu mới tiếp theo bạn vào
Tools chọn Macro và
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
CD Boot tiện ích . Bài viết sau sẽ giúp bạn tạo một tập tin ISO ở bất cứ nơi
đâu để tạo cho mình
một CD Boot đa năng bằng cách tích hợp nó vào vào menu ngữ cảnh .
Để làm điều này đầu tiên tìm 3 tập tin cdimade.inf , cdimage.exe ,
xpboot.img (3 tập tin này tôi
gởi kèm theo Ebook này) . Tạo một thư mục mang tên là Boot ở bất cứ nơi
đâu mà bạn muốn
(chẳng hạn H:\Boot) và chép 3 tập tin này vào thư mục Boot này .
Mở Notepad lên và chép đọan mã sau vào :
@echo off
SET DIRE=%1
TITLE Creating Bootable 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% -h -j1 -m -o -
b%SystemRoot%\system32\img\xpBoot.img %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à bootiso.cmd
Tiếp theo bạn mở Notepad lên và chép đọan mã sau vào :
@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
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 http://www.vnechip.com" & vbCRLF & vbCRLF
&"Ban co
- muon ghe tham chung toi ngay bay gio?", vbQuestion + vbYesNo +
vbDefaultButton, "VNECHIPWhere
People Go To Know") =6 Then
ws.Run "http://www.vnechip.com"
End If
End Sub
Lưu tập tin này lại với tên là visit.vbs
nguon tai.lieu . vn
