批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

[原创教程] **最新一期开奖号码查询

其实不想写原创,因为工具都是微软的。有点不好意思。
这个程序给 【广东】一带的盆友使用。要求系统 pwoshell v3.0以上,.netframework 可能要4.6以上。

: 功能  查看** 最新开奖号码波色生肖
: 有新的要求可 call me。
  1. @echo off
  2. powershell "iex((gc %0 -del '::::')[2]|out-string)"&set/p=按任意键 退出<nul&pause>nul&exit
  3. ::::
  4. $_0d18a1='[
  5. {"85":"68747470733a2f2f7777772e30393835362e636f6d2f6368616a69616e2f"},
  6. {"85":"687474703a2f2f6b6a2e786e2d2d363571793434662e636f6d3a353936382f4b2f"},
  7. {"85":"68747470733a2f2f7777772e6b6a323234352e636f6d2f6368616a69616e2f"},
  8. {"85":"68747470733a2f2f7777772e6b6a373931382e636f6d2f6368616a69616e2f"}
  9. ]'
  10. $_751f='9f20725b864e51549f9986c79a6c7f8a73349e2172d7732a';
  11. $_8096=[regex]::Matches($_751f, '.{4}').value.Foreach{[char][int]('0x'+$_)}
  12. #Region 号码波色表
  13. $_436f6c6f72=@()
  14. $_496e646578=$_4d6f64=1; $_42616c6c73=11;
  15. $_53776170=$_436f756e74=$_42616c6c=0;
  16. while ($_496e646578 -le 49){
  17. if ($_4d6f64 -ge 6){$_4d6f64-=6}
  18. if ($_42616c6c -gt $_42616c6c73){
  19. $_42616c6c73+=0x2 * [math]::Pow(-1, ++$_53776170);
  20. $_42616c6c=0;
  21. $_4d6f64=($_496e646578 + ++$_436f756e74)%0x6;
  22. }
  23. if (++$_42616c6c -le $_42616c6c73){
  24. switch ($_4d6f64){
  25. {$_ -in 1, 2}{$_436f6c6f72 += @{'82'=$_496e646578.ToString('x2')}; break}
  26. {$_ -in 3, 4}{$_436f6c6f72 += @{'66'=$_496e646578.ToString('x2')}; break}
  27. {$_ -in 5, 0}{$_436f6c6f72 += @{'71'=$_496e646578.ToString('x2')}; break}
  28. }
  29. $_496e646578++; $_4d6f64++
  30. }
  31. }
  32. $_7ea26ce2=$_436f6c6f72.82;
  33. $_7eff6ce2=$_436f6c6f72.66;
  34. $_84dd6ce2=$_436f6c6f72.71;
  35. #EndRegion
  36. #Region 号码生肖表
  37. $_1f68=((Get-Date).Year-2019)%0xC+0xC
  38. if($_1f68 -gt 0xC){$_1f68%=0xC}
  39. $_53f7=0x1..0x31;
  40. $_6392=@(
  41. for($i=0;$i -lt $_8096.Count;$i++){
  42. for($j=$_1f68;$j -le $_53f7.count;$j+=0xC){
  43. if($j+0xC -gt $_53f7.Count){$_1f68=$j+0xC-$_53f7[-0x1]}
  44. @{$_8096[$i]=$_53f7[$j-0x1].ToString('d2')}
  45. }
  46. }
  47. )
  48. #EndRegion
  49. #Region 查询开奖号码
  50. Function Get-5f005956 {
  51. Foreach ($_6c6e6b in (ConvertFrom-Json $_0d18a1)){
  52. try{
  53. $_0d61a6=[Net.WebClient]::new().DownloadString(
  54. [regex]::Replace(($_6c6e6b.85+'626d6a672e6a73'),'..',{[char][int]('0x'+$args.value)})
  55. )
  56. $_475efda=(ConvertFrom-Json $_0d61a6).k.split(',');
  57. if($_475efda){
  58. Write-Host "第$($_475efda[0])期开奖号码:" -fore DarkYellow -NoNewline;
  59. $_475efda[0x1..0x7].foreach{
  60. $_0c9e5a="$_"+'('+$_6392.keys[$_6392.values.IndexOf($_)]+')'+' '
  61. Switch(([int]$_).ToString('x2')){
  62. {$_ -in $_7ea26ce2}{Write-Host $_0c9e5a -fore Red -NoNewline;break}
  63. {$_ -in $_7eff6ce2}{Write-Host $_0c9e5a -fore Cyan -NoNewline;break}
  64. {$_ -in $_84dd6ce2}{Write-Host $_0c9e5a -fore Green -NoNewline;break}
  65. }
  66. }
  67. Write-Host "`n`n第$($_475efda[0x8])开奖日期为:" -fore Magenta -NoNewline;
  68. Write-Host "$($_475efda[0x9])月$($_475efda[0xa])日"$_475efda[-0x1] -fore Yellow;
  69. }
  70. break;
  71. }catch{}
  72. }
  73. if(!$_475efda){'网页加载错误,将自动重联'; &cmd /c timeout /t 0x3C; Get-5f005956}
  74. }
  75. #EndRegion
  76. Get-5f005956
复制代码
QQ: 458609586

效果图:
附件: 您需要登录才可以下载或查看附件。没有帐号?注册
QQ: 458609586

TOP

返回列表