修改host小工具

今天在公司，周哥共享了一个比较有意思的工具，它是一个.hta的文件,只有几十k,可以修改host，很方便，突然非常感兴趣。于是有了这篇文章。先看下界面效果图。嘿嘿 [caption id="attachment_215" align="alignnone" width="781"]

用hta修改host文件[/caption] 看下代码： [code lang="html"] <head> <title>修改本机Host文件_by Johnny.zhou</title> </head> <script language="VBScript"> Window.resizeTo 400, 200 Sub Run1 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("C:\WINDOWS\system32\drivers\etc\hosts",2) objFile.WriteLine "127.0.0.1" & vbTab & "localhost" objFile.WriteLine "192.168.0.16" & vbTab & "www.npcgo.com" objFile.WriteLine "192.168.0.16" & vbTab & "pay.npcgo.com" objFile.WriteLine "192.168.0.16" & vbTab & "manager.npcgo.com" objFile.WriteLine "192.168.0.16" & vbTab & "BuctionManager.npcgo.com" objFile.WriteLine "192.168.0.16" & vbTab & "images.npcgo.com" objFile.WriteLine "192.168.0.16" & vbTab & "service.npcgo.com" objFile.WriteLine "192.168.0.16" & vbTab & "pai.npcgo.com" End Sub Sub Run2 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("C:\WINDOWS\system32\drivers\etc\hosts",2) objFile.WriteLine "127.0.0.1" & vbTab & "localhost" objFile.WriteLine "192.168.0.80" & vbTab & "www.npcgo.com" objFile.WriteLine "192.168.0.80" & vbTab & "pay.npcgo.com" objFile.WriteLine "192.168.0.80" & vbTab & "manager.npcgo.com" objFile.WriteLine "192.168.0.80" & vbTab & "BuctionManager.npcgo.com" objFile.WriteLine "192.168.0.80" & vbTab & "images.npcgo.com" objFile.WriteLine "192.168.0.80" & vbTab & "service.npcgo.com" objFile.WriteLine "192.168.0.80" & vbTab & "pai.npcgo.com" End Sub Sub Run3 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("C:\WINDOWS\system32\drivers\etc\hosts",2) objFile.WriteLine "127.0.0.1" & vbTab & "localhost" End Sub Sub Run4 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("C:\WINDOWS\system32\drivers\etc\hosts",2) objFile.WriteLine "127.0.0.1" & vbTab & "localhost" objFile.WriteLine "211.100.58.248" & vbTab & "www.npcgo.com" objFile.WriteLine "211.100.58.248" & vbTab & "pay.npcgo.com" objFile.WriteLine "211.100.58.248" & vbTab & "manager.npcgo.com" objFile.WriteLine "211.100.58.248" & vbTab & "BuctionManager.npcgo.com" objFile.WriteLine "211.100.58.248" & vbTab & "images.npcgo.com" objFile.WriteLine "211.100.58.248" & vbTab & "service.npcgo.com" objFile.WriteLine "211.100.58.248" & vbTab & "pai.npcgo.com" objFile.WriteLine "211.100.58.248" & vbTab & "cms.npcgo.com" End Sub Sub Run5 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("C:\WINDOWS\system32\drivers\etc\hosts",2) objFile.WriteLine "127.0.0.1" & vbTab & "localhost" objFile.WriteLine "127.0.0.1" & vbTab & "manager.cheuks.com" End Sub </script> <body> 点击按钮“内网16环境”，将本机Host文件内容改为：   192.168.0.16 www.npcgo.com   192.168.0.16 pay.npcgo.com   192.168.0.16 pai.npcgo.com   192.168.0.16 manager.npcgo.com   192.168.0.16 BuctionManager.npcgo.com   192.168.0.16 images.npcgo.com   192.168.0.16 service.npcgo.com 点击按钮“内网80环境”，将本机Host文件内容改为：   192.168.0.80 www.npcgo.com   192.168.0.80 pay.npcgo.com   192.168.0.80 pai.npcgo.com   192.168.0.80 manager.npcgo.com   192.168.0.80 BuctionManager.npcgo.com   192.168.0.80 images.npcgo.com   192.168.0.80 service.npcgo.com 点击按钮“外网测试环境”，将本机Host文件内容改为：   211.100.58.248 www.npcgo.com   211.100.58.248 pay.npcgo.com   211.100.58.248 pai.npcgo.com   211.100.58.248 manager.npcgo.com   211.100.58.248 BuctionManager.npcgo.com   211.100.58.248 images.npcgo.com   211.100.58.248 service.npcgo.com   211.100.58.248 cms.npcgo.com 点击按钮“外网真实环境”，将本机Host文件内容改为：   127.0.0.1 localhost 点击按钮“本机cheuks”，将本机Host文件内容改为：   127.0.0.1 manager.cheuks.com <hr size=1 color=silver> <input id=runbutton1 class=button type=button value=内网16环境 name="run_button1" onClick=Run1 id=runbutton1> <input id=runbutton2 class=button type=button value=内网80环境 name="run_button2" onClick=Run2 id=runbutton2> <input id=runbutton3 class=button type=button value=外网真实环境 name="run_button3" onClick=Run3 id=runbutton3> <input id=runbutton4 class=button type=button value=外网测试环境 name="run_button4" onClick=Run4 id=runbutton3> <input id=runbutton5 class=button type=button value=本机cheuks name="run_button5" onClick=Run5 id=runbutton5> </body> </html> [/code] 大概看了下，是用vb script写的，确实还蛮简单，但是效果蛮好，非常实用啊。对代码进行下解读： CreateObject("Scripting.FileSystemObject") 这句话的意思是：创建个文件流对象 Set objFile = objFSO.OpenTextFile("C:\WINDOWS\system32\drivers\etc\hosts",2) 这句话的意思是：打开文件 objFile.WriteLine "127.0.0.1" & vbTab & "localhost" 这句话的意思是：写入字符串到这个文件中下面说下从百度抄过来的定义：HTA是HTML Application的缩写（HTML应用程序），是软件开发的新概念，直接将HTML保存成HTA的格式，就是一个独立的应用软件，与VB、C++等程序语言所设计的软件界面没什么差别。

