VPS 自动拨号源码

.版本 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_周期事件

启动线程 (&子程序_重播, , )

@赵雅欣