IT天空

 找回密码
 加入我们

手机号码,快捷登录

搜索

[原创] 脚本分享:一首歌的时间

[复制链接]
逆流天下 发表于 2022-4-23 11:57:31 | 显示全部楼层 |阅读模式

#脚本功能和前置条件

系统要求: WIN10/WINVISTA/WIN7
分辨率要求:最低 1366*768
酷狗版本: 10053(0.2.55)
脚本说明: 自动打开酷狗并点击播放下一首等待歌曲播放完毕自动关闭酷狗音乐软件



#代码明细
  1. #Region ;**** 由 AccAu3Wrapper_GUI 创建指令 ****
  2. #AccAu3Wrapper_Outfile=ImageSearchDemo.exe
  3. #AccAu3Wrapper_UseX64=n
  4. #AccAu3Wrapper_Res_Comment=识图点击 DEMO
  5. #AccAu3Wrapper_Res_Description=识图点击 DEMO
  6. #AccAu3Wrapper_Res_Fileversion=1.0.0.8
  7. #AccAu3Wrapper_Res_Fileversion_AutoIncrement=y
  8. #AccAu3Wrapper_Res_ProductVersion=1.0
  9. #AccAu3Wrapper_Res_LegalCopyright=识图点击 DEMO
  10. #AccAu3Wrapper_Res_Language=2052
  11. #AccAu3Wrapper_Res_requestedExecutionLevel=None
  12. #AccAu3Wrapper_Antidecompile=y
  13. #EndRegion ;**** 由 AccAu3Wrapper_GUI 创建指令 ****
  14. #cs ____________________________________

  15.         欢迎使用 AutoIt v3 中文版 !

  16.         IT天空:                https://www.itiankong.com/
  17.         Au3专区:        https://www.itiankong.net/forum-au3-1.html

  18.         Au3版本:        3.3.14.2
  19.         脚本作者:
  20.         脚本功能:
  21.         更新日志:
  22.         联系方式:

  23.         系统要求:        WIN10/WINVISTA/WIN7
  24.         分辨率要求:最低 1366*768
  25.         酷狗版本:        10053(0.2.55)
  26.         脚本说明:        自动打开酷狗并点击播放下一首等待歌曲播放完毕自动关闭酷狗音乐软件
  27. #ce _______________脚本开始_________________

  28. ;载入UDF
  29. #include <ImagesSearch.au3>

  30. FileInstall("E:\Script\AutoItv3\ImagesSearchDemo\Images\酷狗音乐.bmp", @TempDir & "\酷狗音乐.bmp", 1)
  31. FileInstall("E:\Script\AutoItv3\ImagesSearchDemo\Images\功能按钮.bmp", @TempDir & "\功能按钮.bmp", 1)
  32. FileInstall("E:\Script\AutoItv3\ImagesSearchDemo\Images\下一首.bmp", @TempDir & "\下一首.bmp", 1)

  33. Opt("MouseCoordMode", 1) ;设置鼠标函数的坐标是否参照桌面窗口的相对坐标
  34. Opt("PixelCoordMode", 1) ;设置查找颜色函数的坐标是否参照桌面窗口的相对坐标

  35. Global $G_main_title = "酷狗音乐"
  36. Global $G_main_text = ""

  37. _Warm_prompt()
  38. Main()
  39. Cycle_test_progress()
  40. Exit

  41. Func _Warm_prompt()
  42.         If @DesktopWidth > "1366" Then
  43.                 If @DesktopHeight > "768" Then
  44.                         If @OSVersion = "WIN_10" Or "WIN_VISTA" Or "WIN_7" Then
  45.                                
  46.                         Else
  47.                                 Exit
  48.                         EndIf
  49.                 Else
  50.                         Exit
  51.                 EndIf
  52.         Else
  53.                 Exit
  54.         EndIf
  55. EndFunc   ;==>_Warm_prompt


  56. Func Main()
  57.         ;显示桌面
  58.         Send("#d")
  59.         TrayTip("", "显示桌面开始查找酷狗音乐图标并双击打开", 1)
  60.         ;延时1秒
  61.         Sleep(2000)

  62.         ;        开始在桌面查找指定图片,在大图中查找小图
  63.         ;        小图 = @ScriptDir & "\Images\酷狗音乐.bmp"
  64.         ;        大图 = 截图指定坐标范围保持在脚本目录下 "Source.bmp" 就是大图
  65.         _ImageSearch(0, 0, @DesktopWidth, @DesktopHeight, @TempDir & "\酷狗音乐.bmp")
  66.         FileDelete(@ScriptDir & "\Source.bmp")
  67.         ;判断查找是否成功并执行对应代码
  68.         If $aPosMsg <> "" Then
  69.                 ;查找成功返回对应坐标数组
  70.                 ;分割数组到变量
  71.                 $array = StringSplit($aPosMsg, ",", 2)
  72.                 ;鼠标双击找到的图片的正中央
  73.                 MouseClick("left", $array[0] + $array[2] / 2, $array[1] + $array[3] / 2, 2)
  74.         EndIf

  75.         ;等待窗口出现并激活时执行下面代码

  76.         ;延时1秒
  77.         Sleep(3000)
  78.         Local $HWND = WinWait($G_main_title, "")
  79.         WinActivate($HWND)

  80.         ;        开始在桌面查找指定图片,在大图中查找小图
  81.         ;        小图 = @ScriptDir & "\Images\酷狗音乐.bmp"
  82.         ;        大图 = 截图指定坐标范围保持在脚本目录下 "Source.bmp" 就是大图
  83.         TrayTip("", "查找酷狗音乐的下一首按钮并单击开始播放", 1)
  84.         _ImageSearch(0, 0, @DesktopWidth, @DesktopHeight, @TempDir & "\下一首.bmp")
  85.         FileDelete(@ScriptDir & "\Source.bmp")
  86.         ;判断查找是否成功并执行对应代码
  87.         If $aPosMsg <> "" Then
  88.                 ;查找成功返回对应坐标数组
  89.                 ;分割数组到变量
  90.                 $array = StringSplit($aPosMsg, ",", 2)
  91.                 ;鼠标单击找到的图片的正中央
  92.                 MouseClick("left", $array[0] + $array[2] / 2, $array[1] + $array[3] / 2, 2)
  93.         EndIf
  94. EndFunc   ;==>Main
  95. ;开始循环搜索进度条进度一旦进度条拉满就介素播放

  96. Func Cycle_test_progress()
  97.        
  98.         Opt("MouseCoordMode", 0) ;设置鼠标函数的坐标是否参照当前激活窗口的相对坐标
  99.         Opt("PixelCoordMode", 0) ;设置查找颜色函数的坐标是否参照当前激活窗口的相对坐标
  100.        
  101.         Local $HWND = WinWait($G_main_title, "") ;1020*720
  102.         WinActivate($HWND)
  103.        
  104.        
  105.         Local $i = "1"
  106.         While $i = "1" ;一级循环
  107.                 Local $aArray = WinGetPos("[ACTIVE]")
  108.                 Local $aArray1 = PixelSearch($aArray[2] - 30, $aArray[3] - 70, $aArray[2] - 13, $aArray[3] - 67, 0x35C1FF)
  109.                 If Not @error Then
  110.                         TrayTip("", "主人:歌曲已经播放完毕了哦。快睡觉吧@……@", 1)
  111.                         Sleep(2000)
  112.                         _ImageSearch($aArray[0], $aArray[1], $aArray[0] + $aArray[2], $aArray[1] + $aArray[3], @TempDir & "\功能按钮.bmp")
  113.                         FileDelete(@ScriptDir & "\Source.bmp")
  114.                         If $aPosMsg <> "" Then
  115.                                 $array = StringSplit($aPosMsg, ",", 2)
  116.                                 TrayTip("", "主人:我要关闭音乐软件了哦。快睡觉吧@……@", 1)
  117.                                 MouseClick("left", $array[0] + "20" + $array[2] / 2, $array[1] + $array[3] / 2, 1)
  118.                                 Sleep(5000)
  119.                                 ExitLoop
  120.                         EndIf
  121.                 EndIf
  122.         WEnd
  123. EndFunc   ;==>Cycle_test_progress
