论坛 › 已解决问题区 › 如何检测酷狗播放的歌的标题(已解决)

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

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

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

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

$var = WinList()
For $i = 1 To $var
      ; 仅显示带标题的可见窗口
      If $var[$i] <> "" And IsVisible($var[$i]) Then
                If StringInStr($var[$i], "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
      ; 仅显示带标题的可见窗口
      If $var[$i] <> "" And IsVisible($var[$i]) Then
                If StringInStr($var[$i], "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
      ; 仅显示带标题的可见窗口
      If $var[$i] <> "" And IsVisible($var[$i]) Then
                If StringInStr($var[$i], "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

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

查看完整版本: 如何检测酷狗播放的歌的标题(已解决)