本站的易语言问答相关内容均转载自精易论坛
问题
有个网站有限制，限制1个账号1分钟cha询1次，但是我有10个账号。
假设：
url=xiajiba.com
data=111111
data=222222
data=333333
data=444444
data=555555
data=666666
data=777777
data=888888
data=999999
data=000000
我现在的办法是
.版本 2 .子程序 __启动窗口_创建完毕 .局部变量 str, 文本型 .局部变量 url, 文本型 .局部变量 data1, 文本型 .局部变量 data2, 文本型 .局部变量 data3, 文本型 .局部变量 data4, 文本型 .局部变量 data5, 文本型 .局部变量 data6, 文本型 .局部变量 data7, 文本型 .局部变量 data8, 文本型 .局部变量 data9, 文本型 .局部变量 data10, 文本型 url ＝ “xiajiaba.com” data1 ＝ “111111” data2 ＝ “222222” data3 ＝ “333333” data4 ＝ “444444” data5 ＝ “555555” data6 ＝ “666666” data7 ＝ “777777” data8 ＝ “888888” data9 ＝ “999999” data10 ＝ “000000” .判断循环首 (真) str ＝ 网页_访问_对象 (“xiajiba.com”, 1, data1) .如果真 (寻找文本 (str, “正确”, , 假) ≠ -1) 跳出循环 () .如果真结束 .判断循环尾 () .判断循环首 (真) str ＝ 网页_访问_对象 (“xiajiba.com”, 1, data1) .如果真 (寻找文本 (str, “正确”, , 假) ≠ -1) 跳出循环 () .如果真结束 .判断循环尾 () .判断循环首 (真) str ＝ 网页_访问_对象 (“xiajiba.com”, 1, data2) .如果真 (寻找文本 (str, “正确”, , 假) ≠ -1) 跳出循环 () .如果真结束 .判断循环尾 () .判断循环首 (真) str ＝ 网页_访问_对象 (“xiajiba.com”, 1, data3) .如果真 (寻找文本 (str, “正确”, , 假) ≠ -1) 跳出循环 () .如果真结束 .判断循环尾 () .判断循环首 (真) str ＝ 网页_访问_对象 (“xiajiba.com”, 1, data4) .如果真 (寻找文本 (str, “正确”, , 假) ≠ -1) 跳出循环 () .如果真结束 .判断循环尾 () .判断循环首 (真) str ＝ 网页_访问_对象 (“xiajiba.com”, 1, data5) .如果真 (寻找文本 (str, “正确”, , 假) ≠ -1) 跳出循环 () .如果真结束 .判断循环尾 () .判断循环首 (真) str ＝ 网页_访问_对象 (“xiajiba.com”, 1, data6) .如果真 (寻找文本 (str, “正确”, , 假) ≠ -1) 跳出循环 () .如果真结束 .判断循环尾 () .判断循环首 (真) str ＝ 网页_访问_对象 (“xiajiba.com”, 1, data7) .如果真 (寻找文本 (str, “正确”, , 假) ≠ -1) 跳出循环 () .如果真结束 .判断循环尾 () .判断循环首 (真) str ＝ 网页_访问_对象 (“xiajiba.com”, 1, data8) .如果真 (寻找文本 (str, “正确”, , 假) ≠ -1) 跳出循环 () .如果真结束 .判断循环尾 () .判断循环首 (真) str ＝ 网页_访问_对象 (“xiajiba.com”, 1, data9) .如果真 (寻找文本 (str, “正确”, , 假) ≠ -1) 跳出循环 () .如果真结束 .判断循环尾 () .判断循环首 (真) str ＝ 网页_访问_对象 (“xiajiba.com”, 1, data10) .如果真 (寻找文本 (str, “正确”, , 假) ≠ -1) 跳出循环 () .如果真结束 .判断循环尾 ()
解答
大概就这样会好一点
.版本 2 .支持库 EThread .支持库 spec .程序集 程序集1 .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行 子程序1 () 返回 (0) ' 可以根据您的需要返回任意数值 .子程序 子程序1 启动线程 (&子程序2, , ) .子程序 子程序2 .局部变量 JB_str, 文本型 .局部变量 url, 文本型 .局部变量 JB_计次, 整数型 .局部变量 JB_data, 文本型 url ＝ “xiajiaba.com” .计次循环首 (3, JB_计次) JB_data ＝ 子程序3 (JB_计次) .判断循环首 (真) JB_str ＝ 到文本 (网页_访问_对象 (url, 1, JB_data)) 调试输出 (JB_str) .如果真 (寻找文本 (JB_str, “正确”, , 假) ≠ -1) 跳出循环 () .如果真结束 延时 (1000) .判断循环尾 () 延时 (5000) .计次循环尾 () .子程序 子程序3, 文本型 .参数 JB_计次 .局部变量 data, 文本型 .判断开始 (JB_计次 ＝ 1) data ＝ “111111” .判断 (JB_计次 ＝ 2) data ＝ “222222” .判断 (JB_计次 ＝ 3) data ＝ “333333” .默认 .判断结束 返回 (data)
