1001 thủ thuật máy tính - phần 5

Tham khảo tài liệu '1001 thủ thuật máy tính - phần 5', công nghệ thông tin, tin học văn phòng phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả
Nội dung trích xuất từ tài liệu:
1001 thủ thuật máy tính - phần 5 29. 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 đọan mã này vào trong Notepad . Đọan 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] Welcome To VNECHIP http://www.vnechip.com - Where People Go To Know VNECHIP – Advanced Technologies , 24/7 Support , Free Fastest Online @='control appwiz.cpl' ;Them Drive Cleanup khi nhan chuot phai o My Computer [HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8- 08002B30309D}\shell\Drive Cleanup\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,6f,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,63,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\System Restore\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 . 30. Trình diển tất cả các loại Font thông qua Microsoft Word Đọan 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 đọan 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 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 31. 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 đọan 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.Expor ...