怎么在VBS中配置VOIP腳本

怎么在VBS中配置VOIP腳本？很多新手對此不是很清楚，為了幫助大家解決這個難題，下面小編將為大家詳細講解，有這方面需求的人可以來學習下，希望你能有所收獲。

Dim?ws,fso,IE
Set?IE?=?WScript.createobject("InternetExplorer.Application")
Set?ws?=?WScript.CreateObject?("WSCript.shell")
Set?fso=CreateObject("scripting.filesystemobject")

Const?reboot="/content.cgi?form=M_SAV"

IE.menubar=0?'顯示IE對象菜單欄
IE.AddressBar=1?'顯示IE對象地址欄
IE.ToolBar=0?'顯示IE對象工具欄
IE.StatusBar=1?'不顯示IE對象狀態欄
IE.FullScreen=0?'全屏化IE對象
IE.Height=768
IE.Width=1024
IE.Resizable=1?'設置IE對象大小是否可以被改動
IE.visible=1?'設置是否可見?

'IE.Navigate?"192.168.46.3"


'==============讀Config配置文件=========
????
filepath=createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path
file_config=filepath&"\config.ini"
Set?file=fso.OpenTextFile(file_config,1)
????
'===========取第一行數據:號碼==============
OneLine=file.ReadLine
OneLineStr=Split(OneLine,"=")
OneLineCount=UBound(split(OneLine,"="))
'MsgBox?OneLineStr(1)???????????????????

????
'===============取第二行數據:密碼===========
TwoLine=file.ReadLine
TwoLineStr=Split(TwoLine,"=")
TwoLineCount=UBound(split(TwoLine,"="))
'MsgBox?TwoLineStr(1)
????
'===============取第三行數據:VOIP服務地址============
ThreeLine=file.ReadLine
ThreeLineStr=Split(ThreeLine,"=")
ThreeLineCount=UBound(split(ThreeLine,"="))
'MsgBox?ThreeLineStr(1)
????
'===============取第四行數據:對講設備地址============
FourLine=file.ReadLine
FourLineStr=Split(FourLine,"=")
FourLineCount=UBound(split(FourLine,"="))
'MsgBox?FourLineStr(1)
????
'===============取第五行數據:瀏覽器安裝目錄============
FiveLine=file.ReadLine
FiveLineStr=Split(FiveLine,"=")
FiveLineCount=UBound(split(FiveLine,"="))
'MsgBox?FiveLineStr(1)
????
'MainWeb()

Main()
'==================================================

Function?Main()

????IE.Navigate?FourLineStr(1)
????????
????Do?
????????WScript.Sleep?500
????????
????Loop?Until?IE.ReadyState=4
????
????
????Login()
????SipSetting()
????InputParm()
????VOIP()
????RebootSys()

End?Function?
'======================================================
'登錄系統
Function?Login()

????WScript.Sleep?1000
????ws.SendKeys?"^a"
????WScript.Sleep?200
????ws.SendKeys?"admin"
????ws.SendKeys?"{TAB}"
????ws.SendKeys?"^a"
????WScript.Sleep?200
????ws.SendKeys?"admin"
????ws.SendKeys?"{TAB}"
????WScript.Sleep?200
????ws.SendKeys?"{ENTER}"

End?Function?
'================================================
'進入sipsetting菜單
Function?SipSetting()

????If?IE.ReadyState=4?Then?
????
????????WScript.Sleep?1000
????????ws.SendKeys?"{TAB?5}"
????????WScript.Sleep?500
????????ws.SendKeys?"{ENTER}"
????????WScript.Sleep?500
????????ws.SendKeys?"{TAB}"
????????WScript.Sleep?500
????????ws.SendKeys?"{ENTER}"
????????WScript.Sleep?2000
????Else?
????
?????MsgBox?"進入配置界面失敗！"
?????
????End?If?

End?Function?
'=============================================
'切換輸入界面
Function?InputParm()

????ws.SendKeys?"{TAB}"
????WScript.Sleep?200
????ws.SendKeys?"{TAB}"
????WScript.Sleep?200
????ws.SendKeys?"{TAB}"
????WScript.Sleep?200
????ws.SendKeys?"{TAB}"
????WScript.Sleep?200
????ws.SendKeys?"{TAB}"
????WScript.Sleep?200
????ws.SendKeys?"{TAB}"
????WScript.Sleep?200
????ws.SendKeys?"{TAB}"
????WScript.Sleep?200
????ws.SendKeys?"{TAB}"
????WScript.Sleep?200
????ws.SendKeys?"{TAB}"
????WScript.Sleep?200????
????ws.SendKeys?"{TAB}"
????WScript.Sleep?200
????ws.SendKeys?"{TAB}"
????WScript.Sleep?200
????ws.SendKeys?"{TAB}"
????WScript.Sleep?200
????
????
????ws.SendKeys?"{DOWN}"??'選擇開啟狀態
????WScript.Sleep?300

