API Tror jeg det har noget med at gøre :-)

Tags:    visual-basic

Hejsa

Er ved at lave et lille program i visual basic 6 hvor jeg kan trykke på en knap i mit program som skal kunne trykke på en play knap i et andet program som er lavet i delphi.

det program som vil aktiver play knappen i hedder "Fjernbetjeningen" og kan ses på www.adgangforalle.dk
og er lavet i delphi

har prøvet
Option Explicit
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal Msg As Long, wParam As Any, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWndParent As Long, ByVal hWndChildAfter As Long, ByVal lpszClassName As String, ByVal lpszWindowText As String) As Long

Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202

Private Sub Command1_Click()
Dim h As Long

h = FindWindow(" TForm1", "Form1")
h = FindWindowEx(h, 1&, "TCoolButton", "playbt")

SendMessage h, 0&, WM_LBUTTONDOWN, 0&
SendMessage h, 0&, WM_LBUTTONUP, 0&
End Sub

men uden held

Er der nogen der kan hjælpe mig!!!

På forhånd tak




1 svar postet i denne tråd vises herunder
0 indlæg har modtaget i alt 0 karma
Sorter efter stemmer Sorter efter dato
Jeg har ikke arbejdet med Basic siden starten af 80'erne, men

Du skal kikke på funktionen SendInput

Jeg ved hvordan man gør i C++, men ikke i diverse Basic udgaver, så du må nok prøve at søge på google.



t