HTA的外观

　　可以用<HTA:Application>；来设定HTA应用程序的外观，如标题栏、边框大小等，
   必须放在<head>；中。
[code lang="html"]
<；！—example3.hta--></pre>
<div></div>
<pre>　　<html></pre>
<div></div>
<pre>　　<head></pre>
<div></div>
<pre>　　<title>；第一个HTA的例子</title></pre>
<div></div>
<pre>　　<HTA:Application ID="oHTA"</pre>
<div></div>
<pre>　　Applicationname="myApp"</pre>
<div></div>
<pre>　　border="thin"</pre>
<div></div>
<pre>　　borderstyle="normal"</pre>
<div></div>
<pre>　　caption="yes"</pre>
<div></div>
<pre>　　icon="filename.ico"</pre>
<div></div>
<pre>　　maximizebutton="yes"</pre>
<div></div>
<pre>　　minimizebutton="yes"</pre>
<div></div>
<pre>　　showintaskbar="no"</pre>
<div></div>
<pre>　　singleinstance="no"</pre>
<div></div>
<pre>　　sysmenu="yes"</pre>
<div></div>
<pre>　　version="1.0"</pre>
<div></div>
<pre>　　windowstate="normal"</pre>
<div></div>
<pre>　　scroll="yes"></pre>
<div></div>
<pre>　　</head></pre>
<div></div>
<pre>　　<body></pre>
<div></div>
<pre>　　<center></pre>
<div></div>
<pre>　　HTA</pre>
<div></div>
<pre>　　HTML Application</pre>
<div></div>
<pre>　　HTML应用程序</pre>
<div></div>
<pre>　　<button onclick=”self.close（）” style=”<a href="http://baike.baidu.com/view/1149743.htm" target="_blank">font-size</a>:18”>；离开</button></pre>
<div></div>
<pre>　　</center></pre>
<div></div>
<pre>　　</body></pre>
<div></div>
<pre>　　</html>
[/code]

　　属性说明：

　　APPLICATIONNAME属性（applicationName)

　　此属性为设置HTA的名称。

　　BORDER属性（border)

　　此属性为设置为HTA的窗口边框类型，默认值为 thick。

　　它可以设为　thick　指定窗口为粗边框

　　dialog window　指定窗口为对话框

　　none　指定窗口无边框

　　thin　指定窗口为窄边框

　　BORDERSTYLE属性（borderStyle)

　　此属性为设置HTA窗口的边框格式，默认值为 normal。

　　它可以设为

　　normal 普通边框格式

　　complex 凹凸格式组合边框

　　raised 凸出的3D边框

　　static 3D边框格式

　　sunken 凹进的3D边框

　　CAPTION属性（caption)

　　此属性为设置HTA窗口是否显示标题栏或标题，默认值为 yes。

　　ICON属性（icon)

　　此属性为设置应用程序的图标。

　　MAⅪMIZEBUTTON属性（maximizeButton)

　　此属性为设置是否在HTA窗口中显示最大化按钮，默认值为 yes。

　　MINIMIZEBUTTON属性（minimizeButton)

　　此属性为设置是否在HTA窗口中显示最小化按钮，默认值为 yes。

　　SHOWINTASKBAR属性（showInTaskBar)

　　此属性为设置是否在任务栏中显示此应用程序，默认值为 yes。

　　SINGLEINSTANCE属性（singleInstance)

　　此属性为设置是否此应用程序同时只能运行一次。次属性以APPLICATIONNAME属性作为标识，默认值为 no。

　　SYSMENU属性（sysMenu)

　　此属性为设置是否在HTA窗口中显示系统菜单，默认值为 yes。

　　VERSION属性（version)

　　此属性为设置应用程序的版本，默认值为空。

　　WINDOWSTATE属性（windowState)

　　此属性为设置HTA窗口的初始大小，默认值为 normal。

　　它可以设为 normal 默认大小

　　minimize 最小化

　　maximize 最大化

　　SCROLL属性（Scroll)

　　此属性为设置是否在右端显示竖向滚动条，默认值为 yes

posted @ 2012-11-14 18:38 keepnode 阅读(552) 评论(0) 编辑收藏举报

会员力量，点亮园子希望

刷新页面返回顶部

打怪升级中

每件事到最后都是好事，如果不是好事，说明还没有到最后

修改host小工具

HTA的外观

公告