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 = "Chuc mung ban da den voi www.vnechip.com"

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 &"Ban co

muon ghe tham chung toi ngay bay gio?", vbQuestion + vbYesNo + vbDefaultButton, "VNECHIPWhere

People Go To Know") =6 Then

ws.Run "http://www.vnechip.com"

End If

End Sub