Reply To: Call Chatsend

try this code guyz…..

Dim mywindowclass As Long

Dim wtlsplitterwindow As Long

Dim atld As Long

Dim atlaxwin As Long

Dim x As Long

Dim richedita As Long



mywindowclass = FindWindow("my window class", vbNullString)

wtlsplitterwindow = FindWindowEx(mywindowclass, 0&, "wtl_splitterwindow", vbNullString)

wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)

atld = FindWindowEx(wtlsplitterwindow, 0&, "atl:004d0600", vbNullString)

atlaxwin = FindWindowEx(atld, 0&, "atlaxwin71", vbNullString)

x = FindWindowEx(atlaxwin, 0&, "#32770", vbNullString)

richedita = FindWindowEx(x, 0&, "richedit20a", vbNullString)

richedita = FindWindowEx(x, richedita, "richedit20a", vbNullString)

Call SendMessageByString(richedita, WM_SETTEXT, 0&, RichTextBox1)



If richedita  0 Then



Do

DoEvents

mywindowclass = FindWindow("my window class", vbNullString)

wtlsplitterwindow = FindWindowEx(mywindowclass, 0&, "wtl_splitterwindow", vbNullString)

wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)

atld = FindWindowEx(wtlsplitterwindow, 0&, vbNullstring, vbNullString)

atlaxwin = FindWindowEx(atld, 0&, "atlaxwin71", vbNullString)

x = FindWindowEx(atlaxwin, 0&, "#32770", vbNullString)

richedita = FindWindowEx(x, 0&, "richedit20a", vbNullString)

richedita = FindWindowEx(x, richedita, "richedit20a", vbNullString)

Call SendMessageLong(richedita, WM_KEYDOWN, 13, 0&)

Loop Until richedita  0



Else

Exit Sub

End If