[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
123
返回列表 发帖
bbaa

Rank: 3Rank: 3

帖子
316 
积分
275 
技术
32  
捐助
0  
注册时间
2015-11-30 
31楼 跳转到 »
发表于 2017-7-21 13:52 | 显示全部帖子

http://123456

TOP

bbaa

Rank: 3Rank: 3

帖子
316 
积分
275 
技术
32  
捐助
0  
注册时间
2015-11-30 
32楼
发表于 2017-7-21 16:37 | 显示全部帖子
本帖最后由 bbaa 于 2017-7-21 18:09 编辑


根据@老刘的代码基础上修改
添加了
1.Token改变后的赢家显示
修改了@老刘用Split取得数组改成Array
2.经测试双开速度能勉强达到与523066680的分段多线程方法不相上下
二分法:
  1. Const [宿主] = "CSCRIPT.EXE" 'WSCRIPT

  2. If Not UCase(Right(WScript.FullName,11)) = UCase([宿主]) Then

  3. 	Dim Args,Arg

  4. 	For Each Arg in Wscript.Arguments

  5. 		Args=Args&Chr(&H20)&Chr(&H22)&Arg&Chr(&H22)

  6. 	Next

  7. 	CreateObject("Wscript.Shell").Run _

  8. 		[宿主]&Chr(&H20)&Chr(&H22)&WScript.ScriptFullName&Chr(&H22)&Args

  9. 	WScript.Quit

  10. End If

  11. on error resume next

  12. 

  13. If MsgBox("是否查看原贴？",1) = 1 Then CreateObject("Wscript.Shell").run "http://www.bathome.net/thread-44616-1-1.html"

  14. 

  15. With CreateObject("MSXML2.XMLHTTP")

  16. 	.Open "POST", "http://bbaass.tk/math/", False

  17. 	.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"

  18. 	.Send "send=reg&username=老刘"

  19. End With

  20. dim tokens,[大鱼小鱼或等鱼？],[Arr返回的数据]

  21. 

  22. High = 10001

  23. Low = -1

  24. Do

  25. Do

  26. 	Mid_=(High+Low)\2

  27. 	[Arr返回的数据] = Math(Mid_)

  28. 	[大鱼小鱼或等鱼？] = [Arr返回的数据](0)

  29. 	if tokens<>[Arr返回的数据](1) then

  30. 		If [大鱼小鱼或等鱼？] = "=" then

  31. 				wscript.echo "Win!The number is "&Mid_

  32. 		Else

  33. 			Wscript.echo "The token has changed By:"&[Arr返回的数据](2)

  34. 		End if

  35. 		tokens=[Arr返回的数据](1)

  36. 		High = 10001

  37. 		Low = -1

  38. 		Exit do

  39. 	Else

  40. 		Select Case [大鱼小鱼或等鱼？]

  41. 			Case ">"

  42. 				WScript.Echo ">,so try "&Low&","&Mid_

  43. 				High = Mid_

  44. 			Case "<"

  45. 				WScript.Echo "<,so try "&Mid_&","&High

  46. 				Low = Mid_

  47. 		End Select

  48. 	End if

  49. Loop

  50. Loop

  51. 

  52. Function Math(num)

  53. 	dim [返回数据]

  54. 	With CreateObject("MSXML2.XMLHTTP")

  55. 		.Open "POST","http://bbaass.tk/math/", False

  56. 		.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"

  57. 		.send "send=Answer&math=" & num & "&username=老刘"

  58. 		[返回数据] = .responseText

  59. 		Math = Array(Split(Split([返回数据],",")(2),"""")(3),Split([返回数据],"""")(13),Split(Split([返回数据],",")(1),"""")(3))

  60. 	End With

  61. End Function
复制代码
随机摸鱼法：
  1. Const [宿主] = "CSCRIPT.EXE" 'WSCRIPT

  2. If Not UCase(Right(WScript.FullName,11)) = UCase([宿主]) Then

  3. 	Dim Args,Arg

  4. 	For Each Arg in Wscript.Arguments

  5. 		Args=Args&Chr(&H20)&Chr(&H22)&Arg&Chr(&H22)

  6. 	Next

  7. 	CreateObject("Wscript.Shell").Run _

  8. 		[宿主]&Chr(&H20)&Chr(&H22)&WScript.ScriptFullName&Chr(&H22)&Args

  9. 	WScript.Quit

  10. End If

  11. on error resume next

  12. 

  13. If MsgBox("是否查看原贴？",1) = 1 Then CreateObject("Wscript.Shell").run "http://www.bathome.net/thread-44616-1-1.html"

  14. 

  15. With CreateObject("MSXML2.XMLHTTP")

  16. 	.Open "POST", "http://bbaass.tk/math/", False

  17. 	.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"

  18. 	.Send "send=reg&username=老刘"

  19. End With

  20. dim tokens,[大鱼小鱼或等鱼？],[Arr返回的数据]

  21. 

  22. High = 10001

  23. Low = -1

  24. Do

  25. 	Do

  26. 	Randomize()

  27. 	Mid_=Fix((High - Low + 1) * Rnd + Low)

  28. 	[Arr返回的数据] = Math(Mid_)

  29. 	[大鱼小鱼或等鱼？] = [Arr返回的数据](0)

  30. 	if tokens<>[Arr返回的数据](1) then

  31. 		If [大鱼小鱼或等鱼？] = "=" then

  32. 				wscript.echo "Win!The number is "&Mid_

  33. 		Else

  34. 			Wscript.echo "The token has changed By:"&[Arr返回的数据](2)

  35. 		End if

  36. 		tokens=[Arr返回的数据](1)

  37. 		High = 10001

  38. 		Low = -1

  39. 		Exit do

  40. 	Else

  41. 		Select Case [大鱼小鱼或等鱼？]

  42. 			Case ">"

  43. 				WScript.Echo ">,so try "&Low&","&Mid_

  44. 				High = Mid_

  45. 			Case "<"

  46. 				WScript.Echo "<,so try "&Mid_&","&High

  47. 				Low = Mid_

  48. 		End Select

  49. 		End if

  50. 	Loop

  51. Loop

  52. 

  53. Function Math(num)

  54. 	dim [返回数据]

  55. 	With CreateObject("MSXML2.XMLHTTP")

  56. 		.Open "POST","http://bbaass.tk/math/", False

  57. 		.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"

  58. 		.send "send=Answer&math=" & num & "&username=老刘"

  59. 		[返回数据] = .responseText

  60. 		Math = Array(Split(Split([返回数据],",")(2),"""")(3),Split([返回数据],"""")(13),Split(Split([返回数据],",")(1),"""")(3))

  61. 	End With

  62. End Function
复制代码
1

评分人数

http://123456

TOP

bbaa

Rank: 3Rank: 3

帖子
316 
积分
275 
技术
32  
捐助
0  
注册时间
2015-11-30 
33楼
发表于 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分钟一次
  1. $change_d=array();

  2. 	$timestamp=time()-(int)$change["change"]["minute"]["last"]["Timestamp"];

  3. 	if ($timestamp>=60||count($change["change"]["minute"]["last"]["user"])==0) {

  4. 		if((int)$change["change"]["minute"]["last"]["Timestamp"]!==0) {

  5. 			foreach($change["change"]["minute"]["last"]["user"] as $key=>$value) {

  6. 				$change_d[$key]=(int)$json["Username"][$key]["Count"]-(int)$value;

  7. 			}

  8. 			arsort($change_d);

  9. 			unset($change["change"]["minute"]["done"]);

  10. 			$change["change"]["minute"]["done"]["user"]=$change_d;

  11. 			$change["change"]["minute"]["done"]["lastu"]=$change["change"]["minute"]["last"]["user"];

  12. 		}

  13. 		unset($change["change"]["minute"]["last"]);

  14. 		foreach($json["Username"] as $key=>$value) {

  15. 			$change["change"]["minute"]["last"]["user"][$key]=(int)$value["Count"];

  16. 		}

  17. 		$change["change"]["minute"]["last"]["Timestamp"]=time();

  18. 	}

  19. 	unset($change_d);

  20. 	$change_d=array();

  21. 	$timestamp=time()-(int)$change["change"]["hour"]["last"]["Timestamp"];

  22. 	if ($timestamp>=3600||count($change["change"]["hour"]["last"]["user"])==0) {

  23. 		if((int)$change["change"]["hour"]["last"]["Timestamp"]!==0) {

  24. 			foreach($change["change"]["hour"]["last"]["user"] as $key=>$value) {

  25. 				$change_d[$key]=(int)$json["Username"][$key]["Count"]-(int)$value;

  26. 			}

  27. 			arsort($change_d);

  28. 			unset($change["change"]["hour"]["done"]);

  29. 			$change["change"]["hour"]["done"]["user"]=$change_d;

  30. 			$change["change"]["hour"]["done"]["lastu"]=$change["change"]["hour"]["last"]["user"];

  31. 		}

  32. 		unset($change["change"]["hour"]["last"]);

  33. 		foreach($json["Username"] as $key=>$value) {

  34. 			$change["change"]["hour"]["last"]["user"][$key]=(int)$value["Count"];

  35. 		}

  36. 		$change["change"]["hour"]["last"]["Timestamp"]=time();

  37. 	}

  38. 	unset($change_d);

  39. 	$change_d=array();

  40. 	$timestamp=time()-(int)$change["change"]["tenminute"]["last"]["Timestamp"];

  41. 	if ($timestamp>=600||count($change["change"]["tenminute"]["last"]["user"])==0) {

  42. 		if((int)$change["change"]["tenminute"]["last"]["Timestamp"]!==0) {

  43. 			foreach($change["change"]["tenminute"]["last"]["user"] as $key=>$value) {

  44. 				$change_d[$key]=(int)$json["Username"][$key]["Count"]-(int)$value;

  45. 			}

  46. 			arsort($change_d);

  47. 			unset($change["change"]["tenminute"]["done"]);

  48. 			$change["change"]["tenminute"]["done"]["user"]=$change_d;

  49. 			$change["change"]["tenminute"]["done"]["lastu"]=$change["change"]["tenminute"]["last"]["user"];

  50. 		}

  51. 		unset($change["change"]["tenminute"]["last"]);

  52. 		foreach($json["Username"] as $key=>$value) {

  53. 			$change["change"]["tenminute"]["last"]["user"][$key]=(int)$value["Count"];

  54. 		}

  55. 		$change["change"]["tenminute"]["last"]["Timestamp"]=time();

  56. 	}

  57. 	unset($change_d);

  58. 	$change_d=array();

  59. 	$timestamp=time()-(int)$change["change"]["halfhour"]["last"]["Timestamp"];

  60. 	if ($timestamp>=1800||count($change["change"]["halfhour"]["last"]["user"])==0) {

  61. 		if((int)$change["change"]["halfhour"]["last"]["Timestamp"]!==0) {

  62. 			foreach($change["change"]["halfhour"]["last"]["user"] as $key=>$value) {

  63. 				$change_d[$key]=(int)$json["Username"][$key]["Count"]-(int)$value;

  64. 			}

  65. 			arsort($change_d);

  66. 			unset($change["change"]["halfhour"]["done"]);

  67. 			$change["change"]["halfhour"]["done"]["user"]=$change_d;

  68. 			$change["change"]["halfhour"]["done"]["lastu"]=$change["change"]["halfhour"]["last"]["user"];

  69. 		}

  70. 		unset($change["change"]["halfhour"]["last"]);

  71. 		foreach($json["Username"] as $key=>$value) {

  72. 			$change["change"]["halfhour"]["last"]["user"][$key]=(int)$value["Count"];

  73. 		}

  74. 		$change["change"]["halfhour"]["last"]["Timestamp"]=time();

  75. 	}

  76. 	option::set('bbaa_math_change',json_encode($change));

  77. 	/* Model_Change_Get End*/
复制代码
暴力复制法 懒得简化咯
1

评分人数

http://123456

TOP

bbaa

Rank: 3Rank: 3

帖子
316 
积分
275 
技术
32  
捐助
0  
注册时间
2015-11-30 
34楼
发表于 2017-7-21 23:50 | 显示全部帖子
本帖最后由 bbaa 于 2017-7-22 13:11 编辑

回复 121# 523066680


    今晚出去玩，现在才完成收集
部分代码公布....
发现代码有疏漏，导致无法构成数组现以修复
  1. 		/* 如果在主项中已经没有这个用户，在数据中删除掉 End*/

  2. 		foreach($json["Username"] as $key=>$value) {

  3. 			If (time()-(int)$dataqx[$key]["Timestamp"]>=300) {

  4. 				$dataqx[$key]["Timestamp"]=time();

  5. 				if((int)Count($dataqx[$key]["data"])<12) {

  6. 					$dataqx[$key]["data"][Count($dataqx[$key]["data"])]=$value["Count"];

  7. 				} else {

  8. 					/* 对于data满12的一个处理 {*/

  9. 						$temp=Array(); //对foreach的处理机制做出应对

  10. 						foreach ($dataqx[$key]["data"] as $keyt=>$val) {

  11. 							if ((int)$keyt>0&&(int)$keyt<=12) {

  12. 								$temp[$key]["data"][Count($temp[$key]["data"])]=$val;

  13. 							}

  14. 						}

  15. 						Unset($dataqx[$key]["data"]);

  16. 						$dataqx[$key]["data"]=$temp[$key]["data"]; //合并

  17. 						Unset($temp);

  18. 					/* 对于data满12的一个处理 }*/

  19. 					//$dataqx[$key]["data"][Count($dataqx[$key]["data"])]=$value["Count"];

  20. 					unset ($count);

  21. 				}

  22. 			}

  23. 		}

  24. 		option::set('bbaa_math_text',json_encode($dataqx));

  25. 	/* Model:曲线图变化速度信息收集模块 End */
复制代码
悄悄告诉你我是隐藏的彩蛋，找到没奖
http://123456

TOP

bbaa

Rank: 3Rank: 3

帖子
316 
积分
275 
技术
32  
捐助
0  
注册时间
2015-11-30 
35楼
发表于 2017-7-22 16:43 | 显示全部帖子
本帖最后由 bbaa 于 2017-7-22 16:45 编辑

回复 124# codegay


    ?admin 滑稽
开个玩笑....
http://123456

TOP

bbaa

Rank: 3Rank: 3

帖子
316 
积分
275 
技术
32  
捐助
0  
注册时间
2015-11-30 
36楼
发表于 2017-7-22 16:45 | 显示全部帖子
回复 126# codegay


    恭喜你才对了
之前我改成了666666
http://123456

TOP

bbaa

Rank: 3Rank: 3

帖子
316 
积分
275 
技术
32  
捐助
0  
注册时间
2015-11-30 
37楼
发表于 2017-7-22 16:51 | 显示全部帖子
回复 126# codegay


    这样不用开浏览器 不卡

http://123456

TOP

bbaa

Rank: 3Rank: 3

帖子
316 
积分
275 
技术
32  
捐助
0  
注册时间
2015-11-30 
38楼
发表于 2017-7-22 16:59 | 显示全部帖子
回复 129# 523066680


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

TOP

bbaa

Rank: 3Rank: 3

帖子
316 
积分
275 
技术
32  
捐助
0  
注册时间
2015-11-30 
39楼
发表于 2017-7-22 17:01 | 显示全部帖子
本帖最后由 bbaa 于 2017-7-22 17:09 编辑

回复 129# 523066680

    图片是白色背景，这里因为透明通道alpha的原因变黑....
   
    http://bbaass.tk/math/?page=change-ipage
2

评分人数

http://123456

TOP

bbaa

Rank: 3Rank: 3

帖子
316 
积分
275 
技术
32  
捐助
0  
注册时间
2015-11-30 
40楼
发表于 2017-7-22 17:42 | 显示全部帖子
回复 132# 523066680


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

TOP

bbaa

Rank: 3Rank: 3

帖子
316 
积分
275 
技术
32  
捐助
0  
注册时间
2015-11-30 
41楼
发表于 2017-7-23 14:14 | 显示全部帖子
本帖最后由 bbaa 于 2017-7-23 14:21 编辑

回复 134# 523066680


    勉强看懂...一点点.............
曲线图AJAX更新已经发布
点击打开

前端使用类库
chart.js
jquery.....
后端用https://git.oschina.net/kenvix/Tieba-Cloud-Sign的数据库操作类[我太懒了.....][之前还用文件存储来着?]
信息收集
  1. 	/* Model:曲线图变化速度信息收集模块 Start */

  2. 		$dataqx=json_decode(str_replace("\\\u","\u",option::get("bbaa_math_text")),true);

  3. 		$json=Json_decode(getsql(),true);

  4. 		/* 如果在主项中已经没有这个用户，在数据中删除掉 */

  5. 			foreach($dataqx as $zh=>$va) {

  6. 				if(empty($json["Username"][$zh])) {

  7. 					Unset($dataqx[$zh]);

  8. 				}

  9. 			}

  10. 		/* 如果在主项中已经没有这个用户，在数据中删除掉 End*/

  11. 		//$times=time()-(int)$change["change"]["fminute"]["last"]["Timestamp"];

  12. 		foreach ($change["change"]["minute"]["done"]["user"] as $key=>$value) {

  13. 			If ($qst) {

  14. 				//unset($dataqx[$key]["Timestamp"]);

  15. 				if((int)Count($dataqx[$key]["data"])<12) {

  16. 					$dataqx[$key]["data"][Count($dataqx[$key]["data"])]=$value;

  17. 				} else {

  18. 					/* 对于data满12的一个处理 {*/

  19. 						$temp=Array(); //对foreach的处理机制做出应对

  20. 						foreach ($dataqx[$key]["data"] as $keyt=>$val) {

  21. 							if ((int)$keyt>0&&(int)$keyt<12) {

  22. 								$temp[$key]["data"][Count($temp[$key]["data"])]=$val;

  23. 							}

  24. 						}

  25. 						Unset($dataqx[$key]["data"]);

  26. 						$dataqx[$key]["data"]=$temp[$key]["data"]; //合并

  27. 						Unset($temp);

  28. 					/* 对于data满12的一个处理 }*/

  29. 					$dataqx[$key]["data"][Count($dataqx[$key]["data"])]=$value;

  30. 					unset ($count);

  31. 				}

  32. 			}

  33. 		}

  34. 	/* Model:曲线图变化速度信息收集模块 End *
复制代码
  1. case "getlinedata":

  2. 			$json=Json_decode(getsql(),true);

  3. 			

  4. 			$Timestamp=$change_tmp["change"]["minute"]["last"]["Timestamp"];

  5. 			$if_date=date("H:i",$Timestamp);

  6. 			if($if_date==$_POST["Timestamp"]) {die(json_encode(array("Code"=>400)));}

  7. 			unset($change_tmp);

  8. 			$change=json_decode(str_replace("\\\u","\u",option::get("bbaa_math_text")),true);

  9. 			$tmp=Array();

  10. 			foreach($_POST["list"] as $value) {

  11. 				$tmp[$value]=$change[$value]["data"][count($change[$value]["data"])-1];

  12. 			}

  13. 			die(json_encode(array("Code"=>200,"data"=>$tmp,"Timestamp"=>$if_date)));

  14. 			unset($tmp);

  15. 		break;
复制代码
后端更新频率一分钟一次
前端get频率10秒一次
点击打开
外链图片展示
因alpha(透明)通道等原因背景为黑
2

评分人数

http://123456

TOP

bbaa

Rank: 3Rank: 3

帖子
316 
积分
275 
技术
32  
捐助
0  
注册时间
2015-11-30 
42楼
发表于 2017-7-24 17:42 | 显示全部帖子
朋友推荐我听这首歌
拿出来祸害人类
http://music.163.com/#/m/song?id=4466775&userid=379014753
http://123456

TOP

123
返回列表