bbaa

回复 54# codegay


    我把之前文件版的代码给happy了

bbaa

回复 54# codegay
回复 49# 523066680


应某人要求... 17-7-19 13点更改

bbaa

回复 67# codegay


    经过检修貌似数据库重新点问题。。。。

bbaa

经过排查
是一个名为老刘的.........人
在id前加了个单引号
然后/////

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);
复制代码

bbaa

回复 80# codegay


    都快2w了...

bbaa

回复 83# codegay


    以加屏蔽 UA策略封禁......

bbaa

回复 98# 523066680


    告诉你个消息，变化列表最迟在今晚内置
    [一分钟更新一次]
    [和一小时更新一次的列表]
    [目前收集信息模块已经完成]
    [正在做界面]
    如果时间充裕的话可能会做像顶楼那样的GD自动生成图片
    目前自动到收集的信息
    一分钟

{
         "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": []
                           }
                  }
         }
}
复制代码

bbaa

回复 103# 老刘1号


    列表改单页了....

bbaa

回复 101# 523066680


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

bbaa

回复 107# codegay


    在建表我就要挂了...
    不想在弄个表了...

bbaa

回复 110# 523066680


    后面的速度监测加出来了...
    要不要加个历史记录.................

bbaa

回复 112# 523066680


    60分钟的折线图对我来说是个挑战啊.....
    收集数据可能做不到整分
    还是做24小时的
    用下第三方库........

bbaa

回复 110# 523066680


    username 除了reg 和Answer外是可选项
主要是在线监测..

bbaa

回复 115# 523066680


    为了竞争的公平性 集体清0... 才不会告诉你Sql语句打错了.........
靠- -

bbaa

回复 117# 523066680


    是啊

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=bbaa"
End With
dim tokens,[大鱼小鱼或等鱼？],[Arr返回的数据]

High = 10001
Low = -1
Do
	Do
	'Randomize()
	Mid_=Fix((High - Low + 1) * Rnd + Low)
	[Arr返回的数据] = Math(Mid_)
	[大鱼小鱼或等鱼？] = [Arr返回的数据](0)
	if tokens<>[Arr返回的数据](1) then
		If [大鱼小鱼或等鱼？] = "=" then
				wscript.echo "Win!The number is "&Mid_
		Else
			Wscript.echo "The token has changed"
			'Wscript.echo [Arr返回的数据](1)
		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=bbaa"
		[返回数据] = .responseText
		Math = Split(Split(Split([返回数据],",")(2),"""")(3) & " "&Split([返回数据],"""")(13)," ")
	End With
End Function
复制代码

基于老刘修改的随机摸鱼
一个用老刘的二分同时开