【Warning:此贴已经过气】【挑战】用任何语言在猜数游戏作弊 - BAT求助&讨论 - 批处理之家 BAT,CMD,批处理,PowerShell,VBS,DOS

bbaa

Rank: 3 Rank: 3

帖子: 316
积分: 275
技术: 32
捐助: 0
注册时间: 2015-11-30

122楼

发表于 2017-7-21 17:15 | 只看该作者

本帖最后由 bbaa 于 2017-7-21 17:38 编辑

回复 121# 523066680

厉害了
PS:

Post send:
getchangeforminutebytext 一分钟
getchangefortenminutebytext 十分钟
getchangeforhourbytext 一小时
getchangeforhalfhourbytext 半小时
获取图片
Get page:
imagetop [获取榜单]
imageminute
imagetenminute
imagehour
imagehalfhour

这么长的函数我要吐了....
可以获取内置的检测数据[采样时间固定....]
我去加个10分钟和半小时的
曲线图明天应该就能完成,数据采样应该是5分钟一次

$change_d=array();
	$timestamp=time()-(int)$change["change"]["minute"]["last"]["Timestamp"];
	if ($timestamp>=60||count($change["change"]["minute"]["last"]["user"])==0) {
		if((int)$change["change"]["minute"]["last"]["Timestamp"]!==0) {
			foreach($change["change"]["minute"]["last"]["user"] as $key=>$value) {
				$change_d[$key]=(int)$json["Username"][$key]["Count"]-(int)$value;
			}
			arsort($change_d);
			unset($change["change"]["minute"]["done"]);
			$change["change"]["minute"]["done"]["user"]=$change_d;
			$change["change"]["minute"]["done"]["lastu"]=$change["change"]["minute"]["last"]["user"];
		}
		unset($change["change"]["minute"]["last"]);
		foreach($json["Username"] as $key=>$value) {
			$change["change"]["minute"]["last"]["user"][$key]=(int)$value["Count"];
		}
		$change["change"]["minute"]["last"]["Timestamp"]=time();
	}
	unset($change_d);
	$change_d=array();
	$timestamp=time()-(int)$change["change"]["hour"]["last"]["Timestamp"];
	if ($timestamp>=3600||count($change["change"]["hour"]["last"]["user"])==0) {
		if((int)$change["change"]["hour"]["last"]["Timestamp"]!==0) {
			foreach($change["change"]["hour"]["last"]["user"] as $key=>$value) {
				$change_d[$key]=(int)$json["Username"][$key]["Count"]-(int)$value;
			}
			arsort($change_d);
			unset($change["change"]["hour"]["done"]);
			$change["change"]["hour"]["done"]["user"]=$change_d;
			$change["change"]["hour"]["done"]["lastu"]=$change["change"]["hour"]["last"]["user"];
		}
		unset($change["change"]["hour"]["last"]);
		foreach($json["Username"] as $key=>$value) {
			$change["change"]["hour"]["last"]["user"][$key]=(int)$value["Count"];
		}
		$change["change"]["hour"]["last"]["Timestamp"]=time();
	}
	unset($change_d);
	$change_d=array();
	$timestamp=time()-(int)$change["change"]["tenminute"]["last"]["Timestamp"];
	if ($timestamp>=600||count($change["change"]["tenminute"]["last"]["user"])==0) {
		if((int)$change["change"]["tenminute"]["last"]["Timestamp"]!==0) {
			foreach($change["change"]["tenminute"]["last"]["user"] as $key=>$value) {
				$change_d[$key]=(int)$json["Username"][$key]["Count"]-(int)$value;
			}
			arsort($change_d);
			unset($change["change"]["tenminute"]["done"]);
			$change["change"]["tenminute"]["done"]["user"]=$change_d;
			$change["change"]["tenminute"]["done"]["lastu"]=$change["change"]["tenminute"]["last"]["user"];
		}
		unset($change["change"]["tenminute"]["last"]);
		foreach($json["Username"] as $key=>$value) {
			$change["change"]["tenminute"]["last"]["user"][$key]=(int)$value["Count"];
		}
		$change["change"]["tenminute"]["last"]["Timestamp"]=time();
	}
	unset($change_d);
	$change_d=array();
	$timestamp=time()-(int)$change["change"]["halfhour"]["last"]["Timestamp"];
	if ($timestamp>=1800||count($change["change"]["halfhour"]["last"]["user"])==0) {
		if((int)$change["change"]["halfhour"]["last"]["Timestamp"]!==0) {
			foreach($change["change"]["halfhour"]["last"]["user"] as $key=>$value) {
				$change_d[$key]=(int)$json["Username"][$key]["Count"]-(int)$value;
			}
			arsort($change_d);
			unset($change["change"]["halfhour"]["done"]);
			$change["change"]["halfhour"]["done"]["user"]=$change_d;
			$change["change"]["halfhour"]["done"]["lastu"]=$change["change"]["halfhour"]["last"]["user"];
		}
		unset($change["change"]["halfhour"]["last"]);
		foreach($json["Username"] as $key=>$value) {
			$change["change"]["halfhour"]["last"]["user"][$key]=(int)$value["Count"];
		}
		$change["change"]["halfhour"]["last"]["Timestamp"]=time();
	}
	option::set('bbaa_math_change',json_encode($change));
	/* Model_Change_Get End*/
