如何检测酷狗播放的歌的标题(已解决)

xymc · 发表于 2011-10-21 18:01:50

本帖最后由 xymc 于 2011-10-23 14:06 编辑

不想工作人员播放dj类的歌，所以想搞个检测到播放dj的歌就暂停，酷狗音乐F5键可以暂停正在播放的歌的。主要问题是怎么样可以检测到播放曲目的标题，求答案

$var = WinList()
For $i = 1 To $var[0][0]
      ; 仅显示带标题的可见窗口
      If $var[$i][0] <> "" And IsVisible($var[$i][1]) Then
            If StringInStr($var[$i][0], "dj") Then
                     MsgBox(16, "警告", "请不要放此类歌曲!!!", 60)
            EndIf
      EndIf
Next

Func IsVisible($handle)
      If BitAND(WinGetState($handle), 2) Then
            Return 1
      Else
            Return 0
      EndIf
EndFunc ;==>IsVisible

这个怎么循环啊？求解

xymc · 发表于 2011-10-21 18:41:47

求解决求解决求解决

xymc · 发表于 2011-10-21 19:31:21

$var = WinList()
For $i = 1 To $var[0][0]
      ; 仅显示带标题的可见窗口
      If $var[$i][0] <> "" And IsVisible($var[$i][1]) Then
            If StringInStr($var[$i][0], "dj") Then
                     MsgBox(16, "警告", "请不要放此类歌曲!!!", 60)
            EndIf
      EndIf
Next

Func IsVisible($handle)
      If BitAND(WinGetState($handle), 2) Then
            Return 1
      Else
            Return 0
      EndIf
EndFunc ;==>IsVisible

这个怎么循环啊？求解

fjxm · 发表于 2011-10-21 21:53:38

While 1
    $var = WinList()
    For $i = 1 To $var[0][0]
        ; 仅显示带标题的可见窗口
        If $var[$i][0] <> "" And IsVisible($var[$i][1]) Then
                If StringInStr($var[$i][0], "dj") Then
                        MsgBox(16, "警告", "请不要放此类歌曲!!!", 60)
                EndIf
        EndIf
    Next
    Sleep(100)
WEnd
Func IsVisible($handle)
        If BitAND(WinGetState($handle), 2) Then
                Return 1
        Else
                Return 0
        EndIf
EndFunc   ;==>IsVisible

hollandmfq · 发表于 2014-5-15 11:36:26

雷锋精神传天下！谢谢分享！

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

[AU3基础] 如何检测酷狗播放的歌的标题(已解决)

相关帖子