.版本 2 .支持库 internet .支持库 eAPI .支持库 EThread .程序集 窗口程序集_启动窗口, , , ' 本源码来自三叶资源网(www.sanye.cx) .子程序 _按钮1_被单击 按钮1.禁止 ＝ 真 时钟1.时钟周期 ＝ 到整数 (编辑框1.内容) × 1000 .子程序 _按钮2_被单击 按钮1.禁止 ＝ 假 时钟1.时钟周期 ＝ 0 .子程序 _按钮7_被单击 .参数 名称, 文本型 .参数 用户名, 文本型 .参数 密码, 文本型 .参数 n, 整数型 .参数 asdl, ADSL拨号类 ' 本源码来自三叶资源网(www.sanye.cx) asdl.取宽带用户名密码 (名称, 用户名, 密码) .计次循环首 (取拨号连接数 (), n) 组合框_宽带名称.加入项目 (取连接名称 (n － 1), ) .计次循环尾 () 编辑框_宽带账号.内容 ＝ 用户名 编辑框_宽带密码.内容 ＝ 密码 组合框_宽带名称.现行选中项 ＝ 0 .子程序 子程序_重播 .局部变量 宽带拨号文本, 文本型 .局部变量 j_ok, 逻辑型 挂断 () 程序_延时 (到整数 (600)) 拨号 (“@” ＋ 到文本 (组合框_宽带名称.现行选中项), 编辑框_宽带账号.内容, 编辑框_宽带密码.内容, 真, ) 程序_延时 (1, 1) .判断开始 (是否与互联网连接 () ＝ 假) 子程序_重播 () .默认 .判断结束 .子程序 _按钮6_被单击 子程序_重播 () .子程序 _时钟1_周期事件 启动线程 (&子程序_重播, , )