Tài liệu 1001 thủ thuật máy tính P63 pdf

663. Tránh Import không mong muốn vào Registry
Mổi khi ta Export registry file thì chương trình sẽ tự động tạo ra một tập tin
có phần mở rộng là
REG để khi có sự cố thì bạn có thể nhấn đúp vào nó để Import trở lại nhưng
khi không có sự cố
gì xãy ra đối với máy tính của bạn mà bạn lại vô tình nhấn đúp nó thì coi
như bao nhiêu công lao
chính sửa trong Registry của bạn trở thành mây khói .
Điều này có thể được khắc phục nếu bạn th
ực hiện theo cách sau : Từ cửa sổ
Windows Explorer
bạn vào menu Tools - Folder Options nhấp lên nhãn File Types , trong phần
Registered file types
bạn tìm đến Registration Entries và nhấn đúp vào nó .
Cửa sổ Edit file type hiện ra , trong hộp Actions bạn nhấp chọn chữ Edit sau
đó nhấp vào phần
Set Default .
Lần sau khi bạn nhấp đúp lên tập tin có phần mở rộng là RED thì Notepad sẽ
mở ra chứ không
Import vào Registry . Bạn vẩn có thể Import bằng cách nhấp phải lên tập tin
đó và chọn Merge .


664. Lổi 630 khi kế
t nối Internet (Windows 98/Me)
Error 630: The computer is not receiving a response from the modem. Check
that the modem is
plugged in, and if necessary, turn the modem off, and then turn it back on.
Communication port is invalid or busy.
Error 630:
The modem is not responding correctly. Please verify that the modem is

plugged in to the
computer and to the telephone line. If the problem persists, please select
'Help' button to start the
Windows Modem Troubleshooter.
Khi bạn gặp lổi như trên , rất có thể chức năng Support SerialKey devices
cấu hình không đúng .
Vào Start - Control Panel chọn Accessibility Options . Trên thanh General
bạn xóa mục Support
SerialKey devices . Chọn Settings và thiết lập một cổng COM khác trong
mục Serial Port và chọn
OK .


665. REMOVEIT caused an invalid page fault in module
MSONSEXT.DLL at 0167:79eabb14.(Windows 98)
Vào Start - Settings chọn Control Panel và khi đó nhấn Add/Remove
Programs . Trên thanh
Windows Setup và xóa mục Online Services . Nhấn OK .


666. Lổi khi mở tài liệu Excel
Khi bạn mở một tài liệu trong Excel , thông báo lổi như sau sẽ xuất hiện :
Cannot find the file filename.XLS (or one of its components).
Make sure the path and file name are correct and that all required libraries
are available.
Đóng tất cả các chương trình đang chạy trên máy tính của bạn .
Vào Start - Run gõ Excel /unregserver nhấn OK
Gõ tiếp Excel /regserver và nhấn OK

667. Cho phép chứ
c năng Sound trong Windows Server 2003
Nếu bạn cài đặt Windows Server 2003 trên phiên bản Windows Server 2003
Enterprise Edition
bạn sẽ không nghe được bất kì âm thanh nào mặc dù bạn đã kiểm tra tất cả
các trình điều khiển
(driver) chúng vẩn làm việc bình thường . Nguyên nhân do phiên bản
Windows Server Enterprise
Edition tắt dịch vụ Windows Audio .
Để kích họat nó bạn vào Start - Run gõ services.msc và tìm dịch vụ mang
tên là Windows Audio
và chọn Automatic chứ không phải là Disabled .
Vào Start - Control Panel chọn Sounds and Audio Devices và chọn mục
Enable Windows Audio
nhấn OK . Khởi động máy tính .


668. Không cho phép chạy Group Policy
Để không cho phép chạy Group Policy bạn tìm khóa sau :
HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\Sy
stem
Bạn tạo một giá trị mang tên là DisableGPO (DWORD Value)
Thiết lập giá trị này là 1 . Khởi động lại máy tính .


669. Lổi khi mở About trong Internet Explorer
Khi bạn mở chức năng About trong Internet Explorer một thông báo giống
như dưới đây sẽ xuất
hiện .
An error has occured in this dialog.

Error: 96
Unspecified error.
Vào Start - Run gõ regsvr32 mshtmled.dll nhấn Enter .
Gõ Regsvr32 jscript.dll nhấn Enter . Gõ Regsvr32 /i mshtml.dll nhấn Enter .
Cài Internet Explorer nếu không báo lổi trên vẩn còn xu
ất hiện .


670. Đếm từng giây bằng VBscript
Bạn có muốn đếm từng giây ngay trên màn hình Desktop hay không . Để
thực hiện điều mà bạn
muốn .
Bạn mở Notepad và chép đoạn mã dưới đây vào :
Option Explicit
On Error Resume Next
Dim timerID, now, nowMonth, nowDate, nowYear, nowHour, nowMinute,
nowSecond, Elapsed,
WshShell, CRLF
Dim thisYear, lpyra, lpyrb, issue, yearsPast, total, mns, scs, temp2, doLoop,
btnCode, insStr
timerID = 0
CRLF = Chr(13) & Chr(10)
doLoop = TRUE
Set WshShell = CreateObject( "WScript.Shell" )
insStr = CRLF & CRLF & "Press OK to Stop"
' Main
While doLoop = TRUE
If stardate() = 1 Then ' drop out of loop if OK clicked
doLoop = FALSE
End If

WEnd
Function stardate()
now = Date()
nowMonth = Month(now) - 1 'subtract cos so Jan=0 not 1 to be consistent
with getMonth Vb
function
nowDate = Day(now)
nowYear = Year(now) + 1900
now = Time()
nowHour = Hour(now)
nowMinute = Minute(now)
nowSecond = Second(now)
now = 0
Elapsed = nowSecond + 60 * (nowMinute) + 3600 * (nowHour) +86400 *
(nowDate - 1)
If (nowMonth>10) Then
Elapsed = Elapsed + (86400*334)
Else If (nowMonth>9) Then
Elapsed = Elapsed + (86400*304)
Else If (nowMonth>8) Then
Elapsed = Elapsed + (86400*273)
Else If (nowMonth>7) Then
Elapsed = Elapsed + (86400*243)
Else If (nowMonth>6) Then
Elapsed = Elapsed + (86400*212)
Else If (nowMonth>5) Then
Elapsed = Elapsed + (86400*181)
Else If (nowMonth>4) Then
Elapsed = Elapsed + (86400*151)
Else If (nowMonth>3) Then

Elapsed = Elapsed + (86400*120)
Else If (nowMonth>2) Then
Elapsed = Elapsed + (86400*90)
Else If (nowMonth>1) Then
Elapsed = Elapsed + (86400*59)
Else If (nowMonth>0) Then
Elapsed = Elapsed + (86400*31)
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
If (nowYear>2100) Then
nowYear = nowYear-1900
End If
thisYear = Round( Elapsed / 315.36) / 100
lpyra= Round(nowYear/400)
lpyrb= nowYear/400
If (lpyra=lpyrb) Then
If (nowMonth>2) Then
Elapsed = Elapsed + (86400)
End If
End If
issue = Round(((nowYear-2323)/100)-.5)

yearsPast = (nowYear - (2323+(issue * 100))) * 1000
total = thisYear+yearsPast
If (nowMinute<10) Then
mns="0"
Else mns=""
End If
If (nowSecond<10) Then
scs="0"
Else scs=""
End If