VBS一键配置VOIP脚本代码

Dim"InternetExplorer.Application")
Set"WSCript.shell")
Set"scripting.filesystemobject")

Const"/content.cgi"

IE.menubar=0"192.168.46.3"


'==============读Config配置文件=========
"Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path
file_config=filepath&"\config.ini"
Set"=")
OneLineCount=UBound(split(OneLine,"="))
'MsgBox"=")
TwoLineCount=UBound(split(TwoLine,"="))
'MsgBox"=")
ThreeLineCount=UBound(split(ThreeLine,"="))
'MsgBox"=")
FourLineCount=UBound(split(FourLine,"="))
'MsgBox"=")
FiveLineCount=UBound(split(FiveLine,"="))
'MsgBox"^a"
"admin"
"{TAB}"
"^a"
"admin"
"{TAB}"
"{ENTER}"

End"{TAB"
"{ENTER}"
"{TAB}"
"{ENTER}"
"进入配置界面失败！"
"{TAB}"
"{TAB}"
"{TAB}"
"{TAB}"
"{TAB}"
"{TAB}"
"{TAB}"
"{TAB}"
"{TAB}"
"{TAB}"
"{TAB}"
"{TAB}"
"{DOWN}""{TAB}"
"^a"
"{TAB}"
"^a"
"{TAB}"
"^a"
"{TAB}""^a"
"{TAB}"
"^a"
"{TAB}""^a"
"{TAB"
"{TAB}"
"{ENTER}"
"{F4}"
"^a"
"Button")
"{ENTER}"
"input")"Reboot""top.location='content.cgi")"配置已完成，设备正在重启，请耐心等待...",,"提示"

"来自网页的消息")"{ENTER}"
"配置已完成，设备正在重启，请耐心等待...",,"提示"
"配置未成功,请重新检查配置!",,"提示"
"{F4}"
'"^a"
'"{ENTER}"
"^a"
"admin"
"{TAB}"
"^a"
"admin"
"{ENTER}"
"{TAB"
"{ENTER}"
"{TAB}"
"{ENTER}"
"{TAB}"
"{TAB}"
"{TAB}"
"{TAB}"
"{TAB}"
"{TAB}"
"{TAB}"
"{TAB}"
"{TAB}"
"{TAB}"
"{TAB}"
"{TAB}"
"{DOWN}""{TAB}"
"^a"
"{TAB}"
"^a"
"{TAB}"
"^a"
"{TAB}""^a"
"{TAB}"
"^a"
"{TAB}""^a"
"{TAB"
"{TAB}"
"{ENTER}"
"{TAB"
"{ENTER}"
"{TAB"
"{ENTER}"
"来自网页的消息")"{ENTER}"
"配置已完成，设备正在重启，请耐心等待...",,"提示"
"配置未成功,请重新检查配置!",,"提示"
"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" target="_top" value="Reboot"></a>

</td></table></form>


这篇文章就介绍到这了，希望大家以后多多支持。