域名更新器需要超级列表框，我不知道用，谁有教程，或是帮忙补下这源码

暗光

[e]
.版本 2
.支持库 sock
.支持库 internet
.支持库 eAPI
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.局部变量 本机IP, 文本型, , "2"
皮肤_启动皮肤 ()
皮肤_Aero特效 (真)
本机IP ＝ 取本机IP ()
编辑框4.内容 ＝ 本机IP [2]
.如果 (是否已在线 () ＝ 真)
    编辑框5.内容 ＝ 本机IP [1]
.否则
    编辑框5.内容 ＝ “未连接网络！”
.如果结束

.子程序 _按钮1_被单击
.局部变量 登陆地址, 文本型
.局部变量 登陆数据, 文本型
.局部变量 返回文本, 文本型
.局部变量 更新地址, 文本型
.局部变量 更新数据, 文本型
登陆地址 ＝ “http://www.3322.org/dyndns/login”
登陆数据 ＝ “username=” ＋ 删首尾空 (编辑框1.内容) ＋ “&action=login&password=” ＋ 删首尾空 (编辑框2.内容) ＋ “&submit.x=40&submit.y=9”
更新地址 ＝ “http://www.3322.org/dyndns/chrrs”
更新数据 ＝ “hostname=” ＋ 删首尾空 (编辑框3.内容) ＋ “&myip=” ＋ 删首尾空 (编辑框6.内容) ＋ “&mx=&backmx=NO&wildcard=OFF&offline=NO&act=mod&modflag=modflag&addrrs=%E7%A1%AE%E5%AE%9A”
.判断开始 (取文本长度 (编辑框3.内容) ＜ 13)
    信息框 (“请输入正确希网域名！”, 0, “提示”)
    编辑框3.内容 ＝ “”
    返回 ()
.判断 (取文本长度 (编辑框1.内容) ＜ 4)
    信息框 (“请输入正确用户名！”, 0, “提示”)
    编辑框1.内容 ＝ “”
    返回 ()
.判断 (取文本长度 (编辑框2.内容) ＜ 6)
    信息框 (“请输入正确密码！”, 0, “提示”)
    编辑框2.内容 ＝ “”
    返回 ()
.判断 (取文本长度 (编辑框2.内容) ＜ 8)
    信息框 (“请输入正确IP！”, 0, “提示”)
    返回 ()
.判断 (取文本长度 (编辑框2.内容) ＞ 15)
    信息框 (“请输入正确IP！”, 0, “提示”)
    返回 ()
.默认
    彗星HTTP读文件 (登陆地址, “POST”, , , 登陆数据)
    彗星HTTP读文件 (更新地址, “POST”, , , 更新数据)
.判断结束

.子程序 _按钮2_被单击
打开指定网址 (“http://www.3322.org/”)
.子程序 _按钮8_被单击
销毁 ()
.子程序 _按钮3_被单击

.子程序 _按钮6_被单击

.子程序 _按钮4_被单击

.子程序 _按钮5_被单击

.子程序 _按钮7_被单击
[/e]

http://u.115.com/file/f58ae42b0a
yuanma.rar

暗光

帮个忙啊！{:3_239:}

qwqw1351734

我也不回。

oddysus

这个其实得把数据保存下 之是写了下怎么使用超级列表框的方法
.版本 2
.支持库 iext

.子程序 _按钮3_被单击


超级列表框1.插入表项 (0, 编辑框3.内容, , , , )
超级列表框1.置标题 (0, 1, 编辑框1.内容)
超级列表框1.置标题 (0, 2, 文本替换 (编辑框2.内容, 1, 取文本长度 (编辑框2.内容), “*”))
超级列表框1.置标题 (0, 3, 编辑框6.内容)

.子程序 _按钮6_被单击

超级列表框1.全部删除 ()


.子程序 _按钮4_被单击



.子程序 _按钮5_被单击

超级列表框1.删除表项 (超级列表框1.现行选中项)


.子程序 _按钮7_被单击

超级列表框1.置标题 (超级列表框1.现行选中项, 2, 编辑框2.内容)

ehome

很好，很强大。

airpppp

2金币N行代码...
楼主很有经济头脑!