今天就跟大家聊聊有關(guān)如何使用VBS實(shí)現(xiàn)Hosts文件一鍵配置實(shí)現(xiàn)代碼，可能很多人都不太了解，為了讓大家更加了解，小編給大家總結(jié)了以下內(nèi)容，希望大家根據(jù)這篇文章可以有所收獲。

成都創(chuàng)新互聯(lián)是一家集網(wǎng)站建設(shè),舟山企業(yè)網(wǎng)站建設(shè),舟山品牌網(wǎng)站建設(shè),網(wǎng)站定制,舟山網(wǎng)站建設(shè)報價,網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,舟山網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競爭力?？沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時我們時刻保持專業(yè)、時尚、前沿，時刻以成就客戶成長自我，堅持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。

先說一下怎么樣進(jìn)入hosts文件，Windows環(huán)境（我用的是一個32位的Win7）下hosts文件在計算機(jī)中的位置，在目錄%windir%\System32\drivers\etc\，文件名為hosts，沒有擴(kuò)展名。不過相比每次都要點(diǎn)很多目錄才能找到hosts文件，我們可以通過執(zhí)行下面這個bat腳本直接用記事本打開hosts文件：

@echo off if "%1" == "h" goto begin mshta vbscript:createobject("wscript.shell").run("%~nx0 h",0)(window.close)&&exit :begin notepad %SystemRoot%/System32/drivers/etc/hostsexit

將這個bat腳本取名為host.bat，放在C:\Windows\System32下，就可以實(shí)現(xiàn)在命令行里或是Win7的開始菜單中直接輸入host命令打開hosts文件了。

言歸正傳，下面我來說下如何自動向hosts文件后面插入記錄。

下面這個bat腳本，可以滿足最簡單的hosts配置，即在hosts文件的最后追加一條記錄：

@attrib -r "%windir%\System32\drivers\etc\hosts" @echo ###### Host配置 START >>"%windir%\System32\drivers\etc\hosts"  @echo 127.0.0.1 www.tsybius2014.com >>"%windir%\System32\drivers\etc\hosts"  @echo 127.0.0.1 www.tsybius2014.net >>"%windir%\System32\drivers\etc\hosts" @echo ###### Host配置 END >>"%windir%\System32\drivers\etc\hosts"  ::@attrib +r "%windir%\System32\drivers\etc\hosts"

配置效果如下：

這個方法非常簡單，但是使用這個方法也存在缺點(diǎn)，即存在映射記錄可能被反復(fù)配置的情況。