End?Function?
'=========================================
'配置參數
Function?VOIP()

????ws.SendKeys?"{TAB}"
????ws.SendKeys?"^a"
????WScript.Sleep?200
????ws.SendKeys?OneLineStr(1)??'display?name
????
????ws.SendKeys?"{TAB}"
????ws.SendKeys?"^a"
????WScript.Sleep?200
????ws.SendKeys?OneLineStr(1)???'user?number
????
????ws.SendKeys?"{TAB}"
????ws.SendKeys?"^a"
????WScript.Sleep?200
????ws.SendKeys?OneLineStr(1)???'auth?id
????
????ws.SendKeys?"{TAB}"????
????WScript.Sleep?200
????ws.SendKeys?"^a"
????WScript.Sleep?200????????????
????ws.SendKeys?TwoLineStr(1)???'password
????
????ws.SendKeys?"{TAB}"
????WScript.Sleep?200
????ws.SendKeys?"^a"
????WScript.Sleep?200
????ws.SendKeys?ThreeLineStr(1)???'proxy?ip
????
????ws.SendKeys?"{TAB}"????????'domain
????WScript.Sleep?200
????ws.SendKeys?"^a"
????WScript.Sleep?200
????ws.SendKeys?ThreeLineStr(1)
????
????'=============保存===========
????ws.SendKeys?"{TAB?48}"
????WScript.Sleep?500
????ws.SendKeys?"{TAB}"
????WScript.Sleep?500
????ws.SendKeys?"{ENTER}"
????WScript.Sleep?1500
????
End?Function?

'========================================================
'修改參數后重啟
Function?RebootSys()

????WScript.Sleep?500
????ws.SendKeys?"{F4}"
????WScript.Sleep?500
????ws.SendKeys?"^a"
????WScript.Sleep?200
????ws.SendKeys?FourLineStr(1)&reboot?
????
????WScript.Sleep?500????
????
'???Set?test=IE.document.getElementsByTagName?("Button")
????ws.SendKeys?"{ENTER}"
????
????WScript.Sleep?2000
????
????Set?ALL?=?Ie.Document.getElementsByTagName("input")??'檢測網頁元素是否標簽為input,且值等于Reboot

????For?Each?i?In?ALL

????If?i.value="Reboot"?Then

???????'i.Click??'點擊reboot按鈕
???????
????????WScript.Sleep?1000
???????
????????Ie.Document.parentwindow.execScript("top.location='content.cgi?_method_=reboot'")??'直接執行reboot確認操作

????????Exit?For

?????
????End?If

????Next
????
????WScript.Sleep?3000????
????
????MsgBox?"配置已完成，設備正在重啟，請耐心等待...",,"提示"

????If?ws.AppActivate("來自網頁的消息")?Then?
????
????
????????ws.SendKeys?"{ENTER}"
????????WScript.Sleep?2000
????????
????????MsgBox?"配置已完成，設備正在重啟，請耐心等待...",,"提示"
????????
????Else?
????????'MsgBox?"配置未成功,請重新檢查配置!",,"提示"
????????
????End?If?

End?Function?


'====================================================================

Function?MainWeb()

????'=============啟動地址=====================
'方式一：自定義瀏覽器啟動,需配置路徑
'???Function?login()
????????
'???????ws.run?FiveLineStr(1)
'???????WScript.Sleep?3000
'???????ws.SendKeys?"{F4}"
'???????WScript.Sleep?200
'???????ws.SendKeys?"^a"
'???????WScript.Sleep?500
'???????ws.SendKeys?FourLineStr(1)
'???????WScript.Sleep?500
'???????ws.SendKeys?"{ENTER}"
????????????????
'???End?Function????

'方式二：用系統默認瀏覽器啟動?
????ws.Run?FourLineStr(1)

