i have prolems sendmessage

sometime my sendmessage to diablo 2 works but sometime dont here my code



-------------------------------------

Public Sub D2ChatSend(lpWindowName As String, strString As String)
Dim c$, i&, w&
w& = FindWindow(vbNullString, lpWindowName$)

If w& = 0 Then MsgBox "Window not found!", vbCritical, "Error!"
For i& = 1 To Len(strString$)
c$ = Mid$(strString$, i, 1)

Call SendMessage(w&, WM_CHAR, Asc(c$), 0&)
Call SendMessage(w&, WM_KEYDOWN, Asc(c$), 0&)


Next i
End Sub
-----------------------------------------------------

Set the focus to the Diablo2 chat textbox first. You can do this by sending a message that presses the left mouse button down, then up to the correct X and Y coordinates. If you still have problems, post back.

Code:

---

SendMessageLong hWnd&, WM_LBUTTONDOWN, X, Y
SendMessageLong hWnd&, WM_LBUTTONUP, X, Y

---

Use SendMessageLong instead.