按键精灵自动拨号断开ADSL网络脚本源码(并能搜索指定网页)

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

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

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

运行环境：分辨率：1440x900 色深：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