当前位置：移动技术网 > IT编程>脚本编程>VBScript > VBS一键配置VOIP脚本代码

VBS一键配置VOIP脚本代码

2020年03月09日 | 移动技术网IT编程 | 我要评论

金在中推特名,淘娱淘乐影视,虚无邪尊下载

代码比较长，对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对象菜单栏
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> </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>

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

您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！点击进行留言回复

VBS日期(时间)格式化函数代码

核心代码 currenttimestr1 = cstr(year(now()))&"-"&right("0"&month(now())... [阅读全文]
用vbs实现文本循环读取

因为测试中需要读取一批url数据进行浏览，其实使用qtp本身的table能实现多种读取方式，但是因为需要tabel是使用excel保存的，在没有... [阅读全文]
磁盘IO利用率监控VBS脚本(windows)

核心代码 '程序名称: btlwchk_diskio.vbs '版权信息... [阅读全文]
监测windows主机网络接口利用率的vbs代码

btlwchk_netinterface.vbs '程序名称: btlwc... [阅读全文]
vbs定期监控值个班，定期瞄一下

系统：windows 7 引言有些时候需要定期去执行一段程序，怎么办？这里提供一个方法，虽然有点绕，但效果还不错时间控制部分使用vbs... [阅读全文]
VBS怎么获取指定目录下的文件列表

vbs肿么获取某目录下的文件列表 dim filename,fs,foldername foldername = inputbox(... [阅读全文]
运行vbs脚本报错无效字符、中文乱码的解决方法(编码问题)

代码没有问题，总是报这样的错误。测试代码 msgbox "移动技术网" 很简单的代码，但如果编码不对问题就很多中文乱码问题 ... [阅读全文]
VBS打开当前脚本所在文件夹

方法一：wscript.scriptfullname '创建一个 wscript.shell 对象的实例,稍后会使用这个对象启动 wi... [阅读全文]
vbs 读写注册表之系统启动项添加与删除

核心vbs代码 '变量定义 dim writename,writevalue,filename,regloaction,regapp... [阅读全文]
拖拽文件显示文件路径的vbs代码

下面两段原理都是一样的，大家可以看下代码一 if wscript.arguments.count=0 then msgbo... [阅读全文]

网友评论


验证码：

VBS一键配置VOIP脚本代码

2020年03月09日 | 移动技术网IT编程 | 我要评论

您可能感兴趣的文章:

相关文章:

网友评论