复制代码

暴力复制法懒得简化咯

1 评分人数

523066680: 好长的镶嵌……PB + 6

bbaa

Rank: 3 Rank: 3

帖子: 316
积分: 275
技术: 32
捐助: 0
注册时间: 2015-11-30

123楼

发表于 2017-7-21 23:50 | 只看该作者

本帖最后由 bbaa 于 2017-7-22 13:11 编辑

回复 121# 523066680

今晚出去玩，现在才完成收集
部分代码公布....
~~发现代码有疏漏，导致无法构成数组~~现以修复

		/* 如果在主项中已经没有这个用户，在数据中删除掉 End*/
		foreach($json["Username"] as $key=>$value) {
			If (time()-(int)$dataqx[$key]["Timestamp"]>=300) {
				$dataqx[$key]["Timestamp"]=time();
				if((int)Count($dataqx[$key]["data"])<12) {
					$dataqx[$key]["data"][Count($dataqx[$key]["data"])]=$value["Count"];
				} else {
					/* 对于data满12的一个处理 {*/
						$temp=Array(); //对foreach的处理机制做出应对
						foreach ($dataqx[$key]["data"] as $keyt=>$val) {
							if ((int)$keyt>0&&(int)$keyt<=12) {
								$temp[$key]["data"][Count($temp[$key]["data"])]=$val;
							}
						}
						Unset($dataqx[$key]["data"]);
						$dataqx[$key]["data"]=$temp[$key]["data"]; //合并
						Unset($temp);
					/* 对于data满12的一个处理 }*/
					//$dataqx[$key]["data"][Count($dataqx[$key]["data"])]=$value["Count"];
					unset ($count);
				}
			}
		}
		option::set('bbaa_math_text',json_encode($dataqx));
	/* Model:曲线图变化速度信息收集模块 End */
复制代码

悄悄告诉你我是隐藏的彩蛋，找到没奖

codegay

少校

Rank: 6 Rank: 6

帖子: 1266
积分: 1775
技术: 162
捐助: 0
注册时间: 2015-12-12

124楼

发表于 2017-7-22 16:41 | 只看该作者

what ?

bbaa:1701+79    79/min
复制代码

去学去写去用才有进步。安装python3代码存为xx.py 双击运行或右键用IDLE打开按F5运行

bbaa

Rank: 3 Rank: 3

帖子: 316
积分: 275
技术: 32
捐助: 0
注册时间: 2015-11-30

125楼

发表于 2017-7-22 16:43 | 只看该作者

本帖最后由 bbaa 于 2017-7-22 16:45 编辑

回复 124# codegay

?admin

滑稽
开个玩笑....

codegay

少校

Rank: 6 Rank: 6

帖子: 1266
积分: 1775
技术: 162
捐助: 0
注册时间: 2015-12-12

126楼

发表于 2017-7-22 16:44 | 只看该作者

回复 125# bbaa

一定是你作弊刚好被我看到了。

去学去写去用才有进步。安装python3代码存为xx.py 双击运行或右键用IDLE打开按F5运行

bbaa

Rank: 3 Rank: 3

帖子: 316
积分: 275
技术: 32
捐助: 0
注册时间: 2015-11-30

127楼

发表于 2017-7-22 16:45 | 只看该作者

回复 126# codegay

恭喜你才对了
之前我改成了666666

bbaa

Rank: 3 Rank: 3

帖子: 316
积分: 275
技术: 32
捐助: 0
注册时间: 2015-11-30

128楼

