1. 用户定义变量 bhname="ADSL连接测试" 设置自动拨号的连接
2. 用户定义变量 baiduss="按键精灵优秀软件" 设置百度搜索关键词
3. //
4. //
5. 标记 脚本开始
6. //下面这句是判断连接是否在线[断线返回<False>,否则返回<True>]
7. 调用插件命令 bhOnLine = Net.IsOnline()
8. //先判断这个连接是否在线
9. 如果表达式 (bhOnLine=False) 为真,则
10.     //不在线就拨号
11.     调用插件命令 bhyes=Net.DialUp(bhname)
12. 条件结束
13. //拨号成功
14. 如果表达式 (bhyes=TRUE or bhOnLine=TRUE) 为真,则
15.     weblj="http://www.baidu.com/baidu?word=" & baiduss
16.     调用外部VBScript子程序 运行一个外部程序(weblj)
17.     调用子程序 获取IP
18.     调用子程序 写入日志
19.     延时1000毫秒
20.     调用插件命令 Net.HangUp()
21.     //下面这句是断开远程网络连接
22.     延时3000毫秒
23.     跳转到标记 脚本开始
24. 否则
25.     //拨号不成功重来
26.     延时3000毫秒
27.     跳转到标记 脚本开始
28. 条件结束
29. 脚本停止运行
30. //子程序
31. 子程序 获取IP
32.     //获取IP
33.     strURL="http://www.jd-you.cn/ip.asp"
34.     Set hdyqf_XMLHTTP = CreateObject("Microsoft.XMLHTTP")
35.     hdyqf_XMLHTTP.open "GET",strURL, False
36.     hdyqf_XMLHTTP.send
37.     如果表达式 (hdyqf_XMLHTTP.readyState = 4) 为真,则
38.         如果表达式 (hdyqf_XMLHTTP.Status = 200) 为真,则
39.             my_ip = hdyqf_XMLHTTP.responseText
40.         条件结束
41.     条件结束
42. 子程序结束,回到调用处
43. 子程序 写入日志
44.     nr="IP:"& my_ip &"----时间:"&now()
45.     调用插件命令 File.WriteFileEx(".\日志.ini",nr)
46. 子程序结束,回到调用处