



Public Const WM_GoToNext = 40048
Private Const IPC_GETOUTPUTTIME = 105
Private Const WM_WA_IPC = &H400
Public hWnd_m1 As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Function GoToNext()
hWnd_m1 = FindWindow("Winamp v1.x", vbNullString)
SendMessage hWnd_m1, WM_COMMAND, WM_GoToNext, vbNull
End Function






Сейчас этот форум просматривают: AhrefsBot и гости: 16