发表于 2017-7-22 16:51 | 只看该作者

回复 126# codegay

这样不用开浏览器不卡

Rank: 7 Rank: 7 Rank: 7

帖子: 3151
积分: 6455
技术: 317
捐助: 70
注册时间: 2008-8-3

129楼

发表于 2017-7-22 16:57 | 只看该作者

回复 128# bbaa
对齐一下更好

vic3        9254 + 100   8.9/min
codegay     4446 + 11    1.0/min
vic2        2451 + 0     0.0/min
bbaa        1789 + -60   -5.3/min
复制代码

FuniCode 编程论坛

bbaa

Rank: 3 Rank: 3

帖子: 316
积分: 275
技术: 32
捐助: 0
注册时间: 2015-11-30

130楼

发表于 2017-7-22 16:59 | 只看该作者

回复 129# 523066680

曲线图静态版本出来了，你不去看看么?

bbaa

Rank: 3 Rank: 3

帖子: 316
积分: 275
技术: 32
捐助: 0
注册时间: 2015-11-30

131楼

发表于 2017-7-22 17:01 | 只看该作者

本帖最后由 bbaa 于 2017-7-22 17:09 编辑

回复 129# 523066680

图片是白色背景，这里因为透明通道alpha的原因变黑....

http://bbaass.tk/math/?page=change-ipage

2 评分人数

老刘1号: 666技术 + 1
523066680: 好评PB + 6 技术 + 1

Rank: 7 Rank: 7 Rank: 7

帖子: 3151
积分: 6455
技术: 317
捐助: 70
注册时间: 2008-8-3

132楼

发表于 2017-7-22 17:02 | 只看该作者

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

回复 130# bbaa

相当不错。相信你也借此项目锻炼了不少技能。

折线的颜色你可以建立一个色彩分明的颜色列表，不然有些颜色相近。

FuniCode 编程论坛

bbaa

Rank: 3 Rank: 3

帖子: 316
积分: 275
技术: 32
捐助: 0
注册时间: 2015-11-30

133楼

发表于 2017-7-22 17:42 | 只看该作者

回复 132# 523066680

完全random
建议不错，刚才在和happy聊
你也不是在练习多线程吗

Rank: 7 Rank: 7 Rank: 7

帖子: 3151
积分: 6455
技术: 317
捐助: 70
注册时间: 2008-8-3

134楼

发表于 2017-7-22 22:46 | 只看该作者

本帖最后由 523066680 于 2017-7-23 12:52 编辑

从零创建起来的图表，还未完善，费力+真心难看。

=info
    Auth: 523066680
    Date: 2017-07
=cut

use JSON;
use Encode;
use Try::Tiny;
use Data::Dumper;
use Time::HiRes qw/time sleep/;
use IO::Handle;
STDOUT->autoflush(1);

use threads;
use threads::shared;

use OpenGL qw/ :all /;
use OpenGL::Config;
#use Font::Freetype;

use LWP::UserAgent;

our $user    = "vic3";
our $website = 'http://bbaass.tk/math/';
our ($user, $website, $headers);
our $ua = LWP::UserAgent->new( agent => 'Mozilla/5.0', timeout => 3 );

our %ucolor :shared;
our $users :shared;

#使共享变量支持复合数据结构
print "Loading data...";
make_user_struct();
print "Done\n";

our $SIZE_X = 800;
our $SIZE_Y = 800;

our $WinID;

threads->create( \&getData, 1);

&Main();

my $count = 0;
my $delta;
my $speed;
my $time_a = time();

