Chào mừng quý vị đến với WEBSITE-Bùi Văn Tiến-thpt Buôn Ma Thuột.
Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành viên, vì vậy chưa thể tải được các tư liệu của Thư viện về máy tính của mình.
Nếu chưa đăng ký, hãy đăng ký thành viên tại đây hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay ô bên phải.
Gốc > Tin học tổng hợp >
6. Thay đổi thanh tiêu đề trong Internet Explorer
6. Thay đổi thanh tiêu đề trong Internet Explorer
Để thay đổi tên trên thanh tiêu đề (Title) của trình duyệt Internet Explorer bạn có thể dùng
Registry Editor tuy nhiên nếu bạn là người mới sử dụng Registry lần đầu , bạn sẽ cãm thấy rất
khó khăn và bở ngở .
Cách làmm sau đây ta sẽ dùng kịch bãn (script) sử dụng công nghệ Windows Scripting Host của
Microsoft để giải quyết vấn đề . Đầu tiên bạn mở Notepad lên và chép đọan mã 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 là changetitle.vbs
Bùi Văn Tiến @ 14:53 22/02/2009
Số lượt xem: 1762
Để thay đổi tên trên thanh tiêu đề (Title) của trình duyệt Internet Explorer bạn có thể dùng
Registry Editor tuy nhiên nếu bạn là người mới sử dụng Registry lần đầu , bạn sẽ cãm thấy rất
khó khăn và bở ngở .
Cách làmm sau đây ta sẽ dùng kịch bãn (script) sử dụng công nghệ Windows Scripting Host của
Microsoft để giải quyết vấn đề . Đầu tiên bạn mở Notepad lên và chép đọan mã 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 là changetitle.vbs
Bùi Văn Tiến @ 14:53 22/02/2009
Số lượt xem: 1762
Số lượt thích:
0 người
- 5. Mở các ổ đĩa CROM bằng một cú nhấp chuột (22/02/09)
- 4. Kiểm tra tổng số thư mục , tập tin có trong thư mục Windows (21/02/09)
- 3. Thay đổi lần truy cập trước đó trong khóa Registry Editor (21/02/09)
- 2. Thêm link của một website đến Start Menu (21/02/09)
- 1. Khắc phục lổi mất shortcut trong Send To (21/02/09)
HOA NGHỆ THUẬT
Các ý kiến mới nhất