脚本分享：一首歌的时间

逆流天下 · 发表于 2022-4-23 11:57:31

#脚本功能和前置条件

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

#代码明细

#Region ;**** 由 AccAu3Wrapper_GUI 创建指令 ****
#AccAu3Wrapper_Outfile=ImageSearchDemo.exe
#AccAu3Wrapper_UseX64=n
#AccAu3Wrapper_Res_Comment=识图点击 DEMO
#AccAu3Wrapper_Res_Description=识图点击 DEMO
#AccAu3Wrapper_Res_Fileversion=1.0.0.8
#AccAu3Wrapper_Res_Fileversion_AutoIncrement=y
#AccAu3Wrapper_Res_ProductVersion=1.0
#AccAu3Wrapper_Res_LegalCopyright=识图点击 DEMO
#AccAu3Wrapper_Res_Language=2052
#AccAu3Wrapper_Res_requestedExecutionLevel=None
#AccAu3Wrapper_Antidecompile=y
#EndRegion ;**** 由 AccAu3Wrapper_GUI 创建指令 ****
#cs ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
欢迎使用 AutoIt v3 中文版 !
IT天空: https://www.itiankong.com/
Au3专区: https://www.itiankong.net/forum-au3-1.html
Au3版本: 3.3.14.2
脚本作者:
脚本功能:
更新日志:
联系方式:
系统要求： WIN10/WINVISTA/WIN7
分辨率要求：最低 1366*768
酷狗版本： 10053(0.2.55)
脚本说明：自动打开酷狗并点击播放下一首等待歌曲播放完毕自动关闭酷狗音乐软件
#ce ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿脚本开始＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
;载入UDF
#include <ImagesSearch.au3>
FileInstall("E:\Script\AutoItv3\ImagesSearchDemo\Images\酷狗音乐.bmp", @TempDir & "\酷狗音乐.bmp", 1)
FileInstall("E:\Script\AutoItv3\ImagesSearchDemo\Images\功能按钮.bmp", @TempDir & "\功能按钮.bmp", 1)
FileInstall("E:\Script\AutoItv3\ImagesSearchDemo\Images\下一首.bmp", @TempDir & "\下一首.bmp", 1)
Opt("MouseCoordMode", 1) ;设置鼠标函数的坐标是否参照桌面窗口的相对坐标
Opt("PixelCoordMode", 1) ;设置查找颜色函数的坐标是否参照桌面窗口的相对坐标
Global $G_main_title = "酷狗音乐"
Global $G_main_text = ""
_Warm_prompt()
Main()
Cycle_test_progress()
Exit
Func _Warm_prompt()
If @DesktopWidth > "1366" Then
If @DesktopHeight > "768" Then
If @OSVersion = "WIN_10" Or "WIN_VISTA" Or "WIN_7" Then
Else
Exit
EndIf
Else
Exit
EndIf
Else
Exit
EndIf
EndFunc ;==>_Warm_prompt
Func Main()
;显示桌面
Send("#d")
TrayTip("", "显示桌面开始查找酷狗音乐图标并双击打开", 1)
;延时1秒
Sleep(2000)
; 开始在桌面查找指定图片,在大图中查找小图
; 小图 = @ScriptDir & "\Images\酷狗音乐.bmp"
; 大图 = 截图指定坐标范围保持在脚本目录下 "Source.bmp" 就是大图
_ImageSearch(0, 0, @DesktopWidth, @DesktopHeight, @TempDir & "\酷狗音乐.bmp")
FileDelete(@ScriptDir & "\Source.bmp")
;判断查找是否成功并执行对应代码
If $aPosMsg <> "" Then
;查找成功返回对应坐标数组
;分割数组到变量
$array = StringSplit($aPosMsg, ",", 2)
;鼠标双击找到的图片的正中央
MouseClick("left", $array[0] + $array[2] / 2, $array[1] + $array[3] / 2, 2)
EndIf
;等待窗口出现并激活时执行下面代码
;延时1秒
Sleep(3000)
Local $HWND = WinWait($G_main_title, "")
WinActivate($HWND)
; 开始在桌面查找指定图片,在大图中查找小图
; 小图 = @ScriptDir & "\Images\酷狗音乐.bmp"
; 大图 = 截图指定坐标范围保持在脚本目录下 "Source.bmp" 就是大图
TrayTip("", "查找酷狗音乐的下一首按钮并单击开始播放", 1)
_ImageSearch(0, 0, @DesktopWidth, @DesktopHeight, @TempDir & "\下一首.bmp")
FileDelete(@ScriptDir & "\Source.bmp")
;判断查找是否成功并执行对应代码
If $aPosMsg <> "" Then
;查找成功返回对应坐标数组
;分割数组到变量
$array = StringSplit($aPosMsg, ",", 2)
;鼠标单击找到的图片的正中央
MouseClick("left", $array[0] + $array[2] / 2, $array[1] + $array[3] / 2, 2)
EndIf
EndFunc ;==>Main
;开始循环搜索进度条进度一旦进度条拉满就介素播放
Func Cycle_test_progress()
Opt("MouseCoordMode", 0) ;设置鼠标函数的坐标是否参照当前激活窗口的相对坐标
Opt("PixelCoordMode", 0) ;设置查找颜色函数的坐标是否参照当前激活窗口的相对坐标
Local $HWND = WinWait($G_main_title, "") ;1020*720
WinActivate($HWND)
Local $i = "1"
While $i = "1" ;一级循环
Local $aArray = WinGetPos("[ACTIVE]")
Local $aArray1 = PixelSearch($aArray[2] - 30, $aArray[3] - 70, $aArray[2] - 13, $aArray[3] - 67, 0x35C1FF)
If Not @error Then
TrayTip("", "主人：歌曲已经播放完毕了哦。快睡觉吧@……@", 1)
Sleep(2000)
_ImageSearch($aArray[0], $aArray[1], $aArray[0] + $aArray[2], $aArray[1] + $aArray[3], @TempDir & "\功能按钮.bmp")
FileDelete(@ScriptDir & "\Source.bmp")
If $aPosMsg <> "" Then
$array = StringSplit($aPosMsg, ",", 2)
TrayTip("", "主人：我要关闭音乐软件了哦。快睡觉吧@……@", 1)
MouseClick("left", $array[0] + "20" + $array[2] / 2, $array[1] + $array[3] / 2, 1)
Sleep(5000)
ExitLoop
EndIf
EndIf
WEnd
EndFunc ;==>Cycle_test_progress

复制代码

#符合条件的可以下载我编译好的执行文件试一试哦

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

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

		自动登录	找回密码
密码			加入我们

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

社区QQ达人

《AU3自学手册》