【此贴已经过气】
API:http://bbaass.tk/math/
POST:
注册:
send:"reg",
username:username
发送答案:
send:"Answer",
mathint)答案,
username:username
Return:Json
code => 200
re => ">" or "<" or "=" [=代表正确]
tokens => 本局tokens [如果tokens变化代表,本局结束 开始下一局]
winer => 上局赢家[可以知道谁抢了你的题目]
复制代码
- if (empty($json["Username"][$Username])) {if ($_POST["send"]!=="reg") {die (header("HTTP/1.1 500 Internal Server Error"));}}
复制代码
- With CreateObject("MSXML2.XMLHTTP")
- .Open "POST", "http://bbaass.tk/math/", False
- .setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
- .Send "send=reg&username=老刘"
- End With
- For i = 1 to 100
- If math(i) = "=" then msgbox "Win!The number is "&i
- next
- Function Math(num)
- With CreateObject("MSXML2.XMLHTTP")
- .Open "POST","http://bbaass.tk/math/", False
- .setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
- .send "send=Answer&math=" & num & "&username=老刘"
- Math = Split(Split(.responseText,",")(2),"""")(3)
- End With
- End Function
复制代码
- # -*- coding: utf-8 -*-
- """
- Created on 2017-07-02 02:21:10
- @author: codegay
- python3 & 编辑器 == spyder
- """
- import requests
- apiurl = "http://bbaass.tk/math/"
- math = 50
- data = {
- 'send': 'Answer',
- 'username': 'codegay',
- 'math': math,
- }
- session = requests.Session()
- while True:
- for r in range(1, 101):
- data['math'] = r
- post = session.post(apiurl, data=data)
- re = post.json()['re']
- if re == '=':
- break
复制代码
- import requests
- # 用户信息
- userNAMZE='Psaa'
- # 主机地址
- hostURL='http://bbaass.tk/math/'
- # 提交数据
- postDATA={'send':'Answer', 'username':userNAMZE, 'math':50}
- # 注册用户名
- requests.Session().post(hostURL, {'send':'reg', 'username':userNAMZE})
- # 辗转移位
- def GuessFun(mathMIN, mathMAX):
- # 搜索次数
- searchTIMES=0
- while mathMAX-mathMIN >1:
- postDATA['math'] = (mathMAX+mathMIN)>>1
- searchTIMES +=1
- print("The %d times"%(searchTIMES))
- r = requests.Session().post(hostURL, postDATA).json()
- ret = r['re']
- if ret == '=':
- break
- elif ret == '<':
- mathMIN=postDATA['math']
- else:
- mathMAX=postDATA['math']
- return searchTIMES
- # 打印结果
- if __name__ == "__main__":
- searchTIMES = GuessFun(-1, 101)
- print("Search times: %d\nGuess the number: %d"%(searchTIMES, postDATA['math']))
复制代码
- unset($json["Username"][""]);
复制代码
- '&cls&@echo off&cscript -nologo -e:vbscript "%~0"&pause&exit
- With CreateObject("MSXML2.XMLHTTP")
- .Open "POST", "http://bbaass.tk/math/", False
- .setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
- .Send "send=reg&username=老刘"
- End With
- Do
- Bisection -1,101,0
- Loop
- Sub Bisection(low,high,s)
- Mid_=(High+Low)\2
- if s<=7 then
- Select Case Cstr(Math(Mid_))
- Case "="
- wscript.echo "Win!The number is "&Mid_
- Case ">"
- WScript.Echo ">,so try "&Low&","&Mid_
- Bisection Low,Mid_,s+1
- Case "<"
- WScript.Echo "<,so try "&Mid_&","&High
- Bisection Mid_,High,s+1
- End Select
- end if
- End Sub
- Function Math(num)
- With CreateObject("MSXML2.XMLHTTP")
- .Open "POST","http://bbaass.tk/math/", False
- .setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
- .send "send=Answer&math=" & num & "&username=老刘"
- Math = Split(Split(.responseText,",")(2),"""")(3)
- End With
- End Function
网站崩了,本来能超过第一的复制代码
- package com.rekonquer.math;
- import com.google.gson.Gson;
- import okhttp3.*;
- import java.io.IOException;
- /**
- * Author: MagicDroidX
- */
- public class Main {
- public static OkHttpClient HTTP_CLIENT;
- public static String token = null;
- public static int min = 1;
- public static int num = 50;
- public static int max = 100;
- public static void main(String[] args) throws IOException {
- HTTP_CLIENT = new OkHttpClient.Builder()
- .build();
- while (true) {
- AnswerRequest request = new AnswerRequest();
- request.math = num;
- Response response = HTTP_CLIENT.newCall(
- new Request.Builder()
- .url("http://bbaass.tk/math/index.php")
- .post(new FormBody.Builder()
- .add("send", "Answer")
- .add("username", "reKonquer")
- .add("math", String.valueOf(num))
- .build()
- )
- .build()
- ).execute();
- if (!response.isSuccessful()) {
- continue;
- }
- AnswerResponse answer;
- try {
- answer = new Gson().fromJson(response.body().string(), AnswerResponse.class);
- } catch (Exception e) {
- continue;
- }
- if (answer == null) {
- continue;
- }
- if (token == null || token.equals(answer.tokens)) {
- token = answer.tokens;
- switch (answer.re) {
- case ">": {
- System.out.println(num + " 小了");
- max = num;
- break;
- }
- case "<": {
- System.out.println(num + " 大了");
- min = num;
- break;
- }
- case "=":
- default: {
- System.out.println("正确答案:" + num);
- token = null;
- continue;
- }
- }
- num = (int) ((min + max) / 2d);
- } else {
- if (answer.re.equals("=")) {
- System.out.println("正确答案:" + num);
- }
- System.out.println("新的一局:" + token + " => " + answer.tokens);
- min = 1;
- max = 100;
- num = 50;
- token = answer.tokens;
- continue;
- }
- }
- }
- }
- package com.rekonquer.math;
- /**
- * Author: MagicDroidX
- */
- public class AnswerResponse {
- public int code;
- public String re;
- public String tokens;
- }
复制代码
- # -*- coding: utf-8 -*-
- """
- Created on 2017-07-02 13:57:56
- @author: codegay
- python3 & 编辑器 == spyder
- """
- import requests
- import time
- apiurl = "http://bbaass.tk/math/"
- s = 0
- username = "codegay"
- data = {
- 'send': 'Answer',
- 'username': username,
- 'math': 0,
- }
- def reg(username="codegay"):
- data = {"send": "reg", "username": username}
- try:
- requests.post(apiurl, data=data)
- except:
- global s
- s += 1
- print("reg程序江化,错误+1s")
- time.sleep(2)
- def answer(min=0, max=100):
- answering = True
- answercounter = 0
- token = ''
- global s
- while answering:
- math = data['math'] = round((min+max)/2)
- try:
- time.sleep(0.3)
- post = requests.post(apiurl, data=data, timeout=6)
- print(post.text)
- except Exception as err:
- s += 1
- print(err)
- print("程序江化,错误+1s", " 错误总次数:", s)
- time.sleep(1)
- else:
- answercounter += 1
- print("数字:", math, " counter:", answercounter)
- re = ''
- if post.status_code == 500:
- reg()
- time.sleep(1)
- elif post.status_code == 200:
- try:
- result = post.json()
- except:
- answering = False
- continue
- re = result['re']
- if token and token != result['tokens']:
- answering = False
- continue
- token = result['tokens']
- if re == '=':
- answering = False
- if re == ">":
- max = data['math']
- if re == "<":
- min = data['math']
- else:
- s += 1
- print("远程目标服务器程序江化,错误+1s")
- time.sleep(1)
- reg()
- while True:
- answer()
复制代码
- use JSON;
- use Encode;
- use Try::Tiny;
- use Data::Dumper;
- use HTTP::Headers;
- use Time::HiRes qw/time sleep/;
- use IO::Handle;
- STDOUT->autoflush(1);
- use LWP::Simple;
- use LWP::UserAgent;
- our $user = "vic3";
- our $website = 'http://bbaass.tk/math/';
- our ($user, $website, $headers);
- my ( $min, $max ) = (0, 100);
- my $test = int(($max + $min) / 2);
- my $data;
- our $ua = LWP::UserAgent->new( agent => 'Mozilla/5.0', timeout => 5 );
- our $res;
- my %ever;
- my %current;
- getData( \%ever );
- my $count = 0;
- while (1)
- {
- getData(\%current);
- $count = 0;
- for my $k (reverse sort { $ever{$a} <=> $ever{$b} } keys %ever)
- {
- printf "%-10s %d + %d\n", $k, $ever{$k}, $current{$k} - $ever{$k};
- last if ($count++ > 3);
- }
- print "\n";
- sleep 10.0;
- }
- sub getData
- {
- our $res;
- my $href = shift;
- my $data;
- while (1)
- {
- $res = $ua->post( $website, [ username => $user, send => 'reg' ] );
- $res = $ua->post( $website, [ username => $user, send => 'user' ] );
- try { $data = decode_json( $res->content ); last; }
- catch { sleep 2.0; printf "repeat\n" }
- }
- for my $e ( @{$data->{'user'}} )
- {
- ( $times, $name, $state ) = @$e;
- $href->{$name} = $times;
- }
- }
复制代码
- vic3 0 + 0
- bbaa 0 + 0
- vic 0 + 0
- vic2 55 + 10
- codegay 75 + 11
- vic3 0 + 0
- bbaa 0 + 0
- vic 0 + 0
- vic2 55 + 11
- codegay 75 + 11
- vic3 0 + 0
- bbaa 0 + 0
- vic 0 + 0
- vic2 55 + 12
- codegay 75 + 12
复制代码
- use JSON;
- use Encode;
- use Try::Tiny;
- use Data::Dumper;
- use IO::Handle;
- STDOUT->autoflush(1);
- use LWP::Simple;
- use LWP::UserAgent;
- our $user = "vic2";
- our $website = 'http://bbaass.tk/math/';
- our $ua = LWP::UserAgent->new( agent => 'Mozilla/5.0', timeout => 3 );
- our $res;
- BEGIN:
- $res = $ua->post( $website, [ username => $user, send => 'reg' ] );
- $res = $ua->post( $website, [ username => $user, send => 'user' ] );
- my $min = 0;
- my $max = 100;
- my $test = int(($max + $min) / 2);
- my $data;
- $data = check($test);
- my $tokens = $data->{'tokens'};
- while ( $data->{re} ne "=" )
- {
- $min = $test + 1 if ($data->{re} eq "<");
- $max = $test - 1 if ($data->{re} eq ">");
- $test = int(($max + $min) / 2);
- $data = check( $test );
- printf "min: %d max: %d, test: %d %s, token: %s\n",
- $min, $max, $test, $data->{re}, $data->{tokens};
- if ( ($data->{tokens} ne $tokens) and $data->{re} ne "=" )
- {
- print "Tokens different, go back\n";
- goto BEGIN;
- }
- }
- print "Again\n";
- goto BEGIN;
- sub check
- {
- my $data;
- my $res;
- while (1)
- {
- $res = $ua->post(
- $website,
- [ username => $user, send => 'Answer', math => $_[0] ],
- );
- try { $data = decode_json( $res->content() ); last; }
- catch { sleep 3.0; print "Content error, try again.\n" }
- }
- return $data;
- }
谁来猜猜Math是原数字*多少得到的复制代码
- {"Math":319137,"Tokens":"24893b1792fb4112cbc13856b42a13ce7a3bd264","Username":{"codegay":{"Count":2078,"stat":{"zt":"playing","Timestamp":1500374817}},"bbaa":{"Count":0,"stat":{"zt":"played","Timestamp":1500371612}}},"winer":"codegay"}
复制代码
- for r in 1..319137:
- for s in 1..319137:
- if r * s == 319137:
- echo r," ",s
我不理解,这个数字有什么意义吗?复制代码
- 1 319137
- 3 106379
- 7 45591
- 13 24549
- 21 15197
- 39 8183
- 49 6513
- 91 3507
- 147 2171
- 167 1911
- 273 1169
- 501 637
- 637 501
- 1169 273
- 1911 167
- 2171 147
- 3507 91
- 6513 49
- 8183 39
- 15197 21
- 24549 13
- 45591 7
- 106379 3
不过现在是真的 挂了复制代码
- Http/1.1 Get bbaass.tk/math/server.json
- 再把math除去6513作弊.....
复制代码
- codegay 18011 + 10
- vic2 413 + 15
- vic 0 + 0
- bbaa 0 + 0
- vic3 0 + 0
- codegay 18011 + 11
- vic2 413 + 17
- vic 0 + 0
- bbaa 0 + 0
- vic3 0 + 0
- codegay 18011 + 12
- vic2 413 + 21
- vic 0 + 0
- bbaa 0 + 0
- vic3 0 + 0
Demon
分析上面的代码可知,如果知道调用srand函数的时间,那么就可以知道每次调用rand函数生成的随机数是多少。也就是说,如果知道CMD的启动时间(从CMD启动到CMD调用srand的时间通常不会超过1秒),那么就可以推算出%RANDOM%的值是多少。
复制代码
- function random_str($length) {
- $chars = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789!@#$%^&*()-_ []{}<>~`+=,.;:/?|';
- for ($i = 0; $i < $length; $i++ )
- {
- $str .=substr($chars,mt_rand(0,strlen($chars)-1),1);
- //$str = $chars[ mt_rand(0, strlen($chars) - 1) ];
- }
- return $str;
- }
- $json["Tokens"]=Sha1(random_str(256));
先别解释,我刚午休完毕,也改改代码看看能不能PK复制代码
- codegay 18804 + 0
- vic2 1554 + 0
- 老刘 810 + 1
- codeplay 1 + 0
- bbbbaa 0 + 0
- repeat
- repeat
- repeat
- repeat
- repeat
复制代码
- INSERT INTO `tc_bbaa_math_c` (`Username`,`Count`,`Status`,`Timestamp`) VALUES ('老刘'',0,'played',1500446396) ON DUPLICATE KEY UPDATE Username=VALUES(Username),Count=VALUES(Count),Status=VALUES(Status),Timestamp=VALUES(Timestamp);
我在上班,给点思考空间,有啥干货明天再发……复制代码
- codegay 18809 + 7
- vic2 1557 + 4
- 老刘 917 + 3
- codeplay 1 + 0
- bbaa 0 + 0
- codegay 18809 + 9
- vic2 1557 + 4
- 老刘 917 + 3
- codeplay 1 + 0
- bbaa 0 + 0
- codegay 18809 + 12
- vic2 1557 + 4
- 老刘 917 + 3
- codeplay 1 + 0
- bbaa 0 + 0
- codegay 18809 + 15
- vic2 1557 + 4
- 老刘 917 + 3
- codeplay 1 + 0
- bbaa 0 + 0
复制代码
- codegay 19038 + 11
- vic2 1569 + 7
- 老刘 920 + 0
- vic3 0 + 0
- e 0 + 0
- repeat
- codegay 19038 + 11
- vic2 1569 + 9
- 老刘 920 + 0
- vic3 0 + 0
- e 0 + 0
- repeat
- codegay 19038 + 11
- vic2 1569 + 11
- 老刘 920 + 0
- vic3 0 + 0
- e 0 + 0
racket代码,有点慢,注意先用reg函数注册。复制代码
- #lang racket
- (require net/http-client json)
- (define (reg username)
- (define-values
- (a b c)
- (http-sendrecv "bbaass.tk"
- "http://bbaass.tk/math/"
- #:method "POST"
- #:headers (list "Content-Type: application/x-www-form-urlencoded")
- #:data (string-append "send=reg&username=" username)))
- (port->string c))
- (define ((send-answer username) ans)
- (define-values
- (a b c)
- (http-sendrecv "bbaass.tk"
- "http://bbaass.tk/math/"
- #:method "POST"
- #:headers (list "Content-Type: application/x-www-form-urlencoded")
- #:data
- (string-append "send=Answer&username=" username "&"
- "math=" (number->string ans) "&")
- ))
- c
- )
- (define (try-once min max)
- (define (mid x y) (floor (/ (+ x y) 2)))
- (define first-time
- (read-json ((send-answer "racket")
- (mid min max)))
- )
- (define token (hash-ref first-time 'tokens))
- (define first-re (hash-ref first-time 're))
- (define (token-changed? t)
- (not (string=? token t)))
- (define (loop min max exit)
- (printf "min :~a,max :~a\n" min max)
- (define this-time (read-json ((send-answer "racket") (mid min max))))
- (define this-token (hash-ref this-time 'tokens))
- (define this-re (hash-ref this-time 're))
- (when (string=? this-re "=") (exit (printf "succeed.\n")))
- (when (token-changed? this-token) (exit (void)))
- (match this-re
- ["<" (loop (mid min max) max exit)]
- [">" (loop min (mid min max) exit)]))
- (call/ec
- (lambda (exit) (loop min max exit)))
- )
- (define (repl) (try-once 0 10000) (repl))
- (repl)
复制代码
- #lang racket
- (require net/http-client json racket/unsafe/ops)
- (define (reg username)
- (define-values
- (a b c)
- (http-sendrecv "bbaass.tk"
- "http://bbaass.tk/math/"
- #:method "POST"
- #:headers (list "Content-Type: application/x-www-form-urlencoded")
- #:data (string-append "send=reg&username=" username)))
- (port->string c))
- (define-syntax-rule (send-answer connection ans)
- (let-values
- [[(a b c)
- (http-conn-sendrecv! connection
- "http://bbaass.tk/math/"
- #:method "POST"
- #:headers (list "Content-Type: application/x-www-form-urlencoded")
- #:data
- (string-append "send=Answer&username=racket&"
- "math=" (number->string ans) "&")
- )]]
- c
- ))
- ;;Update : No function call here
- (define-syntax-rule (mid x y) (if (= 1 (- y x))
- y (unsafe-fxquotient (unsafe-fx+ x y) 2)))
- (define (try-once)
- (define min 0)
- (define max 10000)
- (define next (mid min max))
- ;;Update : A bug has been fixed.
- (define http-connector (http-conn-open "bbaass.tk" #:auto-reconnect? #t))
- (define first-time
- (read-json (send-answer http-connector
- (mid min max)))
- )
- (define token (hash-ref first-time 'tokens))
- (define first-re (hash-ref first-time 're))
- (define (token-changed? t)
- (not (string=? token t)))
- (define (loop min max)
- (printf "min :~a,max :~a\n" min max)
- (define next (mid min max))
- (define this-time (read-json (send-answer http-connector next)))
- (define this-token (hash-ref this-time 'tokens))
- (define this-re (hash-ref this-time 're))
- (cond
- [(string=? this-re "=") (begin (printf "succeed.\n")
- (http-conn-close! http-connector)
- )]
- [(token-changed? this-token) (http-conn-close! http-connector)]
- [(string=? this-re "<") (loop next max)]
- [(string=? this-re ">") (loop min next)]
- ))
- ;;Update: Because of tail call optimization, we don't need call/cc or call/ec
- (match first-re
- ["<" (loop next max)]
- [">" (loop min next)]
- [_ (begin (printf "succeed.\n")
- (http-conn-close! http-connector)
- )]
- )
- )
- (define (repl) (try-once) (repl))
- (repl)
复制代码
- Const [宿主] = "CSCRIPT.EXE" 'WSCRIPT
- If Not UCase(Right(WScript.FullName,11)) = UCase([宿主]) Then
- Dim Args,Arg
- For Each Arg in Wscript.Arguments
- Args=Args&Chr(&H20)&Chr(&H22)&Arg&Chr(&H22)
- Next
- CreateObject("Wscript.Shell").Run _
- [宿主]&Chr(&H20)&Chr(&H22)&WScript.ScriptFullName&Chr(&H22)&Args
- WScript.Quit
- End If
- on error resume next
- If MsgBox("是否查看原贴?",1) = 1 Then CreateObject("Wscript.Shell").run "http://www.bathome.net/thread-44616-1-1.html"
- With CreateObject("MSXML2.XMLHTTP")
- .Open "POST", "http://bbaass.tk/math/", False
- .setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
- .Send "send=reg&username=老刘"
- End With
- dim tokens,[大鱼小鱼或等鱼?],[Arr返回的数据]
- High = 10001
- Low = -1
- Do
- Do
- Mid_=(High+Low)\2
- [Arr返回的数据] = Math(Mid_)
- [大鱼小鱼或等鱼?] = [Arr返回的数据](0)
- if tokens<>[Arr返回的数据](1) then
- If [大鱼小鱼或等鱼?] = "=" then
- wscript.echo "Win!The number is "&Mid_
- Else
- Wscript.echo "Tokens is change"
- End if
- tokens=[Arr返回的数据](1)
- High = 10001
- Low = -1
- Exit do
- Else
- Select Case [大鱼小鱼或等鱼?]
- Case ">"
- WScript.Echo ">,so try "&Low&","&Mid_
- High = Mid_
- Case "<"
- WScript.Echo "<,so try "&Mid_&","&High
- Low = Mid_
- End Select
- End if
- Loop
- Loop
- Function Math(num)
- dim [返回数据]
- With CreateObject("MSXML2.XMLHTTP")
- .Open "POST","http://bbaass.tk/math/", False
- .setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
- .send "send=Answer&math=" & num & "&username=老刘"
- [返回数据] = .responseText
- Math = Split(Split(Split([返回数据],",")(2),"""")(3) & " "&Split([返回数据],"""")(13)," ")
- End With
- End Function
复制代码
- nim c -d:release -r "c:\Users\root\Desktop\xx.nim"
复制代码
- import httpclient
- import strutils
- import json
- import math
- import os
- import encodings
- const chrome = "Chrome/60.0.3088.3"
- let apiurl = "http://bbaass.tk/math/"
- var name = "codegay"
- var client: HttpClient
- var head = { "Content-Type": "application/x-www-form-urlencoded" ,
- "User-Agent": chrome, "X-Requested-With": "XMLHttpRequest"}
- proc reg(): int {.discardable.} =
- var client = newHttpClient()
- try:
- echo client.postContent(apiurl,
- multipart=newMultipartData({"send":"reg","username":name}))
- except:
- result = 0
- finally:
- client.close()
- proc showuser(): int {.discardable.} =
- var client = newHttpClient()
- try:
- echo client.postContent(apiurl,
- multipart=newMultipartData({"send":"user", "username":name}))
- result = 1
- except:
- echo convert(getCurrentExceptionMsg(),"gb2312","utf8")
- result = 0
- finally:
- client.close()
- proc answer(min=0, max=10000): string {.discardable.} =
- var min = min
- var max = max
- var answering:bool = true
- var counter = 1
- var token = ""
- var code:HttpCode = Http100
- var body = ""
- while answering:
- client = newHttpClient(chrome)
- client.headers = newHttpHeaders(head)
- var math:int = int(round((min+max)/2))
- var bodydata = "send=Answer&username=$1&math=$2" % [name,$math]
- try:
- var res = client.post(apiurl, body=bodydata)
- code = res.code
- body = res.body
- echo "HTTP:$1 counter:$2 math:$3" % [$code,$counter,$math]
- if code.is2xx():
- echo body
- try:
- var jsonre:JsonNode = parseJson(body)
- var re = jsonre["re"].getstr()
- var retoken = jsonre["tokens"].getstr()
- case re:
- of "=":
- answering = false
- token = ""
- of ">":
- max = math
- of "<":
- min = math
- if (min >= max):
- echo "min >= max"
- answering = false
- break
- if token != retoken and token != "":
- echo "token!"
- break
- token = retoken
- except:
- echo "解析json错误!"
- elif code == Http500:
- reg()
- echo "500"
- else:
- echo "else"
- except:
- echo convert(getCurrentExceptionMsg(),"gb2312","utf8")
- break
- finally:
- counter += 1
- client.close()
- reg()
- showuser()
- while true:
- discard answer()
复制代码
- codegay 25859 + 4
- 老刘 1792 + 50
- vic2 1730 + 4
- bbaa 59 + 0
- racket 9 + 0
- codegay 25859 + 4
- 老刘 1792 + 52
- vic2 1730 + 4
- bbaa 59 + 0
- racket 9 + 0
- codegay 25859 + 4
- 老刘 1792 + 54
- vic2 1730 + 4
- bbaa 59 + 0
- racket 9 + 0
复制代码
- With CreateObject("MSXML2.XMLHTTP")
- .Open "POST","http://bbaass.tk/math/", False
- .setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
- .setRequestHeader "User-Agent","Chrome/59.0.3071.115"
- .send "send=Answer&math=5000&username=老刘"
- Set html = CreateObject("htmlfile")
- Set wd = html.parentWindow
- wd.execScript "var json=" & .responseText, "JScript"
- Set result = wd.json
- WSH.Echo result.re & vbCrLf & result.tokens
- End With
有 bug, 在调复制代码
- codegay 27522 + 0
- 老刘 3753 + 4
- vic2 1745 + 3
- bbaa 59 + 0
- racket 28 + 0
- codegay 27522 + 0
- 老刘 3753 + 4
- vic2 1745 + 5
- bbaa 59 + 0
- racket 28 + 0
- codegay 27522 + 0
- 老刘 3753 + 4
- vic2 1745 + 8
- bbaa 59 + 0
- racket 28 + 0
刷结果的效率比之前是高很多,但还是勉强追上老刘的速度复制代码
- ......min: 0 max:10000 1000<N, 2000>N, 3000>N, 4000>N, 5000>N, 6000>N, 7000>N, 8000>N, 9000>N,
- ......min: 1000 max: 2000 1100<N, 1200<N, 1300<N, 1400<N, 1500<N, 1600<N, 1700>N, 1800>N, 1900>N,
- ......min: 1600 max: 1700 1610<N, 1620<N, 1630<N, 1640<N, 1650<N, 1660<N, 1670<N, 1680>N, 1690>N,
- ....Content error, try again.
- ..34tokens diff
- ......min: 0 max:10000 1000<N, 2000<N, 3000<N, 4000<N, 5000<N, 6000<N, 7000<N, 8000>N, 9000>N,
- ......min: 7000 max: 8000 7100<N, 7200<N, 7300N, 7400>N, 7500>N, 7600>N, 7700>N, 7800>N, 7900>N,
- ......min: 7200 max: 7400 7220<N, 7240<N, 7260N, 7280<N, 7300<N, 7320<N, 7340>N, 7360>N, 7380>N,
- Content error, try again.
- ......min: 7320 max: 7340 7322N, 7324<N, 7326<N, 7328N, 7330<N, 7332<N, 7334<N, 7336<N, 7338<N,
一段时间后复制代码
- codegay 27555 + 0
- 老刘 4514 + 4
- vic2 1805 + 4
- bbaa 74 + 0
- racket 28 + 0
- codegay 27555 + 0
- 老刘 4514 + 8
- vic2 1805 + 6
- bbaa 74 + 0
- racket 28 + 0
复制代码
- codegay 27555 + 1
- 老刘 4514 + 38
- vic2 1805 + 38
- bbaa 74 + 0
- racket 28 + 0
复制代码
- {
- "change": {
- "minute": {
- "last": {
- "user": {
- "codegay": "27558",
- "vic2": "1963",
- "bbaa": "74",
- "老刘": "4718",
- "racket": "28",
- "vic3": "18"
- },
- "Timestamp": 0,
- "timestamp": 1500542815
- },
- "done": {
- "user": {
- "vic2": 8,
- "老刘": 6,
- "codegay": 1,
- "vic3": 0,
- "bbaa": 0,
- "racket": 0
- },
- "lastu": {
- "codegay": "27557",
- "vic2": "1955",
- "bbaa": "74",
- "老刘": "4712",
- "racket": "28",
- "vic3": "18"
- }
- }
- },
- "hour": {
- "last": {
- "user": {
- "codegay": "27557",
- "vic2": "1953",
- "bbaa": "74",
- "老刘": "4686",
- "racket": "28",
- "vic3": "18"
- },
- "Timestamp": 0,
- "timestamp": 1500542575
- },
- "done": {
- "user": [],
- "lastu": []
- }
- }
- }
- }
欢迎光临 批处理之家 (http://bbs.bathome.net/) | Powered by Discuz! 7.2 |