复制代码
#符合条件的可以下载我编译好的执行文件试一试哦

ImageSearchDemo.7z (491.63 KB, 下载次数: 2)

#如果你对脚本感兴趣可以回复下帖子让更多的人看到




您需要登录后才可以回帖 登录 | 加入我们

本版积分规则

逆流天下

9065

活跃

3

技术

6

互助
签到任务
最火的业界新闻
  • Ryzen 7000今秋发布:业内首款5nm PC处理器
  • 华硕X670主板图曝光:采用双芯片设计
  • AMD RX 6300M亮机卡跑分首曝:竟不如锐龙AP
  • 消息称华为新款显示器“MateView SE”明天
  • 微信iOS 8.0.22支持群消息置顶 网友吐槽:
  • 大神曝料:AMD Zen4锐龙7000最高加速5.4GHz
  • 微软的Windows 11实体U盘安装介质印的是Win
  • AMD锐龙7000新座驾偷跑:X670主板确认双南
  • 小米总裁透露小米汽车进展:计划不变 正研
  • 小米一季度净利润腰斩 中国智能手机月销量
炫酷的硬件Show
  • MARK 1 - 设计型 PC 与垂直风道
  • 好的大王,没问题大王
  • 振华SUPER FLOWER 铜皇450W 铜牌电源
  • 比小更小,Mini-STX装机
  • 华擎X99E-ITX + 银欣ML06 装机记
  • 最强双路泰坦硬管水冷 制作流程
  • 银欣FT02,双路E5工作站
  • 迟到的定制机箱小钢炮清理灰尘
  • 乔思伯UMX1 Plus,小巧的家用综合主机
  • 分体水冷第二弹-Inwin 805 infinity
有趣的美图分享
  • 老兄 这水怎么越来越热呀
  • 没电都急哭了
  • 没毛病,但又觉得哪不对
  • 其实我也是可乐教的
  • 诡计多端的销售
  • 反客为主
  • 反重力楼梯
  • 这buff叠满了,可惜有个de的前缀
  • 8bit猫
  • 这猕猴桃真青椒
关注官方微信
快速回复 返回顶部 返回列表