VBS一鍵配置VOIP腳本代碼
更新時(shí)間：2019年09月28日 13:22:42 投稿：mdxy-dxy
VBS一鍵配置VOIP腳本代碼，其中包括VBS操作JS網(wǎng)頁(yè)中的按鈕事件--直接執(zhí)行確認(rèn)按鈕中的腳本代碼,需要的朋友可以參考下
代碼比較長(zhǎng)，對(duì)vbs感興趣的朋友可以參考一下
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對(duì)象菜單欄
IE.AddressBar=1 '顯示IE對(duì)象地址欄
IE.ToolBar=0 '顯示IE對(duì)象工具欄
IE.StatusBar=1 '不顯示IE對(duì)象狀態(tài)欄
IE.FullScreen=0 '全屏化IE對(duì)象
IE.Height=768
IE.Width=1024
IE.Resizable=1 '設(shè)置IE對(duì)象大小是否可以被改動(dòng)
IE.visible=1 '設(shè)置是否可見(jiàn)
'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)
'===========取第一行數(shù)據(jù):號(hào)碼==============
OneLine=file.ReadLine
OneLineStr=Split(OneLine,"=")
OneLineCount=UBound(split(OneLine,"="))
'MsgBox OneLineStr(1)
'===============取第二行數(shù)據(jù):密碼===========
TwoLine=file.ReadLine
TwoLineStr=Split(TwoLine,"=")
TwoLineCount=UBound(split(TwoLine,"="))
'MsgBox TwoLineStr(1)
'===============取第三行數(shù)據(jù):VOIP服務(wù)地址============
ThreeLine=file.ReadLine
ThreeLineStr=Split(ThreeLine,"=")
ThreeLineCount=UBound(split(ThreeLine,"="))
'MsgBox ThreeLineStr(1)
'===============取第四行數(shù)據(jù):對(duì)講設(shè)備地址============
FourLine=file.ReadLine
FourLineStr=Split(FourLine,"=")
FourLineCount=UBound(split(FourLine,"="))
'MsgBox FourLineStr(1)
'===============取第五行數(shù)據(jù):瀏覽器安裝目錄============
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
'======================================================
'登錄系統(tǒng)
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
'================================================
'進(jìn)入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 "進(jìn)入配置界面失?。?
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}" '選擇開(kāi)啟狀態(tài)
WScript.Sleep 300
End Function
'=========================================
'配置參數(shù)
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
'========================================================
'修改參數(shù)后重啟
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") '檢測(cè)網(wǎng)頁(yè)元素是否標(biāo)簽為input,且值等于Reboot
For Each i In ALL
If i.value="Reboot" Then
'i.Click '點(diǎn)擊reboot按鈕
WScript.Sleep 1000
Ie.Document.parentwindow.execScript("top.location='content.cgi?_method_=reboot'") '直接執(zhí)行reboot確認(rèn)操作
Exit For
End If
Next
WScript.Sleep 3000
MsgBox "配置已完成，設(shè)備正在重啟，請(qǐng)耐心等待...",,"提示"
If ws.AppActivate("來(lái)自網(wǎng)頁(yè)的消息") Then
ws.SendKeys "{ENTER}"
WScript.Sleep 2000
MsgBox "配置已完成，設(shè)備正在重啟，請(qǐng)耐心等待...",,"提示"
Else
'MsgBox "配置未成功,請(qǐng)重新檢查配置!",,"提示"
End If
End Function
'====================================================================
Function MainWeb()
'=============啟動(dòng)地址=====================
'方式一：自定義瀏覽器啟動(dòng),需配置路徑
' 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
'方式二：用系統(tǒng)默認(rèn)瀏覽器啟動(dòng)
ws.Run FourLineStr(1)
'===============登錄設(shè)備=====================
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}"
'============進(jìn)入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
'==============進(jìn)入編輯狀態(tài)=======================
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}" '選擇開(kāi)啟狀態(tài)
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("來(lái)自網(wǎng)頁(yè)的消息") Then
ws.SendKeys "{ENTER}"
WScript.Sleep 1000
MsgBox "配置已完成，設(shè)備正在重啟，請(qǐng)耐心等待...",,"提示"
Else
MsgBox "配置未成功,請(qǐng)重新檢查配置!",,"提示"
End If
End Function
Set ws=Nothing
Set IE=Nothing
Set fso=Nothing
網(wǎng)頁(yè)部分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> </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>
這篇文章就介紹到這了，希望大家以后多多支持腳本之家。
相關(guān)文章
可以從一臺(tái)遠(yuǎn)程服務(wù)器運(yùn)行 SP2 安裝程序Install.vbs
可以從一臺(tái)遠(yuǎn)程服務(wù)器運(yùn)行 SP2 安裝程序Install.vbs...2007-04-04
vbs 批量修改文件，bat 批處理文件調(diào)用執(zhí)行vbs，并在cmd窗口打印返回值（vbs運(yùn)行結(jié)果）
使用vbs 腳本對(duì)工作目錄下的字符串進(jìn)行替換并統(tǒng)計(jì)被修改的文件數(shù)主調(diào)的批處理方法將捕捉該vbs腳本運(yùn)行后的結(jié)果并打印在cmd窗口。2011-09-09
vbs qq自動(dòng)發(fā)信息增強(qiáng)版
這篇文章主要介紹了vbs qq自動(dòng)發(fā)信息增強(qiáng)版,需要的朋友可以參考下2014-05-05
HTA文件去除html控件認(rèn)證和接收命令行參數(shù)
最近看vbscript程序員參考手冊(cè)第三版，講到hta的兩個(gè)應(yīng)用2009-07-07
VBS教程：屬性-Name 屬性...2006-11-11
vbscript 注冊(cè)表腳本書(shū)寫(xiě)
用vbscript實(shí)現(xiàn)的修改注冊(cè)表的腳本，建議大家看看2008-06-06
VBS教程：屬性-Line 屬性...2006-11-11
VBScript使用ADSI為IIS批量添加屏蔽或允許訪問(wèn)的IP
用ADSI+ASP添加IP到IIS禁止訪問(wèn)列表中2008-12-12
WScript.Shell對(duì)象SpecialFolders屬性未公開(kāi)文檔分享
WshShell對(duì)象的SpecialFolders屬性返WshSpecialFolders 對(duì)象，該對(duì)象是一個(gè)特殊文件夾集合，其中包含整套Windows特殊文件夾2013-01-01
VBS教程：VBscript屬性-Length 屬性...2006-11-11