代码比较长,对vbs感兴趣的朋友可以参考一下

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>

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

广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!