- 用户定义变量 bhname="ADSL连接测试" 设置自动拨号的连接
- 用户定义变量 baiduss="按键精灵优秀软件" 设置百度搜索关键词
- //
- //
- 调用插件命令 Web.Bind("WQM.exe")
- 标记 脚本开始
- //下面这句是判断连接是否在线[断线返回<False>,否则返回<True>]
- 调用插件命令 bhOnLine = Net.IsOnline()
- //先判断这个连接是否在线
- 如果表达式 (bhOnLine=False) 为真,则
- //不在线就拨号
- 调用插件命令 bhyes=Net.DialUp(bhname)
- 条件结束
- //拨号成功
- 如果表达式 (bhyes=TRUE or bhOnLine=TRUE) 为真,则
- 调用插件命令 Web.Go("http://www.baidu.com/baidu?word=" & baiduss)
- 调用子程序 获取IP
- 调用子程序 写入日志
- 延时1000毫秒
- 调用插件命令 Net.HangUp()
- //下面这句是断开远程网络连接
- 延时3000毫秒
- 跳转到标记 脚本开始
- 否则
- //拨号不成功重来
- 延时3000毫秒
- 跳转到标记 脚本开始
- 条件结束
- 脚本停止运行
- //子程序
- 子程序 获取IP
- //获取IP
- strURL="http://www.jd-you.cn/ip.asp"
- Set hdyqf_XMLHTTP = CreateObject("Microsoft.XMLHTTP")
- hdyqf_XMLHTTP.open "GET",strURL, False
- hdyqf_XMLHTTP.send
- 如果表达式 (hdyqf_XMLHTTP.readyState = 4) 为真,则
- 如果表达式 (hdyqf_XMLHTTP.Status = 200) 为真,则
- my_ip = hdyqf_XMLHTTP.responseText
- 条件结束
- 条件结束
- 子程序结束,回到调用处
- 子程序 写入日志
- nr="IP:"& my_ip &"----时间:"&now()
- 调用插件命令 File.WriteFileEx(".\日志.ini",nr)
- 子程序结束,回到调用处
- 子程序 OnScriptExit
- 弹出窗口 "脚本已经停止!"
- 调用外部VBScript子程序 运行一个外部程序(".\日志.ini")
- 子程序结束,回到调用处