Keskustelu: Ohjelmointikysymykset: VB6: VB ja WinAmp

Minkälaisilla käskyillä WinAmpia saa ohjattua VB:llä niin et se rupee esim. soittaan tai vaihtaa seuraavan raidan?

Katso: https://www.ohjelmointiputka.net/koodivinkit/23533-pascal-kontrolloi-winampia-delphillä

Eli käytetään SendMessage APIa WinAMPin ikkunakahvan kanssa. Win32APIn käytöstä taisi olla esimerkkiä noissa VB-oppaissa.

Voisko joku kääntää tosta esimerkin VB:lle ku ei oikein oo vahvin ala toi WinAPI?

Yksi sekavimpia (ja vanhimpia) koodivinkkejäni :)

Tämä saattaisi toimia. Tämä ei tunnu toimivan VB3 :lla (valittaa ainakin tuosta ensimmäisestä rivistä), joten koodi on NT-laatua (Never Tested).

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Const WM_USER = &H400

Sub Command1_Click ()
    Dim Wnd As Long
    Wnd = FindWindow("Winamp v1.x", vbNullString)
    SendMessage(Wnd,WM_USER,0,102)
End Sub

Tässä on funktioiden määrittelyt 16-bittiselle Windowsille, jos toimimattomuus johtuu siitä.

Declare Function SendMessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Any) As Long

Declare Function FindWindow Lib "User" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Integer

Kun korjaan nuo noin, se tekee näin: se maalaa tuon funktion nimen (SendMessage) ja valittaa Invalid in Sub or Function.

No jaa, en oikeastaan välitä asiasta, minä kun en osaa ohjelmoida Visual Basic :lla.