Registry chính là bộ não của Windows. Nếu bộ não này bị lỗi thì Windows
ngay lập tức sẽ có phản ứng: khởi động rất chậm, không thể tắt máy theo đúng quy
cách, thậm chí không thể khởi động vào Windows và là màn hình xanh “chết
chóc”, Vì vậy nếu dùng chung máy với người khác thì tốt hơn hết là bạn nên
khóa Registrylại, tránh sự tò mò của các “vọc sĩ” muốn thử sức mình. Có rất
nhiều cách để làm được việc này nhưng tốt nhất và đơn giảnnhất là bạn nên áp
dụng thủ thuật sau:
Vào Notepad soạn nội dung sau rồi lưu lại dưới định dạng là .vbs.( VD:
Lock & UnLock Registry.vbs )
5 trang |
Chia sẻ: lylyngoc | Lượt xem: 1661 | Lượt tải: 1
Bạn đang xem nội dung tài liệu Chương 1 :Thủ thuật Windows XP ( phần 4 ), để tải tài liệu về máy bạn click vào nút DOWNLOAD ở trên
Chương 1 :Thủ thuật Windows XP ( phần 4 )
014. Khóa và mở khóa Registry.
Registry chính là bộ não của Windows. Nếu bộ não này bị lỗi thì Windows
ngay lập tức sẽ có phản ứng: khởi động rất chậm, không thể tắt máy theo đúng quy
cách, thậm chí không thể khởi động vào Windows và là màn hình xanh “chết
chóc”,… Vì vậy nếu dùng chung máy với người khác thì tốt hơn hết là bạn nên
khóa Registry lại, tránh sự tò mò của các “vọc sĩ” muốn thử sức mình. Có rất
nhiều cách để làm được việc này nhưng tốt nhất và đơn giản nhất là bạn nên áp
dụng thủ thuật sau:
Vào Notepad soạn nội dung sau rồi lưu lại dưới định dạng là .vbs.( VD:
Lock & UnLock Registry.vbs )
Option Explicit
Dim WSHShell, n, MyBox, p, t, mustboot, errnum, vers
Dim enab, disab, jobfunc, itemtype
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\"
p = p & "DisableRegistryTools"
itemtype = "REG_DWORD"
mustboot = "Thay Doi Co Hieu Luc Ngay Sau Khi Duoc Kich Hoat." & vbCR
& "Email : LuongHuuViet@hotmail.com."
enab = "Mo Registry."
disab = "Khoa Registry."
jobfunc = "Da Tien Hanh "
t = "¤*•,,•*¤*•_Thong Bao_•*¤*•,,•*¤"
Err.Clear
On Error Resume Next
n = WSHShell.RegRead (p)
On Error Goto 0
errnum = Err.Number
if errnum 0 then
WSHShell.RegWrite p, 0, itemtype
End If
If n = 0 Then
n = 1
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & disab & vbCR & mustboot, 4096, t)
ElseIf n = 1 then
n = 0
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & enab & vbCR & mustboot, 4096, t)
End If
Sau đó tiến hành thực thi file vừa tạo.
Ngoài ra ta cũng có thể sử dụng đoạn mã sau nhưng khi lưu thành file .vbs
thì chọn File Save as… và chọn Unicode tại trường Encoding để hiển thị đúng
phông Unicode.
Option Explicit
Dim WSHShell, n, MyBox, p, t, mustboot, errnum, vers
Dim enab, disab, jobfunc, itemtype
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\"
p = p & "DisableRegistryTools"
itemtype = "REG_DWORD"
mustboot = "Thay đổi có hiệu lực ngay sau khi được kích hoạt." & vbCR &
vbCR & "Email : LuongHuuViet@hotmail.com." & vbCR
enab = " Mở Registry." & vbCR
disab = " Khóa Registry." & vbCR
jobfunc = "Đã tiến hành"
t = "*•,¸.¸,•*¤*•_Thông Báo_•*¤*•,¸., •*"
Err.Clear
On Error Resume Next
n = WSHShell.RegRead (p)
On Error Goto 0
errnum = Err.Number
if errnum 0 then
WSHShell.RegWrite p, 0, itemtype
End If
If n = 0 Then
n = 1
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & disab & vbCR & mustboot, 4096, t)
ElseIf n = 1 then
n = 0
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & enab & vbCR & mustboot, 4096, t)
End If
015. Tạo file ghost chạy được trên các máy có cấu hình khác nhau.
Nguyên nhân khiến tập tin ghost Windows XP thường máy nào chạy máy
ấy là khi cài Windows XP trên máy bất kỳ, nó đều tự động thiết lập thông số các
tập tin cấu hình đúng theo đặc trưng phần cứng của máy đó. Khi mang sang máy
khác, có đặc trưng phần cứng khác, nó không thể chạy được vì không thể quản lý
được phần cứng mới và cũng không có khả năng tự động thiết lập lại cấu hình phần
cứng như Windows 9x.
Tuy nhiên sau đây mình sẽ hướng dẫn cách tạo tập tin ghost chạy được trên
nhiều máy có cấu hình khác nhau.
Chuẩn bị:
Một máy đã cài đặt đầy đủ hệ điều hành và các chương trình cần thiết.
Một đĩa Hiren's BootCD có hỗ trợ Boot.
Lưu ý: Hệ điều hành dùng để tạo file Ghost KHÔNG được cài đặt bất kì driver
nào. Nếu đã trót cài thì PHẢI xóa bỏ tất cả các driver đó.
1. Nhấp chuột phải vào My Computer chọn Properties (hoặc ấn tổ hợp phím
Windows + Break) để mở System Properties.
2. Chọn thẻ Hardware Device Manager.
3. Tại cửa sổ Device Manager nhấn vào dấu “+” trước nhánh Computer.
4. Nhấp phải chuột vào nhánh Advanced….chọn Update Drive
5. Tại các cửa sổ hiện ra tiếp theo lần lượt chọn No, not this time
Install from a list or specific location (Advanced) Don’t
search. I will choose the driver to install.
6. Tại cửa sổ Hardware Update Wizard chọn Standard PC. Chọn
Next để chương trinh bắt đầu hoạt động.
Sau khi chương trình đã hoàn tất, chọn Finish để kết thúc. Chọn Yes để
khởi động lại máy tính. Bây giờ bạn có thể đưa đĩa Hiren's BootCD vào ổ
đĩa, chọn ưu tiên khởi động từ ổ CD, CDRW, DVD hoặc DVD-RW để
tiến hành ghost. Khi ghost nên chọn chế độ Ghost-Z9… để file ghost có
dung lượng nhỏ nhất. Đánh file ghost ra đĩa hoặc copy vào ổ USB để cài
đặt lên các máy khác.
Cách cài đặt file ghost :
Tiến hành bung file ghost như bình thường. Tuy nhiên sau khi đã tiến
hành bung file ghost xong vào Windows chờ cho hệ điều hành nhận hết
các thiết bị cứng rồi thao tác như các bước 15 ở trên, đến bước thứ 6
thay vì chọn Standard PC thì chọn Advanced…(ACPI)PC. Khởi động
lại máy tính rồi cài đặt các Driver tương ứng cho máy mới.