INFORMATION:
{
    sub getData
    {
        our ($ua, $website, $user);
        my $res;
        my $data;
        my $info;
        my $json = JSON->new->allow_nonref;
        $SIG{'BREAK'} = sub { threads->exit() };

        $res = $ua->post( $website, [ username => $user, send => 'reg' ] );

        while (1)
        {
	        SUBW: while (1)
	        {            
	            $res = $ua->post( $website, [ username => $user, send => 'user' ] );
	            try { $data = $json->decode( $res->content ); last SUBW; }
	            catch { sleep 2.0; printf "repeat\n" }
	        }

	        for my $e ( @{$data->{'user'}} )
	        {
	        	( $times, $name, $state ) = @$e;
	            push @{$users->{$name}}, $times;
	        }
	        
	        sleep 2.0;
	    }
    }

    sub make_user_struct
    {
    	our ($ua, $website, $user);

    	my $data;
    	my $json = JSON->new->allow_nonref;

        while (1)
        {
            $res = $ua->post( $website, [ username => $user, send => 'reg' ] );
            $res = $ua->post( $website, [ username => $user, send => 'user' ] );
            try { $data = $json->decode( $res->content ); last; }
            catch { sleep 2.0; printf "retry\n" }
        }

        my @colors = (
        		[1.0, 0.0, 0.0], [0.0, 1.0, 0.0], [0.0, 0.5, 1.0], 
        		[1.0, 1.0, 0.0], [0.0, 1.0, 1.0], [1.0, 0.0, 1.0], 
        		[1.0, 1.0, 1.0],
        	);

        my $hash;
        for my $e ( @{$data->{'user'}} )
        {
        	( $times, $name, $state ) = @$e;
            $hash->{$name} = [ $times ];
        }

        #建立颜色信息
        my $n = 0;
        for my $name ( sort keys %$hash )
        {
        	$ucolor{$name} = shared_clone( $colors[$n++] );
    	}

        $users = shared_clone( $hash );
    }
}

OPENGL:
{
    sub display
    {
        glClear(GL_COLOR_BUFFER_BIT);

        glColor3f(1.0, 1.0, 1.0);
        glBegin(GL_LINES);
            glVertex3f(-200.0, 0.0, 0.0);
            glVertex3f(200.0, 0.0, 0.0);
            glVertex3f(0.0, -200.0, 0.0);
            glVertex3f(0.0, 200.0, 0.0);
        glEnd();

        my $ty = 0;
		for my $name ( sort keys %ucolor )
		{
			glColor3f( @{$ucolor{$name}} );
			glRasterPos2i(-10, $ty);
			printstr( $name );
			$ty+=2;
		}

        my $obj;
        for my $name ( keys %$users )
        {
        	$obj = $users->{$name};
        	glColor3f( @{$ucolor{$name}} );
	        glBegin(GL_LINE_STRIP);
	        for my $v ( 1 .. $#{$obj} )
	        {
	            glVertex3f( $v, $obj->[$v] - $obj->[0], 0.0 );
	        }
	        glEnd();
    	}

        glutSwapBuffers();
    }

    sub init 
    {
        glClearColor(0.0, 0.0, 0.0, 1.0);
    }

    sub idle 
    {
        sleep 0.1;
        glutPostRedisplay();
    }

    sub Reshape 
    {
        my $half = 100.0;
        glViewport(0.0,0.0, $SIZE_X, $SIZE_Y);
        glMatrixMode(GL_PROJECTION);
        glLoadIdentity();
        glOrtho(-20.0, $half, -20.0, $half,-20.0,200.0);
        glMatrixMode(GL_MODELVIEW);
        glLoadIdentity();
        gluLookAt(0.0,0.0,100.0,0.0,0.0,0.0, 0.0,1.0,100.0);
    }

    sub hitkey 
    {
        my $key = shift;
        if (lc(chr($key)) eq 'q') 
        {
            glutDestroyWindow($WinID);
        }
        elsif ($key == 27) 
        {
            glutDestroyWindow($WinID);
        }
    }

    sub Main 
    {
        glutInit();
        glutInitDisplayMode(GLUT_RGBA | GLUT_DOUBLE |GLUT_MULTISAMPLE );
        glutInitWindowSize($SIZE_X, $SIZE_Y);
        glutInitWindowPosition(1,1);
        our $WinID = glutCreateWindow("Show");
        &init();
        glutDisplayFunc(\&display);
        glutReshapeFunc(\&Reshape);
        glutKeyboardFunc(\&hitkey);
        glutIdleFunc(\&idle);
        glutMainLoop();
    }

    sub printstr 
    {
        for my $i ( split("", $_[0]) ) 
        {
            #glutBitmapCharacter(GLUT_BITMAP_9_BY_15, ord($i));
            glutBitmapCharacter(GLUT_BITMAP_HELVETICA_12, ord($i));
        }
    }

}
复制代码

FuniCode 编程论坛

老刘1号

论坛巡查

Rank: 8 Rank: 8

帖子: 1000
积分: 1789
技术: 205
捐助: 50
注册时间: 2016-4-17

135楼

发表于 2017-7-23 12:31 | 只看该作者

本帖最后由老刘1号于 2017-7-23 12:34 编辑

这题……让我复习了HTTP POST。
不过学会了二分法～