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
-----------------------------------------------------