10:16:00 AM
Lee John
Khắc phục lỗi mất shortcut trong Send to
Các bạn tạo Shortcut cho một hay nhiểu ứng dụng sau khi tạo xong, khi các bạn nhấn chuột phải vào một thư mục hay tập tin và chọn chức năng Send to, các Shortcut này sẽ không hiện thị ra theo như ý muốn. Nguyên nhân do đường dẫn của Sendto bạn chưa thiết lập đúng cách.Mắcdù bạn chép shortcut vào thư mụcDocuments and Settings\<Tên tài khoản đăng nhập>\Sendto tuy nhiên nó vấn không xuất hiện các Shortcut.
Đế khắc phục lỗi này các bạn mở Notepad và copy đoạn code dưới đây:
Set WshShell = CreateObject("WScript.Shell")
USFolderPath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell
Folders"
On Error resume next
WshShell.RegWrite "HKCR\exefile\shellex\DropHandler\", "{86C86720-42A0-1069-A2E8-
08002B30309D}", "REG_SZ"
WshShell.RegWrite "HKCR\lnkfile\shellex\DropHandler\", "{00021401-0000-0000-C000-
000000000046}", "REG_SZ"
WshShell.RegWrite USFolderPath & "\SendTo", "%USERPROFILE%\SendTo",
"REG_EXPAND_SZ"
Wshshell.RUN ("regsvr32.exe shell32.dll /i /s")
MsgUser = Msgbox ("Fixed the Send To menu. Restart Windows for the changes to take effect",
4160, "'Send To' menu fix for Windows XP")
Set WshShell = Nothing
Lưu tập tin này và đặt tên là fixsendto.vbs
Thêm link của một website đến Start Menu
Bạn muốn thêm một website mà bạn yêu thích đến Start Menu hay không ? nếu muốn mở các bạn làm theo tôi nhé.
Mở Notepad và chép đoạn mã sau vào:
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\CLSID\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}]
@="www.vnechip.com"
[HKEY_CLASSES_ROOT\CLSID\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}\DefaultIcon]
@="%SystemRoot%\\system32\\shell32.dll,-47"
[HKEY_CLASSES_ROOT\CLSID\{2559a1f6-21d7-11d4-bdaf-
00c04f60b9f0}\Instance\InitPropertyBag]
"CLSID"="{13709620-C279-11CE-A49E-444553540000}"
"method"="ShellExecute"
"Command"="VNECHIP – Where People Go To Know"
"Param1"="http://www.google.com"a
Lưu tập tin này và đặt tên addwebstartmenu.reg.
Thay đổi thanh tiêu đề của Internet Explorer
Đế thay đổi tiêu đề (Title) của trình duyệt webbrower Internet Explorer các bạn có thế dùng Registry Editor tuy nhiên nếu bạn mới lần đầu sử dụng thì sẽ rất khó khăn và mạo hiểm. Cách làm sau đây ta sẽ dùng một đoạn Script sử dụng công nghệ Windows Scripting host của Microsoft để giải quyết vấn đề.Đầu tiên các bạn mở Notepad và copy đoạn code sau vào:
Option Explicit
Set ws = WScript.CreateObject("WScript.Shell")
Dim ws, t, p, p1, n, cn, mybox, itemtype, vbdefaultbutton
p = "HKCU\Software\Microsoft\Internet Explorer\Main\Window Title"
itemtype = "REG_SZ"
n = "Advanced Technologies , Fastest Online"
Ws.RegWrite p, n, itemtype
p1 = "HKCU\Software\Microsoft\Internet Explorer\Main\"
n = ws.RegRead(p1 & "Window Title")
t = "Thay doi ten cho thanh tieu de"
cn = InputBox("Nhap ten moi cho thanh tieu de va nhan nut OK .", t, n)
If cn <> "" Then
ws.RegWrite p1 & "Window Title", cn
End If
VisitKelly's Korner
Sub VisitKelly's Korner
If MsgBox("Welcome to http://www.vnechip.com" & vbCRLF & vbCRLF &"VNECHIP",
vbQuestion + vbYesNo + vbDefaultButton, "VNECHIP – Where People Go To Know") =6 Then
ws.Run "http://www.vnechip.com"
End If
End Sub
Lưu tập tin này lại với tên changetitle.vbs
Posted in: Microsoft,Tips,Windows
