30行文字，随机（1-3行）读入编辑框，就要更换IP

绿叶

1.txt文本一共有三十行，按顺序要出现在编辑框，每读入编辑框1-3(随机)行，可以读入一行，也可以读入三行，

然后更换IP，这是一个循环套循环，更换IP的语句已经写好，看附件！

排序.rar (1.24 KB, 下载次数: 55)

2011-7-19 00:52 上传

点击文件名下载附件

孤心人

这样顺序就没问题了，看看吧

简易人生

.版本 2
.支持库 internet

.子程序 _按钮1_被单击
.局部变量 命令行, 文本型, , "0"
.局部变量 文件号, 整数型
.局部变量 文件路径, 文本型
.局部变量 i, 整数型
.局部变量 行数, 整数型

通用对话框1.初始目录 ＝ 取运行目录 ()
通用对话框1.类型 ＝ 0
.如果真 (通用对话框1.打开 () ＝ 真)
    文件路径 ＝ 通用对话框1.文件名
    文件号 ＝ 打开文件 (文件路径, 1, )
    .如果真 (读入文本 (文件号, ) ≠ “”)
        命令行 ＝ 分割文本 (读入文本 (文件号, ), #换行符, )

    .如果真结束

.如果真结束
.判断循环首 (行数 ≤ 取数组成员数 (命令行))
    .计次循环首 (取随机数 (1, 3), i)
        行数 ＝ 行数 ＋ 1
        .如果 (行数 ≤ 取数组成员数 (命令行))
            编辑框1.内容 ＝ 编辑框1.内容 ＋ 命令行 [行数] ＋ #换行符
        .否则
            跳出循环 ()
        .如果结束

    .计次循环尾 ()
    更换IP子程序 ()
.判断循环尾 ()


.子程序 更换IP子程序

.如果真 (是否已在线 () ＝ 假)

.如果真结束
InternetDial (0, “adsl”, 2, 0, 0)




忘记+关闭文件了。。自己搞定了
排序.rar (1.85 KB, 下载次数: 20)

2011-7-19 01:19 上传

点击文件名下载附件

heiyi

写好了，你看看

排序.rar (616.21 KB, 下载次数: 41)

2011-7-19 02:06 上传

点击文件名下载附件

简易人生

记得给钱哈~~~~~~~~~~

绿叶

简易人生 发表于 2011-7-19 01:19
.版本 2
.支持库 internet

排序过程中，只有一次拨号，实际需要，调入1-3行就拨号一次,不符合要求

绿叶

问题补充一下，应该是描述不够清楚，

1.txt文本一共有三十行，按顺序要出现在编辑框，每读入编辑框1-3(随机)行，然后更换IP，继续读入编辑框1-3(随机)行，继续拨号换IP，直到30行全部读入

孤心人

绿叶 发表于 2011-7-19 07:28
问题补充一下，应该是描述不够清楚，

1.txt文本一共有三十行，按顺序要出现在编辑框，每读入编辑框1-3(随 ...

试试看，编辑框1显示你30行的数据，编辑框2显示每次随机选择的1-3行（这个只是为了显示出来，具体你有什么实际用处只要把显示的结果用到你自己的程序中就可以了）

简易人生

绿叶 发表于 2011-7-19 07:28
问题补充一下，应该是描述不够清楚，

1.txt文本一共有三十行，按顺序要出现在编辑框，每读入编辑框1-3(随 ...

只有一次adsl拨号？然后每读入满3行 更换一次IP 但是不断开adsl连接？
已经改好了。。
排序.rar (1.81 KB, 下载次数: 18)

2011-7-19 08:30 上传

点击文件名下载附件

绿叶

孤心人 发表于 2011-7-19 07:50
试试看，编辑框1显示你30行的数据，编辑框2显示每次随机选择的1-3行（这个只是为了显示出来，具体你有什 ...

测试后，现在编辑框2是乱序排列，要求按顺序出现在编辑框2，

另外编辑框1能实现选中项跟随不？也就是说，编辑框2出现哪个时，选中项指向编辑框1内的数字