UserVar bhname="ADSL连接测试" 设置自动拨号的连接
UserVar baiduss="按键精灵优秀软件" 设置百度搜索关键词
//
//
Plugin Web.Bind("WQM.exe")
Rem 脚本开始
//下面这句是判断连接是否在线[断线返回<False>,否则返回<True>]
Plugin bhOnLine = Net.IsOnline()
//先判断这个连接是否在线
If bhOnLine=False
    //不在线就拨号
    Plugin bhyes=Net.DialUp(bhname)
EndIf 
//拨号成功
If bhyes=TRUE or bhOnLine=TRUE
    Plugin Web.Go("http://www.baidu.com/baidu?word=" & baiduss)
    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 
Sub OnScriptExit
    MessageBox "脚本已经停止！"
    VBSCall RunApp(".\日志.ini")
Return