[分享]百度抢红包BAT代码

caruko

本人刷了2万多次，只抢到20个中粮我买网的10元券，灰心了...

各位谁运气好的不妨试试，今天最后一天。
奖品信息存储在prize.txt中，拿奖需要自己设置个WEB服务器返回中奖的JSON，或者通过fidder调试来更改网页响应。
prizeid:215 就是中粮券，中这个的就不用麻烦了。

请注意 :main 之前的设置说明，否者奖品刷给别人了。
如果不想充值，通过第三方验证码输入，可以将 call :yzm 这一行注释掉，把call :inyzm 注释去掉

1. @echo off
   
2. setlocal ENABLEDELAYEDEXPANSION
   
3. ::本机代理，测试用 set "daili=-x 127.0.0.1:8888"
   
4. 
   
5. md log  >nul 2>nul
   
6. 
   
7. set ag=-A  "Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; Trident/5.0; BOIE9;ZHCN)"
   
8. 
   
9. ::填入www.yambuy.com注册的账号，密码
   
10. set yzmuser=user
    
11. set yzmpass=pass
    
12. ::填入手机号码
    
13. set phone=13712345678
    
14. ::起始日期
    
15. if EXIST log.log (
    
16.         set /p Bday=<log.log
    
17. ) else (
    
18.         set Bday=1980-01-20
    
19. )
    
20. ::循环多少次日期，数字越大，持续时间越长。每增加1，大约刷红包55次。
    
21. set max=1000
    
22. :loop
    
23. set /a k+=1
    
24. for /f "skip=2 tokens=1-3 delims=年月日 " %%a in ('Calendar /A !Bday! 00:00:00 1 00:00:00') do (
    
25.         set /a yy=%%a,mm=%%b+100,dd=%%c+100
    
26.         set "Bday=%%a-%%b-%%c"
    
27.         set "nday=!yy!!mm:~-2!!dd:~-2!"
    
28. )
    
29. echo,!Bday!>log.log
    
30. if !k! geq !max! exit
    
31. 
    
32. :main
    
33. conset /d @  >nul
    
34. conset /d _  >nul
    
35. set "@phone=!phone!"
    
36. set "@birth=!nday!"
    
37. call :putUser
    
38. ::call :search
    
39. call :topic
    
40. call :lottery
    
41. echo,!nday!
    
42. call :拿奖 && goto :loop
    
43. echo,!@wish!
    
44. echo,剩余抽奖次数:!@count!
    
45. if !@count! geq 1 (
    
46.         goto :main
    
47. ) else (
    
48.         goto :loop
    
49. )
    
50. goto :eof
    
51. 
    
52. 
    
53. :putUser
    
54. echo,验证用户...
    
55. 2>nul curl !ag!  !daili!  -b cookies.txt -c cookies.txt -d "phone=!@phone!&birth=!@birth!&validcode=!@validcode!&valid=!@valid!&_r=0.7948380977831662" -e http://www.baidu.com/chunjie/show/welcome http://www.baidu.com/chunjie/submit/checkusr |iconv -f utf-8 -c|conset _rjson=
    
56. for /f "tokens=2-7 delims={}:," %%a in ('conset /v _rjson') do  (
    
57.         if %%b=="4001" echo,"生日错误！"
    
58.         if %%b=="4002" echo,"手机号错误！"
    
59.         if %%b=="4003" (
    
60.                 echo,"验证码错误!";
    
61.                 if DEFINED @valid call :codeerr
    
62.                 call :getCoed
    
63.                 call :putUser
    
64.         )
    
65.         if %%b=="5001" echo,"unable"
    
66.         if %%b=="6001" echo,"系统繁忙，请稍后再试^_^"
    
67.         if %%b=="0" (
    
68.                 set /a auto=0
    
69.                 echo,验证成功，得到搜索字串..
    
70.                 call :stv %%c %%d
    
71.                 call :stv %%e %%f
    
72.         )
    
73. )
    
74. set "@cookie=CJKEY=!@key!;CJEGG=1;CJPHONE=!@phone!;CJBIRTH=!@birth!"
    
75. goto :eof
    
76. 
    
77. 
    
78. 
    
79. :getCoed
    
80. echo,获取验证码...
    
81. 2>nul curl !ag!  !daili!  --cookie "!@cookie!" -b cookies.txt "http://www.baidu.com/chunjie/data/valid?phone=!@phone!&birth=!@birth!&_r=0.2951152564330317" |conset _rjson=
    
82. for /f "tokens=1-3 delims={}," %%a in ('conset /v _rjson') do  (
    
83.         for /f "tokens=1,2 delims=:" %%A in ("%%a") do (
    
84.                 call :stv %%A %%B
    
85.         )
    
86.         for /f "tokens=1,2 delims=:" %%A in ("%%b") do (
    
87.                 call :stv %%A %%B
    
88.         )
    
89.         for /f "tokens=1* delims=:" %%A in ("%%c") do (
    
90.                 call :stv %%A %%B
    
91.         )
    
92. )
    
93. 2>nul curl !ag!  !daili!  "!@validUrl!" >code.jpg
    
94. ::call :inyzm  这里是手动输入验证码，启用去掉该行：：注释即可，把下一行前加上：：
    
