Sendmessage help?

[|2eM!x]

well, first ive never seen that thread, but i did visit another one of your threads that got me this far..
edit**my stupidity, i see my own post on there, although i dont remember it..


added this to a module:

Option Explicit
 
'Functions, constants and types for the hook
Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" ( _
    ByVal idHook As Long, _
    ByVal lpfn As Long, _
    ByVal hmod As Long, _
    ByVal dwThreadId As Long _
) As Long
 
Private Declare Function UnhookWindowsHookEx Lib "user32" ( _
    ByVal hHook As Long _
) As Long
 
Private Declare Function CallNextHookEx Lib "user32" ( _
    ByVal hHook As Long, _
    ByVal ncode As Long, _
    ByVal wParam As Long, _
    lParam As Any _
) As Long
 
Public Const WH_MOUSE_LL = 14
 
Public Type POINTAPI
        x As Long
        y As Long
End Type
 
Public Type MSLLHOOKSTRUCT
    pt As POINTAPI
    mouseData As Long
    flags As Long
    time As Long
    dwExtraInfo As Long
End Type
 
Private hHook As Long
Public IsHooked As Boolean
 
'functions for getting windows properties
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 Declare Function WindowFromPoint Lib "user32" ( _
    ByVal xPoint As Long, _
    ByVal yPoint As Long _
) As Long
 
Sub GetWindowData(x As Long, y As Long)
 Dim hWndFrm As Long
 Dim lpClassName As String, lpString As String
 lpClassName = Space(100)
 lpString = Space(100)
 'get handle to window
 hWndFrm = WindowFromPoint(CLng(x), CLng(y))
 If hWndFrm = 0 Then Exit Sub
 'get window text (caption)
 Call GetWindowText(hWndFrm, lpString, Len(lpString))
 'get window class name
 Call GetClassName(hWndFrm, lpClassName, Len(lpClassName))
 
 With Form1
  .txthandle = Hex(hWndFrm)
  .txtCaption = lpString
  .txtClassName = lpClassName
 End With
End Sub
 
Public Sub SetMouseHook()
    If IsHooked Then
        MsgBox "Don't hook the MOUSE_LL hook twice or you'll be sorry."
    Else
        'This has to be set up as a system-wide hook
        hHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf MouseProc, App.hInstance, 0)
        IsHooked = True
    End If
End Sub
 
Public Sub RemoveMouseHook()
    Dim temp As Long
    temp = UnhookWindowsHookEx(hHook)
    IsHooked = False
End Sub
 
 
Public Function MouseProc(ByVal uCode As Long, ByVal wParam As Long, lParam As MSLLHOOKSTRUCT) As Long
    If uCode >= 0 Then
        Call GetWindowData(lParam.pt.x, lParam.pt.y)
    End If
                MouseProc = CallNextHookEx(hHook, uCode, wParam, lParam)
End Function

Added this to a form:

Option Explicit
 
'Always on top stuff
Private Const HWND_TOPMOST = -1
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_SHOWWINDOW = &H40
 
Private Declare Sub SetWindowPos Lib "user32" ( _
    ByVal hwnd As Long, _
    ByVal hWndInsertAfter As Long, _
    ByVal x As Long, _
    ByVal y As Long, _
    ByVal cx As Long, _
    ByVal cy As Long, _
    ByVal wFlags As Long _
)
 
Private Sub cmdStart_Click()
'make window always on top
 SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or _
    SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
 'set the system-wide low level mouse hook
 Call SetMouseHook
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
 Call RemoveMouseHook
End Sub

But nothing happends, the textboxs say text1, text2, and text3 no matter what i do. i am positive ive set nothing wrong.

[moeur]

I have a joke:
Q: How many I.T. administrators does it take to changes a light bulb?
A: It works for me...

OK, I won't give the typical IT response

Let's check:
Are you using VB 6?
Did you put the module code in a module and the form code in a form?
Did you compile the code to check for errors?
Option Explicit everywhere?
did you press the cmdStart button?
If the answers to all these is yes, yes, yes, yes, yes
check to see if your mouse hook is working...
put a debug.print statement in there
Let me know

[|2eM!x]

yes to all, lemme check out that print stuff

Public Sub SetMouseHook()
    If IsHooked Then
        MsgBox "Don't hook the MOUSE_LL hook twice or you'll be sorry."
    Else
        'This has to be set up as a system-wide hook
        hHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf MouseProc, App.hInstance, 0)
        IsHooked = True
        MsgBox "hello"
    End If
End Sub

No messagebox hello after clicking cmdstart

edit2**
figured it out, after my computer crashed i forgot to rename command1 to cmdstart.shoot. sorry for your time.

in txthandle it says: 1049E
ib txtcaption & txtclassname it says "trillian display"

btw, the txthandle changes for each msg, so if i open up 2 im windows, the textboxes will have different handles..how can i do this, if they handles change?<the only thing that stays the same is icoPMsgAIM, or icoPMsgMSN, <--thats the main one, its the parent is it called? is this still doable still?

[moeur]

So far so bad,

What is return value, hHook?

hHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf MouseProc, App.hInstance, 0)

[|2eM!x]

94438373 is value of Hhook

[moeur]

Can you think of anything you did that might prevent the mouse messages from being received by your App?

Do you have any other hooks installed, or is your App subclassed?

[|2eM!x]

Ive uploaded my project files..you can see exactly what i did, im not sure how to answer your question, all i did was follow that link you sent me