谁给我说下 CS IP列表怎么弄啊！！

风化千年

最好发上源码谢谢了我忘了

banchen

以下是一个完整的服务器列表代码

.版本 2
.程序集 窗口程序集1
.程序集变量 字段, 字段信息, , "2"
.程序集变量 表项, 文本型
.子程序 __启动窗口_创建完毕
.如果 (文件是否存在 (“Server.dat”) ＝ 假)
    字段 [1].名称 ＝ “Server”
    字段 [1].类型 ＝ #文本型
    字段 [1].最大文本长度 ＝ 64
    字段 [2].名称 ＝ “IP”
    字段 [2].类型 ＝ #整数型
    字段 [2].最大文本长度 ＝ 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.内容 ＝ 服务器分割 [1]
    编辑框5.内容 ＝ IP分割 [1]
    编辑框6.内容 ＝ IP分割 [2]
    标签4.标题 ＝ 到文本 (组合框1.取项目数值 (组合框1.现行选中项))
.如果真结束

.子程序 插入列表
.局部变量 i
打开 (“Server.dat”, 表项, , , , , )
组合框1.清空 ()
.判断循环首 (取反 (尾记录后 ()))
    .计次循环首 (取记录数 (), i)
        组合框1.加入项目 (读 (1), 读 (2))
        跳出循环 ()
    .计次循环尾 ()
    跳过 ()
.判断循环尾 ()
关闭 ()
.子程序 _按钮4_被单击
组合框1.删除项目 (组合框1.现行选中项)
插入库 ()
组合框1.现行选中项 ＝ 组合框1.取项目数 () － 1
_组合框1_列表项被选择 ()

a188

:L　看不懂

Hoyc

同上，看不明。

banchen

添加相应的可视化控件即可

8874323

什么来的.?
晕

a246022

thank you！
支持LZ
顶下
谢了

d4server

无语呀。。