d.content.insertafter "Hien thi Font chu" & vbcrlf d.content.insertafter "Rat de dang ma khong can su dung phan mem ho tro" & vbcrlf d.content.insertafter "0913722650 0919324832 0913696000 0913650651" & vbcrlf next dim rngParagraphs for i = 1 To iFonts * 4 if (i + 3) mod 4 = 0 then set rngParagraphs = d.range(d.paragraphs(i + 1).range.start, d.paragraphs(i + 3).range.end) rngParagraphs.select w.selection.font.name = w.fontnames((i - 1) \ 4 + 1) end if next msgbox "Ket Thuc" Lưu tập tin này lại và đặt tên là viewallfont.vbs Trình diển Power Point và xuất ra JPEG Bạn đang làm bài thuyết trình bằng công cụ Power Point , sau đó bạn muốn xuất "sản phẩm" của mình ra định dạng .jpeg . Thủ thuật sau sẽ giúp bạn thực hiện điều này dể dàng . Bạn mở Notepad và chép đoạn mã sau vào , lưu tập tin này và đặt tên cho nó là powerexportjpeg.vbs MessageText = "Trinh dien PowerPoint va xuat ra dinh dang JPEG" TitleText = "Vi du ve PowerPoint" Call Welcome() Dim oPPT Dim oPPTDoc Dim sPath Dim sOutput sPath= InputBox("Nhap duong dan cho PowerPoint :",TitleText ) sOutput= InputBox("Nhap duong dan ban can xuat ra dinh dang JPEG:",TitleText ) Set oPPT = WScript.CreateObject("PowerPoint.Application") oPPT.Visible = TRUE Set oPPTDoc=oPPT.Presentations.Open(sPath,,,False) oPPTDoc.Export sOutput,"JPG" oPPTDoc.Close Set oPPTDoc = Nothing oPPT.Quit set oPPT = Nothing MsgBox "Qua trinh xuat ra hoan tat",vbInformation+vbOKOnly,TitleText Sub Welcome() Dim iPrompt iPrompt = MsgBox(MessageText, _vbOKCancel + vbInformation, _TitleText ) If iPrompt = vbCancel Then WScript.Quit End If End Sub Sau đó bạn tiến hành chạy tập tin này , chọn OK . Khi đó sẽ có một bãng thông báo hiện ra : Bạn gõ vào vị trí lưu trử tập tin PowerPoint chẳng hạn như : C:\power.ppt Nhấn nút OK , một bãng thông báo hiện ra bạn nhập đường dẫn mà bạn cần xuất định dạng JPEG chẳng hạn như C:\vhf . Nhấn nút OK . Vậy là xong . Đến đây bạn vào C:\vhf để xem thành quả của mình . Tự động chạy Disk Cleanup bằng cách sử dụng Task Scheduler trong Windows XP Để thuận lợi cho công việc hàng ngày của bạn , bạn có thể sử dụng tiện ích Disk Cleanup có sẵn trên hệ điều hành Windows XP để xóa các tập tin tạm được lưu trử trên ổ cứng của bạn . Để thực hiện sao cho nhanh chóng và có tính chuyên nghiệp , bạn có thể kết hợp với tiện ích Task Scheduler để “tiêu diệt” các tập tin tạm trên máy tính của mình . Đầu tiên bạn vào Run gõ cleanmgr /sageset:100 và nhấn phím Enter . Hộp thoại Disk Cleanup sẽ xuất hiện . Chọn các biểu tượng mà bạn muốn xóa các tập tin tạm được lưu trử trên ổ cứng của bạn chẳng hạn như các biểu tượng Recycle Bin , Temporary Internet Files , Old Chkdsk files nhấn nút OK . Tiếp theo bạn tạo một Shortcut cho Disk Cleanup , bằng cách bạn nhấn chuột phải ở màn hình desktop chọn New-Shortcut . Trong cửa sổ Create Shortcut ở mục Type the location of the item bạn gõ cleanmgr /sagerun:100 nhấn Next . Trong cửa sổ Select a Title for the Program ở mục Type a name for this shortcut bạn gõ CleanupTask nhấn Finish để hòan tất . Vào Start – All Programs chọn Accessories - System Tools chọn Scheduled Tasks . Trong màn hình Scheduled Tasks bạn chọn tiếp Add Scheduled Task và nhấn Next . Nhấn nút Browse , tìm vị trí tập tin shortcut Cleanup Task mà bạn đặt cho DiskCleanup . Trong cửa sổ Scheduled Task Wizard . Chọn Weekly (Bạn có thể chọn thời gian tùy thích mà bạn muốn sử dụng chức năng này) Nhấn nút Next . Chọn thời gian bắt đầu mà bạn muốn sữ dụng chức năng DiskCleanup Nhập tên và mật khẩu của bạn vào . Nhấn Next (Lưu ý mặc định Scheduled Task sẽ không chạy với mật khẩu rổng) Nhấn Next chọn Finish để kết thúc . Xóa các khóa tìm kiếm trong Search for files and folders trên hệ điều hành Windows XP Khi bạn sử dụng chức năng Search for files and folders để tìm các tập tin và thư mục trong hệ điều hành Windows XP . Tuy nhiên các khóa tìm kiếm này vẩn còn được lưu trữ trong chức năng Search . Để xóa các khóa tìm kiếm được lưu trữ trước đó , bạn thực hiện bước sau : Vào Start – Run gõ regedit và nhấn nút OK . Trong cửa sổ Registry Editor , bạn tìm đến khóa sau : HKEY_CURRENT_USER\SOFTWARE\Microsoft\SearchAssistant\ACMru\5603 Trong phần bên phải , bạn xóa các biểu tượng tìm kiếm . Thoát khỏi Registry . Nếu bạn dùng chế độ tìm kiếm Windows Classic , bạn tìm khóa sau : HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Explorer Bars \{C4EE31F3-4768-11D2-BE5C-00A0C9A83DA1}\FilesNamedMRU Ở chế độ tìm kiếm này bạn làm tương tự như ở phần trên . Tăng tốc máy tính bằng chức năng Prefetch Khi bạn sử dụng hệ điều hành Windows XP , rất có thể bạn tắt chức năng Prefetch trong Registry Editor nhằm mục đích tăng tốc cho máy tính của mình . Tuy nhiên nếu bạn muốn tăng tốc hơn nữa máy tính của mình , bạn không nên tắt chức năng này bạn chỉ nên xóa nó .Thủ thuật sau sẽ giúp bạn tự động xóa các tập tin được lưu trữ trong thư mục Prefetch khi bạn shutdown máy tính . Bạn mở notepad lên và chép đoạn mã sau vào : Dim fso Set fso = Createobject("Scripting.FileSystemObject") Dim MyVar MyVar = MsgBox ("Xoa cac cache duoc luu tru trong Prefetch", 0, "Xoa Prefetch") fso.DeleteFile("F:\WINDOWS\Prefetch\*.*") F : là ổ đĩa cài đặt hệ điều hành Windows XP . Bạn đặt tên cho tập tin này là clearprefetch.vbs Tiếp theo bạn vào Start – Run gõ gpedit.msc và nhấn phím Enter . Chọn Computer Configuration chọn tiếp Windows Settings chọn Script (Startup/Shutdown) chọn Shutdown . Trong Shutdown Properties nhấn Add nhập đường dẫn của tập tin clearprefetch.vbs trong mục Script Name và nhấn phím OK . Như vậy từ đây về sau bạn có thể sử dụng chức năng Prefetch này được nhanh hơn mà không phải tắt chức năng này . Xóa danh sách Path Items ở vùng thông báo Bạn thường cài một số phần mềm trên máy tính của bạn mặc dù sau khi bạn sử dụng xong , có thể bạn sẽ xóa phần mềm này đi , tuy nhiên rất có thể nó vẩn còn tồn tại trong danh sách Past Items trong cửa sổ Customize Notifications . Thủ thuật sau sẽ giúp bạn xóa bỏ danh sách này mà không cần các phần mềm trợ giúp nào . Để xóa danh sách Past Items , bạn thực hiện các bước như sau : Vào Start – Run gõ regedit và nhấn phím Enter . Trong cửa sổ Registry Editor , bạn tìm khóa sau HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explore r\TrayNotify Ở cửa sổ phía bên phải màn hình , bạn tìm hai giá trị IconStreams và PastIconsStream . Chọn hai giá trị này này và nhấn chuột phải chọn Delete để xóa bỏ hai giá trị trên . Thoát khỏi Registry Editor . Nhấn tổ hợp phím Ctrl-Alt-Del để mở Task Manager , chọn thanh Processes , bạn tìm tập tin Explorer.exe và chọn tập tin này , chọn End Process . Trong Windows Task Manager , chọn File chọn New Task gõ explorer và nhấn nút OK . Nhấn chuột phải vào thanh TaskBar chọn Properties nhấn nút Customize để xem kết quả . Error Code: 0x80004005 khi cài đặt Windows XP Khi bạn nâng cấp hệ điều hành Windows 98/Me lên Windows XP hay cài đặt lại Windows XP , một thông báo như sau sẽ xuất hiện A problem is preventing Windows from accurately checking the license for this computer. Error Code: 0x80004005 Đặt đĩa CD Windows XP vào trong ổ đĩa CDROM và khởi động lại máy tính . Vào Bios của mình để chọn Boot từ CDROM . Khi đó bạn nhận được thông báo như sau : Press any key to boot from CD nhấn phím Enter . Chọn mục To repair a Windows XP installation using Recovery Console, press R. để bắt đầu với Recovery Console . Sau khi bạn nhập password của người quản trị hệ thống (Administrator) Bạn gõ như sau : cd %SystemRoot%\System32 và nhấn phím Enter . gõ Ren <tên tập tin.phần mở rộng> <tên tập tin.old> Sau đây là một số tập tin mà bạn cần đổi tên : Wpa.dll , Pidgen.dll , Actshell.html , Licdll.dll , Regwizc.dll , Licwmi.dll , Wpabaln.exe gõ D: và nhấn Enter (chẳng hạn D: là ổ đĩa CDROM của bạn) . gõ CD I386 nhấn phím Enter . expand licwmi.dl_ %systemroot%\system32 nhấn Enter . expand regwizc.dl_ %systemroot%\system32 nhấn Enter . . 0x80004005 khi cài đặt Windows XP Khi bạn nâng cấp hệ điều hành Windows 98/Me lên Windows XP hay cài đặt lại Windows XP , một thông báo như sau sẽ xuất hiện A problem is preventing Windows from accurately. files and folders trên hệ điều hành Windows XP Khi bạn sử dụng chức năng Search for files and folders để tìm các tập tin và thư mục trong hệ điều hành Windows XP . Tuy nhiên các khóa tìm kiếm. Registry . Nếu bạn dùng chế độ tìm kiếm Windows Classic , bạn tìm khóa sau : HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerExplorer Bars {C4EE31F3- 476 8-11D2-BE5C-00A0C9A83DA1}FilesNamedMRU