拨号上网

想学坏的小孩 · 发表于 2010-1-21 17:22:03

.版本 2
.支持库 internet

.程序集窗口程序集1

.子程序 __启动窗口_创建完毕
.局部变量拨号连接数, 整数型
.局部变量数, 整数型

配置组合框.加入项目 (“指定电话号码”, )
拨号连接数＝取拨号连接数 ()
.计次循环首 (拨号连接数, 数)
配置组合框.加入项目 (取连接名称 (数－ 1), )
.计次循环尾 ()
配置组合框.现行选中项＝ 0

.子程序 _配置组合框_列表项被选择

.如果 (配置组合框.现行选中项 ≤ 0)
号码编辑框.禁止＝假
帐号编辑框.内容＝ “”
.否则
号码编辑框.禁止＝真
帐号编辑框.内容＝取用户帐号 (配置组合框.现行选中项－ 1)
.如果结束

.子程序 _挂断按钮_被单击

挂断 ()

.子程序 _关闭按钮_被单击

销毁 ()

.子程序 _拨号按钮_被单击
.局部变量电话号码, 文本型

.如果真 (是否已在线 ())
信息框 (“已经连接到拨号网络上”, #信息图标＋ #确认钮, “信息”)
返回 ()
.如果真结束

.如果 (配置组合框.现行选中项 ≤ 0)
电话号码＝号码编辑框.内容
.否则
电话号码＝ “@” ＋到文本 (配置组合框.现行选中项－ 1)
.如果结束

.如果 (拨号 (电话号码, 帐号编辑框.内容, 密码编辑框.内容, , 状态标签))
状态标签.标题＝ “正在拨号...”
.否则
状态标签.标题＝ “拨号失败”
.如果结束

long5tianxia · 发表于 2011-10-13 11:20:06

好东西啊{:3_232:}

406975653 · 发表于 2012-1-8 19:12:33

看一看为什么前面有个问号？

开心益百 · 发表于 2012-3-14 22:26:55

看看的可以把

ccyok · 发表于 2012-4-20 02:12:42

支持一下，正需要到。谢谢。

142297 · 发表于 2012-4-21 20:31:46

有不用宽带可以上网啊！！！！！！！！！！！！！！！adsl拨号调用系统的自带宽带拨号宽带自动拨号换ip软件、自动检测帐号。密码、自动拨

冒险岛私服公司 · 发表于 2012-4-21 22:05:42

这个事真的吗？

Croce · 发表于 2012-6-8 18:06:04

看一看为什么前面有个问号？

乐酷仔／ · 发表于 2013-2-23 20:29:56

支持一下，正需要到。谢谢

乐酷仔／ · 发表于 2013-2-23 20:40:10

.版本 2
.支持库 internet
.子程序 _按钮_留言_被单击, , , 留言板
连接发信服务器 (“smtp.qq.com”, , “QQ账号@qq.com”, “QQ密码”, )
发送邮件 (“火线助手留言板”, “姓名：” ＋编辑框_姓名.内容＋ #换行符＋ “留言内容：” ＋编辑框_留言内容.内容, “收信邮箱”, , , “发信邮箱”, )

		自动登录	找回密码
密码			注册

[易源码分享] 拨号上网