댓글 리스트
-
작성자 이상열 작성시간12.07.02 감사합니다.
ThWnd = FindWindow("PotPlayer", vbNullString) 로 다음팟을 찾았는데..
보내주신대로 하니 볼류 업다운은 잘됩니다.
그런데 파일 다음곡이 되지 않아 무엇이 잘못되었는지 확인하고 있습니다.
Public Const VK_NEXT = &H22 ' PgDn
Public Const WM_KEYDOWN As Long = &H100
Call SendMessage(ThWnd, WM_KEYDOWN, VK_NEXT, 0)
다음버전에서 추가해주신다니.. 기대하고 있겠습니다. -
작성자 이상열 작성시간12.07.02 노래 제목은 윈앰프에서 아래와 같이 사용하고 있습니다.
Function GetWindowTitle(TheHWnd As Long) As String
Dim Title As String
If IsWindow(TheHWnd) Then
Title = Space$(GetWindowTextLength(TheHWnd) + 1)
Call GetWindowText(TheHWnd, Title, Len(Title))
Title = left$(Title, Len(Title) - 1)
End If
GetWindowTitle = Title
End Function -
삭제된 댓글입니다.