Thủ thuật Windows ( phần 22) 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\Wi ndows\System 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 temp2 = "[" & issue & "] " & total & " " & nowHour & ":" & mns & nowMinute & ":" & scs & nowSecond & insStr stardate = WshShell.Popup( temp2, 1, "StarDate", 0) End Function Lưu tập tin này lại và đặt tên là counttime.vbs 671. Chat trong mạng nội bộ Windows 2000/XP Trong Windows 2000/XP có 1 chương trình nhỏ gọn dùng để chat trong mạng nội bộ nhưng nếu không nói ra thì… ít ai biết vì chẳng hiểu sao Microsoft lại không tạo biểu tượng mặc định cho chương trình này trong nhóm Communication. Để muốn sử dụng chương trình này bạn làm theo các bước dưới đây. Tạo biểu tượng cho chương trình bằng cách chạy Explorer , mở thư mục Windows/System32 tìm file Winchat.exe , bấm và giử phím phải chuột trên file rồi kéo ra màn hình Desktop , nhả phím chuột rồi chọn lịnh Create Shortcut Here. Nếu muốn chương trình chạy thường trú mỗi khi khởi động Windows bạn bấm phím phải chuột lên nút Start rồi chọn lịnh Explorer All Users trong menu rút gọn. Mở Start Menu/Programs/Startup . Bấm phím phải chuột trong cửa sổ liệt kê nội dung nhóm Startup, chọn lịnh New/Shortcut . Bấm nút Browse và chỉ đến file Winchat.exe Các máy đang chạy Winchat trong cùng 1 mạng nội bộ có thể chát với nhau, nếu muốn chat với máy nào bạn bấm chuột nút Dial trong thanh công cụ hay dùnh lịnh Dial trong menu Conversation. Biểu tượng chat trong máy được gọi sẽ chớp sáng và phát âm thanh, nếu người được gọi chấp nhận trả lời sẽ bấm nút Answers rồi hai bên trao đổi thông điệp với nhau. Nửa cửa sổ bên trên là thông điệp gởi, nửa cửa sổ bên dưới là thông điệp nhận. Bạn có thể mở nhiều cửa sổ chat để chat cùng lúc với nhiều người, khi không muốn chat với ai bạn bấm nút Hangs up trong cửa sổ tương ứng để ngắt. Chú ý: Nếu bạn đóng chương trình, không ai có thể chat với bạn. Bạn mở menu Options để xác lập font chữ tiếng Việt, màu nền cho cửa sổ, cách xếp đặt cửa sổ (trên dưới hay song song). 673. Ngưng kết nối với tất cả các ổ đĩa mạng Mở Notepad và chép đọan mã dưới đây vào L_Welcome_MsgBox_Title_Text = "Network Drive Zapper" Dim WSHNetwork Dim colDrives, SharePoint Dim CRLF CRLF = Chr(13) & Chr(10) Set WSHNetwork = WScript.CreateObject("WScript.Network") Function Ask(strAction) Dim intButton intButton = MsgBox(strAction, _ vbQuestion + vbYesNo, _ L_Welcome_MsgBox_Title_Text ) Ask = intButton = vbYes End Function If Ask("Do you wish to disconnect all network drives?") Then 'Enumerate network drives into a collection object of type WshCollection Set colDrives = WSHNetwork.EnumNetworkDrives If colDrives.Count = 0 Then MsgBox "There are no network drives to disconnect.", _ vbInformation + vbOkOnly, _ L_Welcome_MsgBox_Title_Text Else For i = 0 To colDrives.Count - 1 Step 2 WshNetwork.RemoveNetworkDrive colDrives(i) Next MsgBox "All network drives disconnected", _ vbInformation + vbOkOnly, _ L_Welcome_MsgBox_Title_Text End If End If Lưu lại và đặt tên cho tập tin này là disconnectmap.vbs 674. Hiển thị tài khỏan Administrator ở màn hình Logon Screen Bạn mở Registry Editor và tìm đến khóa sau : HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList Ở phần bên phải bạn tạo khóa Administrator (DWORD Value) và thiết lập cho nó là 1 . Logoff và Logon bạn sẽ thấy tài khỏan Administrator hiện ra ở màn hình Welcome Screen 675. Một số công cụ ẩn trong Windows Private Character Editor (PCE) - Công dụng: Dùng tạo font chữ hay các ký tự đặc biệt sử dụng trong các ứng dụng của Windows. - Cách mở: Nhấn vào menu Start chọn Run gõ vào từ Eudcedit Màn hình “thiết kế” ký tự của PCE là một hình vuông gồm có 64x64 ô nhỏ (pixel). Bạn toàn quyền sáng tạo ký tự hay hình vẽ bất kỳ trong ô này (chỉ hai màu trắng và đen). Sau đó bạn lưu lại kết quả bằng cách chọn menu Edit/ Save Character. Mặc định ký tự này sẽ đuợc lưu trong file Eudc.tte và đuợc nối kết với tất cả các font hệ thống. - Mẹo: Bạn có thể tạo ra các ký tự hình bằng cách tạo hình vẽ bitmap với hai màu trắng đen bằng Photoshop và sau đó nhập (import) vào EUDC cho nó thật đơn giản và nhanh chóng. System Configuration Utility (SCU) - Công dụng: Cấu hình cho hệ thống Windows, các chế độ khởi động và các chương trình tự chạy khi khởi động. - Cách mở: Vào Menu Start/Run, gõ lệnh Msconfig Cửa sổ SCU sẽ hiện lên với sáu thẻ (tab), trong đó: thẻ General cho phép bạn chỉ định chế độ khởi động như Normal (nạp tất cả cấu hình đã có của bạn), Diagnostic (chỉ nạp một số cấu hình, driver cần thiết để tìm lỗi) hay Custom (Chỉ nạp những gì bạn lựa chọn). Ngay tại đây bạn có thể sao lưu hệ thống của mình phòng khi Windows bị trục trặc hay phục hồi các file hệ thống của Windows từ bộ cài đặt gốc. Thẻ Start Up cho bạn chọn lựa các chuơng trình mà mình muốn tự động chạy khi đăng nhập vào Windows. System File Checker (SFC) - Công dụng: Kiểm tra sự hư hỏng của các file hệ thống trong Windows. - Cách mở: Vào Menu Start/ Run, gõ lệnh sfc. Trong cửa sổ SFC, bạn có hai lựa chọn: * Scan for altered file: SFC sẽ tìm kiếm lỗi trên toàn bộ file hệ thống của Windows. Nếu phát hiện lỗi nó sẽ thông báo để bạn biết và quyết định phục hồi hay không. * Extract one file from installation disk: bạn sẽ tự chỉ định file cần được phục hồi. Lưu ý: Để phục hồi file, bạn cần có đĩa CD chứa bộ cài đặt gốc của Windows. Dr Watson - Công dụng: Công cụ chẩn đoán hư hỏng hệ thống - Cách mở: Vào Menu Start/ Run, gõ Drwatson Bác sĩ Watson sẽ tự động quét (scan) Windows của bạn xem có gì hư hỏng hay không. Nếu không có, bác sĩ sẽ báo là Dr. Watson found nothing obviously unusual (không có gì khác thường xảy ra cả) Ngoài ra, bạn có thể luu các file báo cáo để xem lại bằng cách nhấp vào menu File, chọn Save hay Save As. Để xem chi tiết về các file hệ thống, các trình điều khiển, cấu hình bạn có thể vào menu View, chọn Advanced View. 676. Không cho phép mở Task Manager Bạn mở Registry Editor bạn tìm đến khóa sau : HKEY_CURRENT_USER\Software\Microsoft\Windows\Current Version\Policies\System Ở vùng phần bên phải bạn tạo một khóa mang tên là DisableTaskMgr (DWORD Value) và thiết lập nó thành 1 . Khởi động lại máy tính . 677. Không cho hiển thị màn hình đen khi kết thúc trình diễn Power Point Trong Power Point , khi trình diễn các slide dù để chế độ điều khiển bằng tay hay tự động thì khi kết thúc trình diễn , màn hình thường xuất một slide màu đen trông rất xấu . Nếu bạn muốn khi kết thúc trình diễn , chương trình tự động trở về Power Point mà không hiển thị slide màu đen này , bạn làm như sau : vào menu Tools - Options chọn thẻ View chọn mục End with black slide nhấn OK . 678. Phục hồi với Registry Nếu bạn khởi động Windows ở chế độ Safe Mode nhưng không giải quyết được các vấn đề gây ra sự cố ở Windows. Bạn cũng truy cập vào trình đơn Advanced Option như mục 28, nhưng chọn Last Known Good Configuration và nhấn Enter. Việc khởi động Windows như thế này sẽ sử dụng phiên bản sau cùng của Registry, đây là phiên bản Windows khởi động thành công. Sẽ không có tập tin nào bị Remove. . đ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 20 03 Nếu bạn cài đặt Windows. 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_MACHINESOFTWAREPoliciesMicrosoftWi ndowsSystem. WshShell.Popup( temp2, 1, "StarDate", 0) End Function Lưu tập tin này lại và đặt tên là counttime.vbs 671. Chat trong mạng nội bộ Windows 20 00/XP Trong Windows 20 00/XP có 1 chương