批处理之家 » VBS求助&讨论 » JS / JScript / JavaScript » [HTA 源码] Google Hosts 安装向导 By Yu2n

yu2n 发表于 2014-9-24 15:46

[HTA 源码] Google Hosts 安装向导 By Yu2n

[i=s] 本帖最后由 yu2n 于 2017-4-15 19:25 编辑 [/i]

[color=Red]
------------------------------------------------------------------------
Update: 17/3/25
------------------------------------------------------------------------
  1. 更新了 Hosts 来源，马上打开 [url]https://www.google.com/ncr[/url] 试试吧~
  2. 收录了 pcl_test 版主的批处理版本，如 HTA 版本不是最新的 Hosts 时，请使用批处理版本。

[/color]

------------------------------------------------------------------------
软件界面预览：
------------------------------------------------------------------------
[attach]10118[/attach]

[attach]10119[/attach]

[attach]10120[/attach]

------------------------------------------------------------------------
HTA技术说明：使用HTA技术，可以使用用 VBS、JS 等脚本语言，简单、整洁的编写 HTA 小程序。
这个界面使用 HTML 语言构建，只有一个HTA文件。
------------------------------------------------------------------------

------------------------------------------------------------------------
[color=Green]源码下载：[/color][attach]8291[/attach]
[size=1][color=YellowGreen]Tips: 下载后解压即可使用~[/color][/size]
------------------------------------------------------------------------


------------------------------------------------------------------------
欢迎建议、交流、完善。
------------------------------------------------------------------------


[color=Gray]
------------------------------------------------------------------------
更新历史：
------------------------------------------------------------------------
17/3/25
  1. 更新了 Hosts 来源，马上打开 [url=https://www.google.com/ncr]https://www.google.com/ncr[/url] 试试吧
  2. 收录 pcl_test 版主的批处理版本，如 HTA 版本不是最新的 Hosts 时，请使用批处理版本。

16/9/20
  更新了 Hosts 来源

14/09/26
  发布第一个版本。
  备注：使用前请关闭360安全软件（感谢“版主523066680”的反馈）
  说明：如果发现 Google Hosts 失效，敬请告知。本人将尽快更新服务器上的 Google Hosts 源。[/color]

------------------------------------------------------------------------

[quote]
Hosts来源：《2017 Google hosts 持续更新【更新于:2017-03-24】》
[url]https://laod.cn/hosts/2017-google-hosts.html[/url][/quote]

yu2n 发表于 2014-9-24 15:47

这个界面基本照抄 EasyX_Setup.hta 。
囧~

tmplinshi 发表于 2014-9-25 14:46

好用，多谢

523066680 发表于 2014-9-25 17:05

很好用，添加备注吧：使用前请关闭360安全软件:lol

CrLf 发表于 2015-3-5 15:40

能长成这样，hta的人生都无憾了

pcl_test 发表于 2016-9-20 22:28

如果已安装，打开hta可以直接跳到选择更新或卸载

yu2n 发表于 2016-9-21 23:28

[b]回复 [url=http://www.bathome.net/redirect.php?goto=findpost&pid=190762&ptid=32043]6#[/url] [i]pcl_test[/i] [/b]


    Ok!

老刘1号 发表于 2017-3-25 12:42

额，服务器挂了

yu2n 发表于 2017-3-25 20:44

[i=s] 本帖最后由 yu2n 于 2017-3-25 20:55 编辑 [/i]

[b]回复 [url=http://www.bathome.net/redirect.php?goto=findpost&pid=197509&ptid=32043]8#[/url] [i]老刘1号[/i] [/b]


    已更新 Hosts 来源，需要重新下载程序~

pcl_test 发表于 2017-3-25 22:47

[i=s] 本帖最后由 pcl_test 于 2017-4-15 20:05 编辑 [/i]

批处理简易版[code]@echo off
set "rar=C:\Program Files\WinRAR\winrar.exe"
set "url=https://laod.cn/hosts/2017-google-hosts.html"
for /f "delims=" %%a in ('mshta http://bathome.net/s/hta/index.html "var m=web('%url%').match(/(https:\/\/iiio.io\/download\/\d+\/?).+?密码\s*?[:：]\s*?([^<\s]+)/);download(m[1]+'windows用批处理.zip');m[2]"') do set "pw=%%a"
if defined pw (
    "%rar%" e -y -p"%pw%" "windows用批处理.zip"
    >nul ping /n 3 0
    "Windows自动替换脚本.bat"
)
pause[/code]

yu2n 发表于 2017-3-25 23:39

[b]回复 [url=http://www.bathome.net/redirect.php?goto=findpost&pid=197543&ptid=32043]10#[/url] [i]pcl_test[/i] [/b]


    直接 unzip 啦~[code]@echo off
set "url=https://iiio.io/download"
md %temp%\host 2>nul & cd /d %temp%\host && rem 创建临时目录
mshta http://bathome.net/s/hta/index.html?echo=false "Tools.get('unzip')" && rem 下载 unzip.exe
for /f %%a in ('mshta http://bathome.net/s/hta/index.html "download('%url%/'+web('%url%/').match(/(\d+)(?=\/\s*?<\/a>)/g).pop()+'/windows用批处理.zip')"') do set result=%%a
if /i "%result%" equ "true" (
    >nul unzip -o -P laod.org "windows用批处理.zip"
    >nul ping /n 3 0
    "windows用批处理\Windows自动替换脚本.bat"
) else echo;%result%
pause[/code]

bbaa 发表于 2017-4-15 20:09

https://github.com/bbaa-bbaa/Google-Hosts-Auto-Update
开机更新

查看完整版本: [HTA 源码] Google Hosts 安装向导 By Yu2n