[RESOLVED] Help with sendmessage please

[newprogram]

I have a problem I try to send a message to a combobox on a app , the problem is there are two combobox with the same name ,my code is hitting the first one ,but I need it to send to the second one not the first one. How do i make loop though and send message to the second combobox? here me code

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Const WM_SETTEXT = &HC
Private Const BM_CLICK = &HF5
Private Const WM_SETFOCUS = &H7
 
 
 
 
Private Sub Command1_Click()
Dim nPad As Long, editx As Long
     nPad = FindWindow(vbNullString, "Login to NetZero")
   editx = FindWindowEx(nPad, 0&, "zuicombobox", vbNullString)
     If editx Then
    Call SendMessageByString(editx, WM_SETTEXT, 0, "portland")
    Text1.Text = "found it"
    Else
    Text1.Text = "No find"
    
    'Call SendMessageByString(editx, BM_CLICK, 0, "Send Some")
End If
End Sub

[Fazi]

Using the control id, you may be able to uniquely identify the controls.
Eidted : GetWindowLong() with GWL_ID Should help you to retrive the ID's

[newprogram]

how do I uses "GetWindowLong() with GWL_ID " ?

Using the control id, you may be able to uniquely identify the controls.
Eidted : GetWindowLong() with GWL_ID Should help you to retrive the ID's

[Fazi]

this is an example in API Guid. hope it will help you,

'This project needs a TextBox
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const GWL_STYLE = (-16)
Const ES_NUMBER = &H2000&
Public Sub SetNumber(NumberText As TextBox, Flag As Boolean)
    Dim curstyle As Long, newstyle As Long

    'retrieve the window style
    curstyle = GetWindowLong(NumberText.hwnd, GWL_STYLE)

    If Flag Then
       curstyle = curstyle Or ES_NUMBER
    Else
       curstyle = curstyle And (Not ES_NUMBER)
    End If

    'Set the new style
    newstyle = SetWindowLong(NumberText.hwnd, GWL_STYLE, curstyle)
    'refresh
    NumberText.Refresh
End Sub
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: [email protected]

    SetNumber Text1, True
    Me.Caption = "Now, try typing some letters into the textbox"
End Sub

also you need to look at here for the documentation of the api
http://msdn2.microsoft.com/en-us/lib...84(VS.85).aspx

[RobDog888]

Or if you enumerate the windows at that level you can loop through the windows to the next one seeing how its only got two combo boxes at that level.

[newprogram]

yes that what I want to do!! but how do I do that?

Or if you enumerate the windows at that level you can loop through the windows to the next one seeing how its only got two combo boxes at that level.

[Edgemeal]

See if this helps you any, just change the FindWindow code in Command1 to reflect the "title" and "class" names of the window you are after.

[RobDog888]

yes that what I want to do!! but how do I do that?

Use the EnumWindows API.

Private Declare Function EnumWindows Lib "user32.dll" ( _ 
				ByVal lpEnumFunc As Long, _ 
				ByVal lParam As Long) As Long

[newprogram]

OK so here what i got
the first one this is what my code is hitting now
zuicombobox: Hwnd=330288, Class=zuicombobox,IDType=class

and the second one this is the one I need to sendmessage to

zuicombobox: Hwnd=723584, Class=zuicombobox,IDType=class

I see the Hwnd is diffent but how to I send by the hwnd?
like

editx = FindWindowEx(nPad, 0&, "zuicombobox", "Hwnd=723584") 'Does the hwnd go here

[Edgemeal]

and the second one this is the one I need to sendmessage to
zuicombobox: Hwnd=723584, Class=zuicombobox,IDType=class

Once you have the Hwnd to the "edit" class of a combo box, text box or whatever just use that Hwnd...

SendMessageByString 723584, WM_SETTEXT, 0, "Sometext"

[RobDog888]

OK so here what i got
the first one this is what my code is hitting now
zuicombobox: Hwnd=330288, Class=zuicombobox,IDType=class

and the second one this is the one I need to sendmessage to

zuicombobox: Hwnd=723584, Class=zuicombobox,IDType=class

I see the Hwnd is diffent but how to I send by the hwnd?
like

editx = FindWindowEx(nPad, 0&, "zuicombobox", "Hwnd=723584") 'Does the hwnd go here

You are not storing handles in variables are you? They change each time the windows are created.

[newprogram]

no I was going to grab them each time before sending the message.

You are not storing handles in variables are you? They change each time the windows are created.

[Edgemeal]

no I was going to grab them each time before sending the message.

From your first post I figured you knew that much!

[RobDog888]

Yes, but you never know unless you are the one writting the code. Also from the example ...

"editx = FindWindowEx(nPad, 0&, "zuicombobox", "Hwnd=723584") "

[Edgemeal]

Yes, but you never know unless you are the one writting the code. Also from the example ...

"editx = FindWindowEx(nPad, 0&, "zuicombobox", "Hwnd=723584") "

Ya Simple rookie mistake

[Fazi]

but control ID's never change, correct?

[Edgemeal]

this is an example in API Guid. hope it will help you,
[CODE]

