Hi there,
I'm in the same boat as member 'Pubulis', in that I posted this question to the API forum, however unfortunately no-one has been able to help me. Hopefully you more 'General' guys will ba able to help me here, :o(
(Please excuse any spelling errors that may follow due to large quantities on 'Stella Artois'?!?!?!?!?!?? :o)
I am writing some VB code that will automatically start up
a third party application.
When this third party application starts up, the user would
normally select two things - a session, followed by an
environment.
I can automatically select the session by passing in a
command-line parameter, however I am not sure how to go
about selecting an environment.
The environment options are listed in a ListBox control and
I have used the FindWindow & FindWindowEx API's, to get the
handle of this listbox
Can anyone tell me how to select an item from the Listbox
so the third party application starts-up completely.
Here is the code I have come up with so far....
Thanks for your time. Any help would be much appreciated.Code:Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hwndParent As Long, ByVal hwndChildAfter As Long, ByVal lpszClass As Any, ByVal lpszWindow As Any) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long
Dim RetVal
'Start up the Third Party application, passing in a Command-Line parameter
RetVal = Shell("C:\INFOCONN\ACCMGR\ACCMGR.EXE C:\INFOCONN\ACCMGR\ENV1.XWP", 3)
'At this point the application has started and a session has been
'selected automatically. Now there is a listbox of available
'environments to choose from.
'Attempt to locate a window called "Select INFOConnect Path"
Dim hWnd As Long
hWnd = FindWindow(CLng(0), "Select INFOConnect Path")
If hWnd <> 0 Then
'The window "Select INFOConnect Path" has been found.
'Now look for the Listbox control
Dim hWndListBox As Long
hWndListBox = FindWindowEx(hWnd, 0, "ListBox", CLng(0))
If hWndListBox <> 0 Then
'ListBox has been found
'This is where I want to select an environment so
'that the application will start up completely
'without any interference from the user.
End If
End If
__________________
