-
I'm only a beginner programmer, and I don't know all that much. I'm using Visual Basic 6.0, and I need a way to get the text from a chatroom in mIRC and place it into a textbox. I'm having a hard time with this; the best I can do is get the caption of the chatroom added to the textbox. If you feel like looking over my code, here you are:
===================CODE START===================
Private Sub Command5_Click()
Chat$ = mircchatline
Text14 = Chat$
End Sub
===================
Public Function mircchatline() As String
Dim lngmirc As Long, lngmdi As Long, lngchannel As Long
Let lngmirc& = FindWindow("mirc32", vbNullString)
Let lngmdi& = FindWindowEx(lngmirc&, 0&, "mdiclient", vbNullString)
Let lngchannel& = FindWindowEx(lngmdi&, 0&, "channel", vbNullString)
Let mircchatline$ = gettext(lngchannel&)
End Function
===================
Public Function gettext(lngwindow As Long) As String
Dim strbuffer As String, lngtextlen As Long
Let lngtextlen& = SendMessage(lngwindow&, WM_GETTEXTLENGTH, 0&, 0&)
Let strbuffer$ = String(lngtextlen&, 0&)
Call SendMessageByString(lngwindow&, WM_GETTEXT, lngtextlen& + 1&, strbuffer$)
Let gettext$ = strbuffer$
End Function
===================CODE END===================
If you've made it this far, I appreciate it. Any help would be terrific.
Thanks,
- Jason
-
Smilies?
Those 3 smilies are supposed to be )'s
-
Smilies
Jason,
I've disabled smilies on your first message in this topic, and we're currently working on a more permanaent fix for this, err, feature :)
All the best,
James