批处理之家 - Powered by Discuz! Board

标题: [原创代码] [HTA 源码] Google Hosts 安装向导 By Yu2n [打印本页]

作者: yu2n 时间: 2014-9-24 15:46 标题: [HTA 源码] Google Hosts 安装向导 By Yu2n

本帖最后由 yu2n 于 2017-4-15 19:25 编辑

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

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

[attach]10119[/attach]

[attach]10120[/attach]

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

------------------------------------------------------------------------
源码下载：[attach]8291[/attach]
Tips: 下载后解压即可使用~
------------------------------------------------------------------------

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

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

16/9/20
  更新了 Hosts 来源

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

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

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

作者: yu2n 时间: 2014-9-24 15:47

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

作者: tmplinshi 时间: 2014-9-25 14:46

好用，多谢

作者: 523066680 时间: 2014-9-25 17:05

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

作者: CrLf 时间: 2015-3-5 15:40

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

作者: pcl_test 时间: 2016-9-20 22:28

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

作者: yu2n 时间: 2016-9-21 23:28

回复 6# pcl_test

Ok!

作者: 老刘1号 时间: 2017-3-25 12:42

额，服务器挂了

作者: yu2n 时间: 2017-3-25 20:44

本帖最后由 yu2n 于 2017-3-25 20:55 编辑

回复 8# 老刘1号

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

作者: pcl_test 时间: 2017-3-25 22:47

本帖最后由 pcl_test 于 2017-4-15 20:05 编辑

批处理简易版

@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
复制代码

作者: yu2n 时间: 2017-3-25 23:39

回复 10# pcl_test

直接 unzip 啦~

@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
复制代码

作者: bbaa 时间: 2017-4-15 20:09

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

欢迎光临批处理之家 (http://www.bathome.net/)