95. call :yzm || echo,自动验证失败！
    
96. goto :eof
    
97. 
    
98. 
    
99. :search   该段代码已经可以省略 ，仅供参考
    
100. echo,开始搜索，取得cookie...
     
101. for /f "delims=" %%a in ('echo,!@query!^|urlencode.bat') do set "@query_URL=%%a"
     
102. 2>nul curl !ag!  !daili! -I  -c cookies.txt -e "http://www.baidu.com/chunjie/show/welcome"  "http://www.baidu.com/s?bhjc=zl&wd=!@query_URL!" |findstr "Set-Cookie"|conset @Set-Cookie=
     
103. for /f "tokens=1* delims=:" %%a in ('conset /v @Set-Cookie') do (
     
104.         for /f "tokens=1 delims=; " %%A in ("%%b") do (
     
105.                 set @%%A
     
106.                 set "@cookie=!@cookie!;%%A"
     
107.         )
     
108. )
     
109. goto :eof
     
110. 
     
111. :topic   获取礼品用的key
     
112. echo,获取KEY...
     
113. 2>nul curl !daili!  -H "Cookie: !@cookie!" --cookie "!@cookie!" -c cookies.txt -e "http://www.baidu.com/s?bhjc=zl&wd=!@query!" http://www.baidu.com/chunjie/show/topic >topic.txt
     
114. cut topic.txt  {errNo });|conset @top=
     
115. set @top=errNo!@top!
     
116. for %%a in (!@top!) do (
     
117.         for /f "tokens=1,2 delims=:" %%A in ("%%a") do (
     
118.                 call :stv top_%%A %%B
     
119.         )
     
120. )       
     
121. goto :eof
     
122. 
     
123. 
     
124. :lottery
     
125. echo,获取礼品...
     
126. set /a ff=0
     
127. 2>nul curl !daili!  -H "Cookie: !@cookie!" --cookie "!@cookie!" -c cookies.txt -d "key=!@top_nextKey!&key1=areyoucheating&_r=0.8628629175014569"  -e   http://www.baidu.com/chunjie/show/topic http://www.baidu.com/chunjie/submit/lottery|iconv -f utf-8 -c|conset @prize=
     
128. set @prize=!@prize::{=!
     
129. set @prize=!@prize:{=!
     
130. set @prize=!@prize:}=!
     
131. set @prize=!@prize: =!
     
132. for %%D in (!@prize!) do (
     
133.         for /f "tokens=1,2 delims=:" %%a in ("%%D") do (
     
134.                 call :stv %%a %%b
     
135.         )
     
136. )
     
137. goto :eof
     
138. 
     
139. :拿奖
     
140. if not "!@prizeid!"=="" (
     
141.         msg * "你中奖了!注意拿奖!"
     
142.         echo,================================>>prize.txt
     
143.         set @>>prize.txt
     
144.         echo,================================>>prize.txt
     
145.         exit /b 0
     
146. )
     
147. exit /b 1
     
148. 
     
149. 
     
150. :stv  解析JSON，创建变量
     
151. set "@%~1=%~2"
     
152. goto :eof
     
153. 
     
154. 
     
155. :yzm  自动验证码识别,这里调用了 www.yzmbuy.com 的第三方验证码输入平台。
     
156. echo,正在上传验证码...
     
157. 2>nul curl -F "info[lz_user]=!yzmuser!" -F "info[lz_pass]=!yzmpass!" -F "imagepath=@code.jpg;type=image/pjpeg" -F "pesubmit=" http://api.yzmbuy.com/index.php/demo |conset _rjson=
     
158. for /f  "tokens=9 delims==<'/" %%a in ("!_rjson!") do (
     
159.         set "@cdid=%%a"
     
160. )
     
161. set /a cs=0
     
162. :getyzm  取得验证码结果
     
163. set /a cs+=1
     
164. 2>nul curl "http://api.yzmbuy.com/index.php?mod=demo&act=result&id=!@cdid!" |conset _rjson=
     
165. for %%A in (!_rjson!) do (
     
166.         set _rjj=%%A
     
167.         set _rjj=!_rjj::= !
     
168.         call :stv !_rjj!
     
169. )
     
170. ping -n 2 127.1 >nul
     
171. if !cs! geq 10 exit /b 1
     
172. if "!@result!"=="null" goto :getyzm
     
173. if "!@result!"=="" goto :getyzm
     
174. set "@valid=!@result!"
     
175. copy code.jpg "log\!@result!_!@damaworker:~0,-2!.jpg"  >nul
     
176. echo,自动识别验证码结果：!@result!
     
177. exit /b 0
     
178. 
     
179. :codeerr  验证码错误则记录。
     
180. ren "log\!@result!_!@damaworker:~0,-2!.jpg" "!fail_@result!_!@damaworker:~0,-2!.jpg"
     
181. goto :eof
     
182. 
     
183. :inyzm
     
184. set /p @valid=请输入验证码：
     
185. goto :eof
     

复制代码

caruko

因为使用了很多第三方命令行工具，附上网盘地址

网盘中没有 手动输 验证码的代码，将1楼的代码复制到QHB.BAT中即可。

http://pan.baidu.com/share/link?shareid=277021&uk=3003494867

lateol

呵呵 果然强悍啊 支持！