老刘1号

回复 74# codegay


    晕……
也说明了个道理，网速也是影响因素啊……

老刘1号

回复 76# 523066680


    按说服务器的反应速度也就那样，个人觉得多线程反而会拉慢速度(没有测试)
嘿嘿，这是逼我改进代码啊

老刘1号

回复 78# 523066680


    我是纯中心划分
还是感觉多线程会拉慢速率(会挑空测试下)……
确实可以改进

迅雷下载还玩这个666

老刘1号

一觉起来……还在刷

老刘1号

新版：
1、递归优化为循环，优化算法。
2、强大的错误处理，服务器挂掉了都还会运行等待恢复。
3、开始检测tokens的值的变化。
其它：
为防止利用，做了简单加密（使用乱码兄的加密代码）～
决定开源，代码无法运行，需要改UA
不过算法是完整的
VBS

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

老刘1号

机就不挂了，感觉是浪费电
不过现在速度是可以稳超Codegay兄了

老刘1号

回复 93# qazplm


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

老刘1号

回复 90# codegay


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

老刘1号

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

老刘1号

回复 99# bbaa


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

老刘1号

回复 101# 523066680


    emmmm,我好像发现什么
如果是能整除10的数的话，我的脚本不如你的快
如果是不能整除10的数，如果接近10，2分确实不如你的快

老刘1号

真·一个都抢不到……
5230兄的速度要逆天啊……

bbaa兄的随机法好评

老刘1号

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