代码比较长,对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> </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 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
暂无评论...
更新日志
2024年05月20日
2024年05月20日
- 张琍敏1978-雪中莲[台湾复刻版][WAV+CUE]
- 叶蕴仪1993-睡美人[日本版][WAV+CUE]
- 夜晚助兴音乐-群星《新时代床头音乐-性能量》2CD[WAV]
- 24K德国HD金碟《历届奥斯卡获奖金曲》3CD[WAV整轨]
- 邰正宵《重燃爱恋 贰 Walk On》[FLAC/分轨][431.72MB]
- 苏文劭《雨停出来走走》[320K/MP3][81.11MB]
- 苏文劭《雨停出来走走》[FLAC/分轨][210.76MB]
- 群星《2024好听新歌04》十倍音质WAV分轨
- 陈宁《弹指之间HQ》头版限量[低速原抓WAV+CUE]
- 陈宁《故人还》HQCDII限量签名版[低速原抓WAV+CUE]
- 苏文劭《春曲(Lessons)》[320K/MP3][39.8MB]
- 苏文劭《春曲(Lessons)》[FLAC/分轨][97.78MB]
- 群星《2006香港高级视听展原音精选 SACD》[ISO][2G]
- 张琍敏1977-枫林小雨[台湾复刻版][WAV+CUE]
- 林一峰2014-COOKINGMUSIC[香港首版][WAV+CUE]