All that does is only allow numbers in a text box, I don't see what that has to do with the OPs question? Either I need sleep or you do.

[Fazi]

my example in no 4# is just an example of using getwindowlong()

[newprogram]

I did it with your guys help!! I took Edgemeal program add some stuff to and it works great!!!
here the code

'in a module
Option Explicit
 
Public Declare Function EnumChildWindows Lib "user32" _
  (ByVal hWndParent As Long, _
   ByVal lpEnumFunc As Long, _
   ByVal lParam As Long) As Long
   
Public Declare Function FindWindow Lib "user32" _
    Alias "FindWindowA" (ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
 
Private Declare Function GetWindowTextLength Lib "user32" _
    Alias "GetWindowTextLengthA" _
   (ByVal hwnd As Long) As Long
    
Private Declare Function GetWindowText Lib "user32" _
    Alias "GetWindowTextA" _
   (ByVal hwnd As Long, _
    ByVal lpString As String, _
    ByVal cch As Long) As Long
    
Private Declare Function GetClassName Lib "user32" _
    Alias "GetClassNameA" _
   (ByVal hwnd As Long, _
    ByVal lpClassName As String, _
    ByVal nMaxCount As Long) As Long
 
Private Function TrimNull(startstr As String) As String
 
  Dim pos As Integer
 
  pos = InStr(startstr, Chr$(0))
  
  If pos Then
      TrimNull = Left$(startstr, pos - 1)
      Exit Function
  End If
 
  TrimNull = startstr
  
End Function
 
Private Function GetWindowIdentification(ByVal hwnd As Long, _
   sIDType As String, sClass As String) As String
 
   Dim nSize As Long
   Dim sTitle As String
  
   nSize = GetWindowTextLength(hwnd)
   
  'if the return is 0, there is no title
   If nSize > 0 Then
      sTitle = Space$(nSize + 1)
      Call GetWindowText(hwnd, sTitle, nSize + 1)
      sIDType = "title"
      sClass = Space$(64)
      Call GetClassName(hwnd, sClass, 64)
   Else
     'no title, so get the class name instead
      sTitle = Space$(64)
      Call GetClassName(hwnd, sTitle, 64)
      sClass = sTitle
      sIDType = "class"
   End If
   
   GetWindowIdentification = TrimNull(sTitle)
 
End Function
 
Public Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
  
   Dim sTitle As String
   Dim sClass As String
   Dim sIDType As String
   
  'get the window title/class name
   sTitle = GetWindowIdentification(hwnd, sIDType, sClass)
   'add to our list
   Form1.List1.AddItem sTitle & ": Hwnd=" & hwnd & ", Class=" & TrimNull(sClass) & ", IDType=" & sIDType
   EnumChildProc = 1
   
End Function
 
 
 
 
'in the form
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Const WM_SETTEXT = &HC
Private Const BM_CLICK = &HF5
Private Const WM_SETFOCUS = &H7
 
 
 
Private Sub Command1_Click()
 
    Dim Lhwnd As Long
    
    List1.Clear
    
    ' get hwnd to our dialog/program window
    Lhwnd = FindWindow(vbNullString, "Login to NetZero")
    
    If Lhwnd Then ' get childs
        Call EnumChildWindows(Lhwnd, AddressOf EnumChildProc, &H0)
    End If
    
End Sub
 
 
Private Sub Command2_Click()
Text1.Text = List1.List(4)
 
End Sub
 
Private Sub Command3_Click()
Call SendMessageByString(Text1.Text, WM_SETTEXT, 0, "portland")
 
   
End Sub
 
Private Sub Form_Load()
 
End Sub
 
Private Sub Text1_Change()
Text1.Text = Replace(Text1.Text, "zuicombobox: Hwnd=", "")
Text1.Text = Replace(Text1.Text, ", Class=zuicombobox, IDType=class", "")
 
End Sub

[jmsrickland]

I did it with your guys help!! I took Edgemeal program add some stuff to and it works great!!!
here the code

  '
  '
Private Sub Command3_Click()
 Call SendMessageByString(Text1.Text, WM_SETTEXT, 0, "portland")
End Sub
  '
  '

You need a handle here not a text string

[Edgemeal]

You need a handle here not a text string

Ya convert the text string to a long, since thats what the API expects.
Call SendMessageByString(Clng(Text1.Text), WM_SETTEXT, 0, "portland")

[jmsrickland]

He will first have to extract out the handle from the entire text string.

[Edgemeal]

He will first have to extract out the handle from the entire text string.

I didn't study the code but it looks like that was done with the Replace command.

[jmsrickland]

Oh, OK, I tested it on my system but I changed the Title of the window so the Replace didn't work in my case because I saw the entire text message in the text1.

[newprogram]

cool thanks!!

Ya convert the text string to a long, since thats what the API expects.
Call SendMessageByString(Clng(Text1.Text), WM_SETTEXT, 0, "portland")

[RobDog888]

The API expects a Long that is the window handle so converting the textbox contents to a Integer will fail if the handle is larger then a Integer.