谁给我说下 CS IP列表怎么弄啊！！
最好发上源码谢谢了我忘了回复: 谁给我说下 CS IP列表怎么弄啊！！
以下是一个完整的服务器列表代码.版本 2
.程序集 窗口程序集1
.程序集变量 字段, 字段信息, , "2"
.程序集变量 表项, 文本型
.子程序 __启动窗口_创建完毕
.如果 (文件是否存在 (“Server.dat”) ＝ 假)
字段 .名称 ＝ “Server”
字段 .类型 ＝ #文本型
字段 .最大文本长度 ＝ 64
字段 .名称 ＝ “IP”
字段 .类型 ＝ #整数型
字段 .最大文本长度 ＝ 8
.如果真 (创建 (“Server.dat”, 字段) ＝ 假)
信息框 (“创建数据库失败”, 0, )
.如果真结束
.否则
.如果结束
插入列表 ()
组合框1.现行选中项 ＝ 取数值注册项 (3, “Software\CS登录器\ServerIndex”, )
_组合框1_列表项被选择 ()
.子程序 _按钮3_被单击
组合框1.加入项目 (编辑框4.内容 ＋ “|” ＋ 编辑框5.内容 ＋ “:” ＋ 编辑框6.内容, 组合框1.取项目数 () ＋ 1)
组合框1.现行选中项 ＝ 组合框1.取项目数 () ＋ 1
_组合框1_列表项被选择 ()
插入库 ()
.子程序 插入库
.局部变量 i
.局部变量 文本分割, 文本型, , "2"
打开 (“Server.dat”, 表项, , , , , )
置当前库 (表项)
清空 ()
.计次循环首 (组合框1.取项目数 (), i)
i ＝ i － 1
加记录 (组合框1.取项目文本 (i), 组合框1.取项目数值 (i))
.计次循环尾 ()
关闭 ()
.子程序 _组合框1_列表项被选择
.局部变量 IP分割, 文本型, , "0"
.局部变量 服务器分割, 文本型, , "0"
写注册项 (3, “Software\CS登录器\ServerIndex”, 组合框1.现行选中项)
.如果真 (组合框1.取项目数 () ≠ 0)
服务器分割 ＝ 分割文本 (组合框1.取项目文本 (组合框1.现行选中项), “|”, )
IP分割 ＝ 分割文本 (服务器分割 [取数组下标 (服务器分割, )], “:”, )
编辑框4.内容 ＝ 服务器分割
编辑框5.内容 ＝ IP分割
编辑框6.内容 ＝ IP分割
标签4.标题 ＝ 到文本 (组合框1.取项目数值 (组合框1.现行选中项))
.如果真结束
.子程序 插入列表
.局部变量 i
打开 (“Server.dat”, 表项, , , , , )
组合框1.清空 ()
.判断循环首 (取反 (尾记录后 ()))
.计次循环首 (取记录数 (), i)
组合框1.加入项目 (读 (1), 读 (2))
跳出循环 ()
.计次循环尾 ()
跳过 ()
.判断循环尾 ()
关闭 ()
.子程序 _按钮4_被单击
组合框1.删除项目 (组合框1.现行选中项)
插入库 ()
组合框1.现行选中项 ＝ 组合框1.取项目数 () － 1
_组合框1_列表项被选择 () :L 看不懂 同上，看不明。 添加相应的可视化控件即可 什么来的.?
晕 thank you！
支持LZ
顶下
谢了 无语呀。。
页:
[1]