[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
机就不挂了,感觉是浪费电
不过现在速度是可以稳超Codegay兄了

TOP

  1. codegay    25859 + 4
  2. 老刘       1792 + 50
  3. vic2       1730 + 4
  4. bbaa       59 + 0
  5. racket     9 + 0
  6. codegay    25859 + 4
  7. 老刘       1792 + 52
  8. vic2       1730 + 4
  9. bbaa       59 + 0
  10. racket     9 + 0
  11. codegay    25859 + 4
  12. 老刘       1792 + 54
  13. vic2       1730 + 4
  14. bbaa       59 + 0
  15. racket     9 + 0
复制代码

TOP

本帖最后由 qazplm 于 2017-7-20 12:17 编辑

回复 87# 老刘1号

[大鱼小鱼或等鱼?]
何必加密呢,懂的还要多费时间,不懂的给源码也看不懂,半桶水的干脆略过
另外如果第一名名称为 a,a"a,",split就不适用了,vbs解析json,可以使用htmlfile对象的execScript方法
  1. With CreateObject("MSXML2.XMLHTTP")
  2.     .Open "POST","http://bbaass.tk/math/", False
  3.     .setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
  4.     .setRequestHeader "User-Agent","Chrome/59.0.3071.115"
  5.     .send "send=Answer&math=5000&username=老刘"
  6.     Set html = CreateObject("htmlfile")
  7.     Set wd = html.parentWindow
  8.     wd.execScript "var json=" & .responseText, "JScript"
  9.     Set result = wd.json
  10.     WSH.Echo result.re & vbCrLf & result.tokens
  11. End With
复制代码
2

评分人数

TOP

回复 93# qazplm


    感谢指导,学习了
简单加密的原因是昨天有游客使用我19楼的代码刷分
不但导致服务器负载,还影响公平性
不过我已经明说了,研究算法或代码的话,可以直接私信我
我也不会吝惜什么,绝对双手奉上还带讲解的

TOP

回复 94# 老刘1号

噗嗤,加密的原因好单纯

TOP

回复 90# codegay


    算法趋于统一了么
坐等5230兄的多线程算法

TOP

本帖最后由 523066680 于 2017-7-20 15:46 编辑

回复 96# 老刘1号


    以前没正式用过线程,现在被自己写的 bug 搞得抓狂 ……

好像有点效果 (让我再观察观察
  1. codegay    27522 + 0
  2. 老刘       3753 + 4
  3. vic2       1745 + 3
  4. bbaa       59 + 0
  5. racket     28 + 0
  6. codegay    27522 + 0
  7. 老刘       3753 + 4
  8. vic2       1745 + 5
  9. bbaa       59 + 0
  10. racket     28 + 0
  11. codegay    27522 + 0
  12. 老刘       3753 + 4
  13. vic2       1745 + 8
  14. bbaa       59 + 0
  15. racket     28 + 0
复制代码
有 bug, 在调

TOP

本帖最后由 523066680 于 2017-7-20 17:03 编辑

你猜我用了多少线程
  1. ......min:    0 max:10000  1000<N, 2000>N, 3000>N, 4000>N, 5000>N, 6000>N, 7000>N, 8000>N, 9000>N,
  2. ......min: 1000 max: 2000  1100<N, 1200<N, 1300<N, 1400<N, 1500<N, 1600<N, 1700>N, 1800>N, 1900>N,
  3. ......min: 1600 max: 1700  1610<N, 1620<N, 1630<N, 1640<N, 1650<N, 1660<N, 1670<N, 1680>N, 1690>N,
  4. ....Content error, try again.
  5. ..34tokens diff
  6. ......min:    0 max:10000  1000<N, 2000<N, 3000<N, 4000<N, 5000<N, 6000<N, 7000<N, 8000>N, 9000>N,
  7. ......min: 7000 max: 8000  7100<N, 7200<N, 7300N, 7400>N, 7500>N, 7600>N, 7700>N, 7800>N, 7900>N,
  8. ......min: 7200 max: 7400  7220<N, 7240<N, 7260N, 7280<N, 7300<N, 7320<N, 7340>N, 7360>N, 7380>N,
  9. Content error, try again.
  10. ......min: 7320 max: 7340  7322N, 7324<N, 7326<N, 7328N, 7330<N, 7332<N, 7334<N, 7336<N, 7338<N,
复制代码
刷结果的效率比之前是高很多,但还是勉强追上老刘的速度
  1. codegay    27555 + 0
  2. 老刘       4514 + 4
  3. vic2       1805 + 4
  4. bbaa       74 + 0
  5. racket     28 + 0
  6. codegay    27555 + 0
  7. 老刘       4514 + 8
  8. vic2       1805 + 6
  9. bbaa       74 + 0
  10. racket     28 + 0
复制代码
一段时间后
  1. codegay    27555 + 1
  2. 老刘       4514 + 38
  3. vic2       1805 + 38
  4. bbaa       74 + 0
  5. racket     28 + 0
复制代码

TOP

回复 98# 523066680


    告诉你个消息,变化列表最迟在今晚内置
    [一分钟更新一次]
    [和一小时更新一次的列表]
    [目前收集信息模块已经完成]
    [正在做界面]
    如果时间充裕的话可能会做像顶楼那样的GD自动生成图片
    目前自动到收集的信息
    一分钟
  1. {
  2.          "change": {
  3.                   "minute": {
  4.                            "last": {
  5.                                     "user": {
  6.                                              "codegay": "27558",
  7.                                              "vic2": "1963",
  8.                                              "bbaa": "74",
  9.                                              "老刘": "4718",
  10.                                              "racket": "28",
  11.                                              "vic3": "18"
  12.                                     },
  13.                                     "Timestamp": 0,
  14.                                     "timestamp": 1500542815
  15.                            },
  16.                            "done": {
  17.                                     "user": {
  18.                                              "vic2": 8,
  19.                                              "老刘": 6,
  20.                                              "codegay": 1,
  21.                                              "vic3": 0,
  22.                                              "bbaa": 0,
  23.                                              "racket": 0
  24.                                     },
  25.                                     "lastu": {
  26.                                              "codegay": "27557",
  27.                                              "vic2": "1955",
  28.                                              "bbaa": "74",
  29.                                              "老刘": "4712",
  30.                                              "racket": "28",
  31.                                              "vic3": "18"
  32.                                     }
  33.                            }
  34.                   },
  35.                   "hour": {
  36.                            "last": {
  37.                                     "user": {
  38.                                              "codegay": "27557",
  39.                                              "vic2": "1953",
  40.                                              "bbaa": "74",
  41.                                              "老刘": "4686",
  42.                                              "racket": "28",
  43.                                              "vic3": "18"
  44.                                     },
  45.                                     "Timestamp": 0,
  46.                                     "timestamp": 1500542575
  47.                            },
  48.                            "done": {
  49.                                     "user": [],
  50.                                     "lastu": []
  51.                            }
  52.                   }
  53.          }
  54. }
复制代码
1

评分人数

TOP

回复 99# bbaa


    喇就省得我单独跑一个脚本看跑步差距了。

TOP

本帖最后由 523066680 于 2017-7-20 17:42 编辑

由二分扩展为N段划分的 Perl 代码示例。
整体思路:均匀采样,统一交给线程去跑,等结果都返回了,缩小 min 和 max 的范围继续跑

线程的代码去掉了,有蜜汁Bug
  1. =info
  2.     Author: 523066680
  3.     Date: 2017-07
  4. =cut
  5. use IO::Handle;
  6. use Time::HiRes qw/sleep/;
  7. STDOUT->autoflush(1);
  8. our $n = int(rand(10000));
  9. my ($min, $max) = (0, 10000);
  10. my $div = 10;
  11. my @ele;
  12. my @cmp;
  13. while (1)
  14. {
  15.     @ele = map { int( ($max-$min+1) / $div * $_) + $min } ( 1 .. $div-1 );
  16.     @cmp = map { check($_) } @ele;
  17.     printf "min:%5d max:%5d n=%5d  ", $min, $max, $n;
  18.     grep { printf "%d %s N ", $ele[$_], $cmp[$_] } ( 0 .. $#ele );
  19.     print "\n";
  20.     grep { $min = $ele[$_] if ($cmp[$_] eq '<') } ( 0 .. $#cmp );
  21.     grep { $max = $ele[$_] if ($cmp[$_] eq '>') } ( reverse 0 .. $#cmp );
  22.     grep { last if ($_ eq '=') } ( @cmp );
  23.     sleep 0.3;
  24. }
  25. sub check
  26. {
  27.     our $n;
  28.     my $guess = shift;
  29.     return ($guess < $n) ? "<" : ($guess > $n) ? ">" : "=" ;
  30. }
复制代码
测试时加了sleep怕死循环
  1. min:    0 max:10000 n= 2760  1000 < N 2000 < N 3000 > N 4000 > N 5000 > N 6000 > N 7000 > N 8000 > N 9000 > N
  2. min: 2000 max: 3000 n= 2760  2100 < N 2200 < N 2300 < N 2400 < N 2500 < N 2600 < N 2700 < N 2800 > N 2900 > N
  3. min: 2700 max: 2800 n= 2760  2710 < N 2720 < N 2730 < N 2740 < N 2750 < N 2760 = N 2770 > N 2780 > N 2790 > N
  4. .[Finished in 0.8s]
复制代码
看到 bbaa 也在发力了
  1. codegay    27556 + 3
  2. 老刘       4684 + 100
  3. vic2       1945 + 125
  4. bbaa       74 + 37
  5. racket     28 + 0
复制代码
1

评分人数

TOP

本帖最后由 老刘1号 于 2017-7-20 20:49 编辑

回复 98# 523066680
厉害,我的脚本已经处于劣势了
其他:
脚本已开源。

TOP

回复 99# bbaa


    666支持
不过一楼的那个列表现在一打开就加载七页的数据(感觉在烧批家的流量啊)

TOP

回复 103# 老刘1号


    列表改单页了....

TOP

本帖最后由 bbaa 于 2017-7-20 19:47 编辑

回复 101# 523066680


完成100%
点击打开
注,只有距离上次更新有一【小时/分钟】才会更新

TOP

返回列表