Skip to content

Reply To: Call RoomSend

#189750
Admin
Administrator
Dim mywindowclass As Long
Dim wtlsplitterwindow As Long
Dim atld As Long
Dim atlaxwin As Long
Dim x As Long
Dim toolbarwindow 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:004d6640", vbNullString)
atlaxwin = FindWindowEx(atld, 0&, "atlaxwin71", vbNullString)
x = FindWindowEx(atlaxwin, 0&, "#32770", vbNullString)
toolbarwindow = FindWindowEx(x, 0&, "toolbarwindow32", vbNullString)
Call SendMessageLong(toolbarwindow, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessageLong(toolbarwindow, WM_LBUTTONUP, 0&, 0&)
richedita = FindWindowEx(x, 0&, "richedit20a", vbNullString)
richedita = FindWindowEx(x, richedita, "richedit20a", vbNullString)
Call SendMessageByString(richedita, WM_SETTEXT, 0&, Text1.Text)
SendKeys "{ENTER}"
If toolbarwindow = 0 Then
MsgBox "Error: Cannot find room window dumbass!"
Exit Sub
End If
End Sub

i use the toolbarwindow to call there is a |> looking thing in the pm’s and chat rooms that i use that to send the text 😀