????'===============登錄設備=====================
????WScript.Sleep?5000
????ws.SendKeys?"^a"
????WScript.Sleep?200
????ws.SendKeys?"admin"
????ws.SendKeys?"{TAB}"
????ws.SendKeys?"^a"
????WScript.Sleep?200
????ws.SendKeys?"admin"
????ws.SendKeys?"{ENTER}"
????
????'============進入sip?setting菜單=============
????WScript.Sleep?2000
????ws.SendKeys?"{TAB?5}"
????WScript.Sleep?500
????ws.SendKeys?"{ENTER}"
????WScript.Sleep?500
????ws.SendKeys?"{TAB}"
????WScript.Sleep?500
????ws.SendKeys?"{ENTER}"
????WScript.Sleep?2000
????
????
????'==============進入編輯狀態=======================
????ws.SendKeys?"{TAB}"
????WScript.Sleep?200
????ws.SendKeys?"{TAB}"
????WScript.Sleep?200
????ws.SendKeys?"{TAB}"
????WScript.Sleep?200
????ws.SendKeys?"{TAB}"
????WScript.Sleep?200
????ws.SendKeys?"{TAB}"
????WScript.Sleep?200
????ws.SendKeys?"{TAB}"
????WScript.Sleep?200
????ws.SendKeys?"{TAB}"
????WScript.Sleep?200
????ws.SendKeys?"{TAB}"
????WScript.Sleep?200
????ws.SendKeys?"{TAB}"
????WScript.Sleep?200????
????ws.SendKeys?"{TAB}"
????WScript.Sleep?200
????ws.SendKeys?"{TAB}"
????WScript.Sleep?200
????ws.SendKeys?"{TAB}"
????WScript.Sleep?200
????
????
????
????ws.SendKeys?"{DOWN}"??'選擇開啟狀態
????WScript.Sleep?300

????
????'==============配置VOIP================
????ws.SendKeys?"{TAB}"
????ws.SendKeys?"^a"
????WScript.Sleep?200
????ws.SendKeys?OneLineStr(1)??'display?name
????
????ws.SendKeys?"{TAB}"
????ws.SendKeys?"^a"
????WScript.Sleep?200
????ws.SendKeys?OneLineStr(1)???'user?number
????
????ws.SendKeys?"{TAB}"
????ws.SendKeys?"^a"
????WScript.Sleep?200
????ws.SendKeys?OneLineStr(1)???'auth?id
????
????ws.SendKeys?"{TAB}"????
????WScript.Sleep?200
????ws.SendKeys?"^a"
????WScript.Sleep?200????????????
????ws.SendKeys?TwoLineStr(1)???'password
????
????ws.SendKeys?"{TAB}"
????WScript.Sleep?200
????ws.SendKeys?"^a"
????WScript.Sleep?200
????ws.SendKeys?ThreeLineStr(1)???'proxy?ip
????
????ws.SendKeys?"{TAB}"????????'domain
????WScript.Sleep?200
????ws.SendKeys?"^a"
????WScript.Sleep?200
????ws.SendKeys?ThreeLineStr(1)
????
????'=============保存===========
????ws.SendKeys?"{TAB?48}"
????WScript.Sleep?500
????ws.SendKeys?"{TAB}"
????WScript.Sleep?500
????ws.SendKeys?"{ENTER}"
????WScript.Sleep?1500
????'===============重啟==========
????
????ws.SendKeys?"{TAB?18}"
????WScript.Sleep?1000
????ws.SendKeys?"{ENTER}"
????WScript.Sleep?1000
????ws.SendKeys?"{TAB?2}"
????WScript.Sleep?500
????ws.SendKeys?"{ENTER}"
????WScript.Sleep?1000
????
????If?ws.AppActivate("來自網頁的消息")?Then?
????
????????ws.SendKeys?"{ENTER}"
????????WScript.Sleep?1000
????????
????????MsgBox?"配置已完成，設備正在重啟，請耐心等待...",,"提示"
????????
????Else?
????????MsgBox?"配置未成功,請重新檢查配置!",,"提示"
????????
????End?If?

End?Function?

Set?ws=Nothing?
Set?IE=Nothing?
Set?fso=Nothing?

網頁部分JS代碼：

<div id="content" width="650">
<form name="M_SAV" method="GET" enctype="multipart/form-data" onReset="" action="content.cgi">
<input type=HIDDEN name="_method_" value="apply">
<input type=HIDDEN name="form" value="M_SAV">
<input type=HIDDEN name="commit" value="0">
<table id="cFORM" width="650" border="0" cellspacing="0" cellpadding="0" >
<tr><td>&nbsp</td></tr>
</table><table width="500"><td align="center">
<input type=BUTTON onclick="javascript:if ( confirm('Reboot') ) top.location='content.cgi?_method_=reboot';" target="_top" value="Reboot"></a>
</td></table></form>

看完上述內容是否對您有幫助呢？如果還想對相關知識有進一步的了解或閱讀更多相關文章，請關注億速云行業資訊頻道，感謝您對億速云的支持。