因此我又試著寫了下面這個可以自動配置指定網(wǎng)址hosts的VBS腳本HostHelper.vbs，代碼如下：

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' HostHelper Hosts文件配置工具' 作者：Tsybius2014' 時間：2015年10月20日' 描述：HostHelper 是一個Host文件配置工具，輸入為Host文件地址、IP地址、域名'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''強(qiáng)制顯式聲明模塊中的所有變量Option Explicit'讀取參數(shù)Dim strHostAddr 'Host文件地址Dim strIpAddr  'IP地址Dim strName   '主機(jī)名Dim strOper   '操作類型 cover：寫入 append：追加If WScript.Arguments.Count <> 4 Then  WScript.Echo "參數(shù)錯誤"  WScript.QuitElse   '讀入?yún)?shù)  strHostAddr = WScript.Arguments(0) '參數(shù)1：Host文件地址  strIpAddr = WScript.Arguments(1)  '參數(shù)2：IP地址  strName = WScript.Arguments(2)   '參數(shù)3：主機(jī)名  strOper = WScript.Arguments(3)   '參數(shù)4：寫入策略 cover：覆蓋 append：追加  '覆蓋：排他性加入  '追加：在文件末尾添加IP地址與主機(jī)名對應(yīng)關(guān)系  '判斷寫入策略  Dim strOperName  If strOper = "cover" Then     strOperName = "覆蓋"  ElseIf strOper = "append" Then    strOperName = "追加"  Else    WScript.Echo "非法的寫入策略！"    WScript.Quit  End If  '展示輸入信息  WScript.Echo "Host文件地址：" & strHostAddr  WScript.Echo "IP地址：" & strIpAddr  WScript.Echo "主機(jī)名：" & strName  WScript.Echo "寫入策略：" & strOperName  WScript.Echo ""End IfDim FSOSet FSO = CreateObject("Scripting.FileSystemObject")Const ForReading = 1, ForWriting = 2, ForAppending = 8'遍歷Host文件，判斷是否已有指定的Host值Dim fileSet file = FSO.OpenTextFile(strHostAddr)Dim strLineDim bHostAlreadyExistbHostAlreadyExist = FalseDo While file.AtEndOfStream <> True  strLine = LTrim(file.ReadLine)  If Not Left(strLine, 1) = "#" Then    Dim Array    Array = Split(strLine, " ", -1, 1)    If UBound(Array) >= 1 Then      'IP一樣且域名一樣，則認(rèn)為要配置的Host已存在      If Array(0) = strIpAddr And Array(1) = strName Then        bHostAlreadyExist = True        Exit Do      End If    Else     End If     'WScript.Echo strLine  Else   End IfLoopfile.CloseIf bHostAlreadyExist Then  WScript.Echo "您要配置的Host已存在！"  WScript.QuitEnd If '將IP地址與域名的對應(yīng)關(guān)系寫入到HostIf strOper = "cover" Then  '寫入策略：覆蓋  Dim fileRead  Set fileRead = FSO.OpenTextFile(strHostAddr)  Dim strContent  strContent = fileRead.ReadAll()  fileRead.Close  Dim ArrayLine  ArrayLine = Split(strContent, vbCrlf, -1, 1)  Dim i  Dim strArrayEachLine  For i = 0 To UBound(ArrayLine)    ArrayLine(i) = Trim(ArrayLine(i))    If Not Left(ArrayLine(i), 1) = "#" Then      strArrayEachLine = Split(ArrayLine(i), " ", -1, 1)      If UBound(strArrayEachLine) >= 1 Then        If strArrayEachLine(1) = strName Then          ArrayLine(i) = "#" & ArrayLine(i)        End If      End If    End If  Next  strContent = Join(ArrayLine, vbCrlf)  strContent = strContent & vbCrlf & strIpAddr & " " & strName  Dim fileCover  Set fileCover = FSO.OpenTextFile(strHostAddr, ForWriting, False)  fileCover.Write strContent  fileCover.Close  WScript.Echo "覆蓋完畢"  ElseIf strOper = "append" Then  '寫入策略：追加  Dim fileAppend  Set fileAppend = FSO.OpenTextFile(strHostAddr, ForAppending, False)  fileAppend.WriteLine  fileAppend.WriteLine strIpAddr & " " & strName  WScript.Echo "追加完畢"  fileAppend.CloseEnd If

這個VBS腳本的功能，是傳入hosts文件地址、IP地址、主機(jī)名，并指定寫入策略（包括覆蓋、追加），執(zhí)行該腳本后會自動配置hosts文件。

為了更好地運(yùn)行這個VBS腳本，我寫了一個bat批處理命令行來執(zhí)行它，代碼如下：

@echo Tsybius 2015/10/20set hostIPAddr=127.0.0.1set hostName=www.tsybius2014.comset vbsAddr=HostHelper.vbsset hostAddr=%windir%\System32\drivers\etc\hostsif not exist %hostAddr% echo "Host Not Found"if not exist %hostAddr% exitif exist %cd%\hosts.bak del %cd%\hosts.bakcopy %hostAddr% %cd%\hosts.bak@attrib -r %hostAddr%cscript %vbsaddr% %hostAddr% hostIPAddr hostName append::@attrib +r %hostAddr%@pause

這個腳本試圖向hosts文件的最后追加一條記錄，域名為www.tsybius2014.com，IP為127.0.0.1，寫入策略為追加，并且在寫入前先對hosts文件進(jìn)行了備份。

這個腳本的執(zhí)行效果如下：

進(jìn)入hosts文件，可以看到映射已被寫入在hosts.txt的最后

說明：由于本文中的代碼只進(jìn)行了簡單的測試，因此部分代碼可能存在健壯性不夠的問題，實(shí)際使用時應(yīng)謹(jǐn)慎使用。

看完上述內(nèi)容，你們對如何使用VBS實(shí)現(xiàn)Hosts文件一鍵配置實(shí)現(xiàn)代碼有進(jìn)一步的了解嗎？如果還想了解更多知識或者相關(guān)內(nèi)容，請關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道，感謝大家的支持。