.版本 2 .程序集 窗口程序集1 .子程序 _按钮1_被单击 运行 (“QQ飞车的文件路径
发布网友
发布时间：2022-04-23 05:44
共3个回答
热心网友
时间：2023-10-17 02:55
热心网友
时间：2023-10-17 02:56
追问不行的
热心网友
时间：2023-10-17 02:56
块，如果你需要源码把邮箱写上，我给你发过去。
.版本 2
.支持库 internet
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
编辑框1.内容 ＝ 到文本 (读配置项 (取运行目录 () ＋ “\网络配置.ini”, “配置”, “账户”, ))
编辑框2.内容 ＝ 到文本 (读配置项 (取运行目录 () ＋ “\网络配置.ini”, “配置”, “密码”, ))
.如果 (是否已在线 () ＝ 真)
标签1.标题 ＝ “已经拨号！”
.否则
标签1.标题 ＝ “还没拨号!”
.如果结束
.如果 (注册项是否存在 (#本地机器, “software\microsoft\windows\CurrentVersion\Run\自动连接ADSL”) ＝ 真)
选择框3.选中 ＝ 真
.否则
选择框3.选中 ＝ 假
.如果结束
加载皮肤 (“皮肤模块”)
' 读加密账户和加密密码 ()
读取秒 ()
_启动窗口.可视 ＝ 真
.如果 (编辑框1.内容 ≠ “” 且 编辑框2.内容 ≠ “”)
.如果 (选择框3.选中 ＝ 真)
手动拨号 ()
托盘 ()
_启动窗口.可视 ＝ 假
.否则
.如果结束
.否则
.如果结束
托盘 ()
.子程序 _更改皮肤_被选择
皮肤参数调整 ()
.子程序 手动拨号
.如果 (编辑框1.内容 ≠ “” 且 编辑框2.内容 ≠ “”)
.如果 (拨号 (“@n”, 编辑框1.内容, 编辑框2.内容, 真, 标签1) ＝ 真)
时钟1.时钟周期 ＝ 秒
标签1.标题 ＝ “自动连接成功”
标签1.文本颜色 ＝ #蓝色
.否则
标签1.标题 ＝ “自动连接失败”
标签1.文本颜色 ＝ #红色
可视 ＝ 真
.如果结束
.否则
信息框 (“账户和密码不可以为空”, 0, )
.如果结束
.子程序 挂断1
时钟1.时钟周期 ＝ 0
挂断 ()
信息框 (“网络挂断成功”, 0, )
标签1.标题 ＝ “挂断”
.子程序 _按钮2_被单击
挂断1 ()
托盘 ()
.子程序 _时钟2_周期事件
.如果真 (是否已在线 () ＝ 假)
手动拨号 ()
.如果真结束
.子程序 _选择框1_被单击
.如果 (选择框1.选中 ＝ 假)
.如果真 (信息框 (“确认取消记住密码”, 1, ) ＝ 1)
选择框1.选中 ＝ 真
.如果真结束
.否则
信息框 (“记住密码已应用”, 0, )
.如果结束
.子程序 _按钮1_被单击
时钟1.时钟周期 ＝ 0
.如果 (编辑框1.内容 ≠ “” 且 编辑框2.内容 ≠ “”)
.如果 (拨号 (“@n”, 编辑框1.内容, 编辑框2.内容, 真, 标签1) ＝ 真)
时钟1.时钟周期 ＝ 秒
标签1.标题 ＝ “连接成功”
标签1.文本颜色 ＝ #蓝色
可视 ＝ 假
托盘 ()
.否则
标签1.标题 ＝ “连接失败”
标签1.文本颜色 ＝ #红色
托盘 ()
.如果结束
.否则
信息框 (“账户和密码不可以为空”, #警告图标, )
.如果结束
.如果真 (选择框1.选中 ＝ 真)
写配置项 (取运行目录 () ＋ “\网络配置.ini”, “配置”, “账户”, 编辑框1.内容)
写配置项 (取运行目录 () ＋ “\网络配置.ini”, “配置”, “密码”, 编辑框2.内容)
.如果真结束
.子程序 _选择框3_被单击
.如果 (选择框3.选中 ＝ 真)
写注册项 (#本地机器, “software\microsoft\windows\CurrentVersion\Run\自动连接ADSL”, 取运行目录 () ＋ “\” ＋ 取执行文件名 ())
信息框 (“设置开机自动连接成功”, 0, )
.否则
删除注册项 (#本地机器, “software\microsoft\windows\CurrentVersion\Run\自动连接ADSL”)
信息框 (“设置开机不自动连接成功”, 0, )
.如果结束
.子程序 _时钟1_周期事件
.如果 (选择框2.选中 ＝ 真)
.如果真 (是否已在线 () ＝ 假)
手动拨号 ()
托盘 ()
.如果真结束
.否则
.如果结束
.子程序 _断线重连频率_被选择
载入 (窗口1, , 真)
.子程序 读取秒
秒 ＝ 到数值 (读配置项 (取运行目录 () ＋ “\网络配置.ini”, “配置”, “断线重连间隔”, “5”))
.子程序 __启动窗口_位置被改变
.如果 (_启动窗口.位置 ＝ 2)
_启动窗口.可视 ＝ 假
托盘 ()
.否则
.如果结束
.子程序 托盘
.如果 (是否已在线 () ＝ 真)
置托盘图标 (#图标红, “宽带连接:(” ＋ 标签1.标题 ＋ “)”)
.否则
置托盘图标 (#图标绿, “宽带连接:(” ＋ 标签1.标题 ＋ “)”)
.如果结束
.子程序 __启动窗口_托盘事件
.参数 操作类型, 整数型
.如果 (操作类型 ＝ 1)
_启动窗口.可视 ＝ 真
_启动窗口.位置 ＝ 1
.否则
.如果结束
.如果 (操作类型 ＝ 3)
弹出菜单 (功能, , )
.否则
.如果结束
.子程序 _选择框2_被单击
.如果 (选择框2.选中 ＝ 假)
信息框 (“断线重连功能已经关闭”, 0, )
.否则
信息框 (“断线重连功能开启”, 0, )
.如果结束
.子程序 _连接_被选择
.如果 (是否已在线 () ＝ 假)
_按钮1_被单击 ()
.否则
信息框 (“你已经连接网络”, 0, )
.如果结束
.子程序 _断开_被选择
_按钮2_被单击 ()
.子程序 _退出_被选择
_启动窗口.可视 ＝ 真
_启动窗口.位置 ＝ 1
.程序集 窗口程序集2
.子程序 _按钮1_被单击
销毁 ()
.子程序 _按钮2_被单击
.如果 (到数值 (编辑框1.内容) ＜ 5)
信息框 (“不可以设置5秒以下！” ＋ #换行符 ＋ “否则会出现无*连接的错误”, 0, )
.否则
写配置项 (取运行目录 () ＋ “\网络配置.ini”, “配置”, “断线重连间隔”, 到文本 (秒))
销毁 ()
.如果结束
.子程序 _编辑框1_内容被改变
秒 ＝ 到数值 (编辑框1.内容)
秒 ＝ 秒 × 1000
.
全局变量 秒, 长整数型
.图片 图标绿
.图片 图标红追问
好像不能打邮箱 那我截图给你吧！
要不好人做到底的，把源码和模块一起发来呗？
