1个回答
2013-08-23
展开全部
.版本 2
.支持库 internet.程序集 窗口程序集1.子程序 __启动窗口_创建完毕
.局部变量 拨号连接数, 整数型
.局部变量 容器1, 整数型配置组合框.加入项目 (“指定电话号码”, )
拨号连接数 = 取拨号连接数 ()
.计次循环首 (拨号连接数, 容器1)
配置组合框.加入项目 (取连接名称 (容器1 - 1), )
.计次循环尾 ()
配置组合框.现行选中项 = 0.子程序 _配置组合框_列表项被选择.如果 (配置组合框.现行选中项 ≤ 0)
号码编辑框.禁止 = 假
帐号编辑框.内容 = “”
.否则
号码编辑框.禁止 = 真
帐号编辑框.内容 = 取用户帐号 (配置组合框.现行选中项 - 1)
.如果结束
.子程序 _挂断按钮_被单击挂断 ().子程序 _关闭按钮_被单击销毁 ().子程序 _拨号按钮_被单击
.局部变量 电话号码, 文本型.如果真 (是否已在线 ())
信息框 (“已经连接到拨号网络上”, #信息图标 + #确认钮, “信息”)
返回 ()
.如果真结束.如果 (配置组合框.现行选中项 ≤ 0)
电话号码 = 号码编辑框.内容
.否则
电话号码 = “@” + 到文本 (配置组合框.现行选中项 - 1)
.如果结束.如果 (拨号 (电话号码, 帐号编辑框.内容, 密码编辑框.内容, , 状态标签))
状态标签.标题 = “正在拨号...”
.否则
状态标签.标题 = “拨号失败”
.如果结束
.支持库 internet.程序集 窗口程序集1.子程序 __启动窗口_创建完毕
.局部变量 拨号连接数, 整数型
.局部变量 容器1, 整数型配置组合框.加入项目 (“指定电话号码”, )
拨号连接数 = 取拨号连接数 ()
.计次循环首 (拨号连接数, 容器1)
配置组合框.加入项目 (取连接名称 (容器1 - 1), )
.计次循环尾 ()
配置组合框.现行选中项 = 0.子程序 _配置组合框_列表项被选择.如果 (配置组合框.现行选中项 ≤ 0)
号码编辑框.禁止 = 假
帐号编辑框.内容 = “”
.否则
号码编辑框.禁止 = 真
帐号编辑框.内容 = 取用户帐号 (配置组合框.现行选中项 - 1)
.如果结束
.子程序 _挂断按钮_被单击挂断 ().子程序 _关闭按钮_被单击销毁 ().子程序 _拨号按钮_被单击
.局部变量 电话号码, 文本型.如果真 (是否已在线 ())
信息框 (“已经连接到拨号网络上”, #信息图标 + #确认钮, “信息”)
返回 ()
.如果真结束.如果 (配置组合框.现行选中项 ≤ 0)
电话号码 = 号码编辑框.内容
.否则
电话号码 = “@” + 到文本 (配置组合框.现行选中项 - 1)
.如果结束.如果 (拨号 (电话号码, 帐号编辑框.内容, 密码编辑框.内容, , 状态标签))
状态标签.标题 = “正在拨号...”
.否则
状态标签.标题 = “拨号失败”
.如果结束
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询