宽带拨号易语言源码

.版本 2
.支持库 internet

.子程序 _按钮_开始拨号_被单击

标签_拨号状态.标题 ＝ “”
.循环判断首 ()
    .循环判断首 ()
        运行 (“rasphone -h ” ＋ “宽带连接”, 假, #隐藏窗口)
        标签_拨号状态.标题 ＝ “拨号状态:” ＋ “正在断开连接”
        程序_延时 (5000)
    .循环判断尾 (是否已在线 () ＝ 真)
    运行 (“rasdial 宽带连接 ” ＋ 编辑框1.内容 ＋ “ ” ＋ 编辑框2.内容, 假, #隐藏窗口)
    标签_拨号状态.标题 ＝ “拨号状态:” ＋ “已拨号,正在等待连通.”
    程序_延时 (12000)
.循环判断尾 (是否已在线 () ＝ 假)
标签_拨号状态.标题 ＝ “拨号状态:” ＋ “就绪.”

@木子开发