Thêm Google trên menu Tools và Toolbar trong Internet Explorer được không?

Hoàng Đăng Vịnh check gia
Hoàng Đăng Vịnh check gia
Trả lời 16 năm trước
Hoàn toàn được. Để thêm Google vào trong menu Tools , thanh ToolBar trong trình duyệt Internet Explorer , bạn làm như sau : Trước tiên , bạn tạo một tập tin đặt tên là googlefavicon.ico (kích thước 16x16) . Tiếp theo bạn mở trình sọan thảo văn bản chẳng hạn như Notepad . Chép và dán đọan code này vào . Option Explicit Dim Title, Response Title = "Add Google to the Toolbar" Dim fso, ws, TgtIcon, RegKey Set ws = CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") TgtIcon = fso.GetSpecialFolder(0) & "\Web\googlefavicon.ico" RegKey = "HKLM\SOFTWARE\Microsoft\Internet Explorer\Extensions\{aad080d5-9287-40edbdec- 2cbed012baaa}\Icon" RegKey = "HKLM\SOFTWARE\Microsoft\Internet Explorer\Extensions\{aad080d5-9287-40edbdec- 2cbed012baaa}\HotIcon" On Error Resume Next ws.RegWrite TgtIcon fso.CopyFile "googlefavicon.ico", TgtIcon, True Dim WSHShell, p Dim GUID Set WSHShell = WScript.CreateObject("WScript.Shell") GUID = "{aad080d5-9287-40ed-bdec-2cbed012baaa}" p = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\" WshShell.RegWrite P & GUID & "\ButtonText","XP-Google" WshShell.RegWrite P & GUID & "\clsid","{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}" WshShell.RegWrite P & GUID & "\Default Visible","YES" WshShell.RegWrite P & GUID & "\Exec", "http://www.google.com" WshShell.RegWrite P & GUID & "\HotIcon",TgtIcon WshShell.RegWrite P & GUID & "\Icon", TgtIcon Welcome To VNPRICE http://www.vatgia.com - Where People Go To Know VNECHIP – Advanced Technologies , 24/7 Support , Free Fastest Online WshShell.RegWrite P & GUID & "\MenuText","Google" Set WshShell = Nothing MsgBox "Google has been added to Internet" & vbCR & " Explorer's Tools Menu and Toolbar",4096,"Finished!" Lưu tập tin này với tên là google.vbs , tiến hành chạy tập tin này .