.版本 2
.支持库 internet
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.局部变量 拨号连接数, 整数型
.局部变量 容器1, 整数型
配置组合框.加入项目 (“指定电话号码”, )
拨号连接数 ＝ 取拨号连接数 ()
.计次循环首 (拨号连接数, 容器1)
配置组合框.加入项目 (取连接名称 (容器1 － 1), )
.计次循环尾 ()
配置组合框.现行选中项 ＝ 0
.子程序 _配置组合框_列表项被选择
.如果 (配置组合框.现行选中项 ≤ 0)
号码编辑框.禁止 ＝ 假
帐号编辑框.内容 ＝ “”
.否则
号码编辑框.禁止 ＝ 真
帐号编辑框.内容 ＝ 取用户帐号 (配置组合框.现行选中项 － 1)
.如果结束
.子程序 _挂断按钮_被单击
挂断 ()
.子程序 _关闭按钮_被单击
销毁 ()
.子程序 _拨号按钮_被单击
.局部变量 电话号码, 文本型
.如果真 (是否已在线 ())
信息框 (“已经连接到拨号网络上”, #信息图标 ＋ #确认钮, “信息”)
返回 ()
.如果真结束
.如果 (配置组合框.现行选中项 ≤ 0)
电话号码 ＝ 号码编辑框.内容
.否则
电话号码 ＝ “@” ＋ 到文本 (配置组合框.现行选中项 － 1)
.如果结束
.如果 (拨号 (电话号码, 帐号编辑框.内容, 密码编辑框.内容, , 状态标签))
状态标签.标题 ＝ “正在拨号...”
.否则
状态标签.标题 ＝ “拨号失败”
.如果结束
代码直接给你
Storm代理
2023-05-30 广告
.版本 2
.支持库 internet
.程序集 窗口程序集1
.子程序 _按钮3_被单击, , , 连接宽带
拨号 (“@0”, 编辑框1.内容, 编辑框2.内容, , )
.子程序 _按钮2_被单击, , , 断开连接
挂断 ()
.子程序 _按钮1_被单击, , , 保存编辑框1和编辑框2的内容，结合下面一项可以自动填写账号和密码
写配置项 (取运行目录 () ＋ “\宽带.ini”, “参数”, “账号”, 编辑框1.内容)
写配置项 (取运行目录 () ＋ “\宽带.ini”, “参数”, “密码”, 编辑框2.内容)
信息框 (“保存成功”, 0, )
.如果 (文件是否存在 (取运行目录 () ＋ “_按钮1 禁止=真”) ＝ 真)
.否则
.如果结束
.子程序 __启动窗口_创建完毕, , , 这个是自动导入你已经保存的宽带
.如果 (文件是否存在 (取运行目录 () ＋ “\adsl.ini”) ＝ 真)
编辑框1.内容 ＝ 读配置项 (取运行目录 () ＋ “\adsl.ini”, “参数”, “账号”, )
编辑框2.内容 ＝ 读配置项 (取运行目录 () ＋ “\adsl.ini”, “参数”, “密码”, )
.否则
.如果结束
首先写到开机启动。然后自动拨号。要什么编辑框呢。
设置自动运行 (“您的程序.exe”, 取运行目录 () ＋ “\您的程序.exe”, 0)
拨号 (“@”, “宽带账号”, “宽带密码”, , )
你还可以写个最小化到托盘的源码，就不一一列举了。需要请追问。
