1、能支持用户输入当前需要拨号的链接名称，可以傻瓜化的使用脚本 

2、能实现ADSL的自动拨号上网，然后打开IE访问www.baidu.com，搜索一下“按键精灵 优秀软件”，然后再断开网络重播，再搜索一次，如此反复重复操作 

3、附加功能：做好日志记录，能记录每次拨号后自己的外网IP地址，以及搜索的时间。 

运行环境：分辨率：1440×900 色深：32位 操作系统：Windows XP 按键精灵版本：7.01.4210

@兄弟工程师012009/5/8

UserVar bhname="ADSL连接测试" 设置自动拨号的连接   UserVar baiduss="按键精灵优秀软件" 设置百度搜索关键词   //   //   Rem 脚本开始   //下面这句是判断连接是否在线[断线返回<False>,否则返回<True>]   Plugin bhOnLine = Net.IsOnline()   //先判断这个连接是否在线   If bhOnLine=False       //不在线就拨号       Plugin bhyes=Net.DialUp(bhname)   EndIf    //拨号成功   If bhyes=TRUE or bhOnLine=TRUE       weblj="http://www.baidu.com/baidu?word=" & baiduss       VBSCall RunApp(weblj)       Gosub 获取IP       Gosub 写入日志       Delay 1000       Plugin Net.HangUp()       //下面这句是断开远程网络连接       Delay 3000       Goto 脚本开始   Else        //拨号不成功重来       Delay 3000       Goto 脚本开始   EndIf    EndScript    //子程序   Sub 获取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       If hdyqf_XMLHTTP.readyState = 4           If hdyqf_XMLHTTP.Status = 200               my_ip = hdyqf_XMLHTTP.responseText           EndIf        EndIf    Return    Sub 写入日志       nr="IP:"& my_ip &"----时间:"&now()       Plugin File.WriteFileEx(".\日志.ini",nr)   Return