Windows Errors part 5 pot

Vào Start – Run gõ REGSVR32 /n /i:U SHELL32 nhấn phím Enter Mất chức năng Start Menu trong Taskbar Properties Khi bạn mở chức năng Task Bar and Star Menu Properties ở thanh Start Menu ,

Vào Start – Run gõ REGSVR32 /n /i:U SHELL32 nhấn phím Enter

Mất chức năng Start Menu trong Taskbar Properties

Khi bạn mở chức năng Task Bar and Star Menu Properties ở thanh Start Menu , bạn chỉ còn nhìn thấy chức năng Classic Start Menu

Còn chức năng Start Menu “biến đi đâu” rồi , thủ thuật sau sẽ giúp bạn khắc phục được tình trạng này Mở Registry Editor , bạn tìm đến khóa sau :

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies

\Explorer

Ở phần bên phải , bạn tìm giá trị NoSimpleStartMenu (DWORD Value) và thiết lập cho nó là 0

Logoff và đăng nhập lại

Cách thứ hai bạn có thể dùng chức năng Group Policy để thay đổi nó

Vào Start – Run gõ gpedit.msc và nhấn phím Enter Vào User Configuration chọn Administrative Templates

Chọn Start menu and Taskbar ở phần bên phải bạn tìm giá trị tên là Force classic Start Menu và thiết lập cho giá trị này là Not Configured

Đưa 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 đoạn 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

Tắt Cãnh Báo Security Center trong Windows XP SP2

Security Center (Trung Tâm Bảo Mật) trong Windows XP SP2 kiểm tra việc thiết lập bảo mật trên máy tính của bạn (kiểm tra và xác định trạng thái của phần mềm Antivirus được cài đặt) , nó sẽ gởi cãnh báo qua vùng cãnh báo và nó cho bạn biết tường lữa hay phần mềm Antirivus đó có phải hàng “xịn” hay không

Nếu như bạn chạy một phần mềm tường lửa và chương trình diệt virus mà Security

Center không nhận biết được , nó sẽ tiếp tục cãnh báo bạn mỗi khi bạn bắt đầu với máy tính của mình

Để tắt chức năng này , bạn thao tác các bước sau :

Mở Security Center bằng cách vào Start – Run gõ WSCUI.CPL hoặc bạn nhấn Start – Control

Panel và chọn Security Center Trong Security Center chọn Change the way

Security Center alerts me và xóa các mục kiểm mà bạn không muốn nhận cãnh báo , khi đó bạn nhấn OK Hoặc bạn có thể thực hiện chức năng này qua Registry Editor

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Security Center

Ở phần bên phải chọn AntiVirusDisableNotify (DWORD Value) và thiết lập cho

nó giá trị là 1

Ở phần bên phải chọn FirewallDisableNotify (DWORD Value) và thiết lập cho giá trị này là 1

Đóng Regedit và khởi động lại máy tính

Thay đổi thông tin đăng ký người dùng trong System Properties

Bạn mới mua máy tính củ về khi bạn mở System Properties bạn sẽ thấy thông tin đăng ký (Registered to) của một người dùng nào đó Thủ thuật sau sẽ giúp bạn điều chỉnh thông tin đăng ký này rất dể dàng Bạn mở Notepad của mình và chép đoạn mã sau vào :

Option Explicit

Set ws = WScript.CreateObject("WScript.Shell")

Dim ws, t, p1, p2, n, g, cn, cg

Dim itemtype

p1 = "HKLM\Software\Microsoft\Windows NT\CurrentVersion\"

n = ws.RegRead(p1 & "RegisteredOwner")

g = ws.RegRead(p1 & "RegisteredOrganization")

t = "Change Owner and Organization Utility"

cn = InputBox("Type new Owner and click OK", t, n)

If cn <> "" Then

ws.RegWrite p1 & "RegisteredOwner", cn

End If

cg = InputBox("Type new Organization and click OK.", t, g)

If cg <> "" Then

ws.RegWrite p1 & "RegisteredOrganization", cg

End If

Lưu lại và đặt tên là changeinfouser.vbs

Thêm một số công cụ khi nhấn chuột phải vào My Computer

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 đoạn mã này vào trong Notepad

đoạn 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]

@="control appwiz.cpl"

;Them Drive Cleanup khi nhan chuot phai o My Computer

[HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\DriveCleanup\command]

@="cleanmgr"

;Them Services khi nhan chuot phai o My Computer

[HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\Services]

@=hex(2):53,00,65,00,72,00,76,00,69,00,63,00,65,00,73,00,00,00

"SuppressionPolicy"=dword:4000003c

[HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\services\command]

@=hex(2):25,00,77,00,69,00,6e,00,64,00,69,00,72,00,25,00,5c,00,73,00,79,00,73,\ 00,74,00,65,00,6d,00,33,00,32,00,5c,00,6d,00,6d,00,63,00,2e,00,65,00,78,00,\ 65,00,20,00,2f,00,73,00,20,00,25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,\00,6 f,00,6f,00,74,00,25,00,5c,00,73,00,79,00,73,00,74,00,65,00,6d,00,33,00,\

32,00,5c,00,73,00,65,00,72,00,76,00,69,00,63,00,65,00,73,00,2e,00,6d,00,73,\00,6 3,00,20,00,2f,00,73,00,00,00

;Them System Restore khi nhan chuot phai o My Computer

[HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\SystemRestore\command]

@=hex(2):25,00,77,00,69,00,6e,00,64,00,69,00,72,00,25,00,5c,00,73,00,79,00,73,\ 00,74,00,65,00,6d,00,33,00,32,00,5c,00,72,00,65,00,73,00,74,00,6f,00,72,00,\ 65,00,5c,00,72,00,73,00,74,00,72,00,75,00,69,00,2e,00,65,00,78,00,65,00,00,\00

;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

Trình diển tất cả các loại Font thông qua Microsoft Word

Đoạn 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ừ 0 đến 9 nhờ đó mà người dùng có thể nhận biết các lọai font chữ trên máy tính của mình rất dể dàng mà không sử dụng bất cứ phần mềm xem font chữ

hổ trợ nào

Mở Notepad và chép đoạn mã sau vào :

dim w

set w = createobject("word.application")

w.visible = true

dim d

set d = w.documents.add

dim iFonts

iFonts = w.fontnames.count

dim i

for i = 1 To iFonts

d.content.insertafter w.fontnames(i) & vbcrlf