send text to msn chat control (web)

[stinger]

hello every 1
i am new here so please help me
i use Msn Chat Groups NOT Msn Messenger
which uses the "Msn Chat Control"
on a web page to connect and chat -i think you know it-
i want to make a vb6 application that only
sends a text to the text box that exisit in the chat control
so i can write in the vb text box
and the String sent to the control text box
plz help me
thank you

[dynamic_sysop]

nice easy one ( i used to make chat bots for msn chat / groups chat many moons ago )
but this is just a case of using FindWindow / FindWindowEx to locate the rich edit control for your message to Send.
here's a quick example i put together just for you seeing as it's made me reminisce about the past

[COLOR=Blue]Private Declare Function[/COLOR] FindWindow [COLOR=Blue]Lib[/COLOR] "user32.dll" [COLOR=Blue]Alias[/COLOR] "FindWindowA" ([COLOR=Blue]ByVal[/COLOR] lpClassName [COLOR=Blue]As String[/COLOR], [COLOR=Blue]ByVal[/COLOR] lpWindowName [COLOR=Blue]As String[/COLOR]) [COLOR=Blue]As Long[/COLOR]
    [COLOR=Blue]Private Declare Function[/COLOR] FindWindowEx [COLOR=Blue]Lib[/COLOR] "user32.dll" [COLOR=Blue]Alias[/COLOR] "FindWindowExA" ([COLOR=Blue]ByVal[/COLOR] hWnd1 [COLOR=Blue]As Long[/COLOR], [COLOR=Blue]ByVal[/COLOR] hWnd2 [COLOR=Blue]As Integer[/COLOR], [COLOR=Blue]ByVal[/COLOR] lpsz1 [COLOR=Blue]As String[/COLOR], [COLOR=Blue]ByVal[/COLOR] lpsz2 [COLOR=Blue]As String[/COLOR]) [COLOR=Blue]As Long[/COLOR]
    [COLOR=Blue]Private Declare Function[/COLOR] SendMessage [COLOR=Blue]Lib[/COLOR] "user32.dll" [COLOR=Blue]Alias[/COLOR] "SendMessageA" ([COLOR=Blue]ByVal[/COLOR] hwnd [COLOR=Blue]As Long[/COLOR], [COLOR=Blue]ByVal[/COLOR] wMsg [COLOR=Blue]As Integer[/COLOR], [COLOR=Blue]ByVal[/COLOR] wParam [COLOR=Blue]As Integer[/COLOR], [COLOR=Blue]ByVal[/COLOR] lParam [COLOR=Blue]As String[/COLOR]) [COLOR=Blue]As Long[/COLOR]
    [COLOR=Blue]Private Const[/COLOR] WM_SETTEXT [COLOR=Blue]As Integer[/COLOR] = &HC
 
[COLOR=Blue]Private Sub[/COLOR] Command1_Click()
        [COLOR=Blue]Dim[/COLOR] IEFrame [COLOR=Blue]As Long[/COLOR]: IEFrame = FindWindow("IEFrame", [COLOR=Blue]vbNullString[/COLOR])
        [COLOR=Blue]If Not[/COLOR] IEFrame = 0 [COLOR=Blue]Then[/COLOR]
            [COLOR=Blue]Dim[/COLOR] shellDoc [COLOR=Blue]As Long[/COLOR]: shellDoc = FindWindowEx(IEFrame, 0, "Shell DocObject View", [COLOR=Blue]vbNullString[/COLOR])
            [COLOR=Blue]If Not[/COLOR] shellDoc = 0 [COLOR=Blue]Then[/COLOR]
                [COLOR=Blue]Dim[/COLOR] IEServer [COLOR=Blue]As Long[/COLOR]: IEServer = FindWindowEx(shellDoc, 0, "Internet Explorer_Server", [COLOR=Blue]vbNullString[/COLOR])
                [COLOR=Blue]If Not[/COLOR] IEServer = 0 [COLOR=Blue]Then[/COLOR]
                    [COLOR=Blue]Dim[/COLOR] IEDialog [COLOR=Blue]As Long[/COLOR]: IEDialog = FindWindowEx(IEServer, 0, "#32770", [COLOR=Blue]vbNullString[/COLOR])
                    [COLOR=Blue]If Not[/COLOR] IEDialog = 0 [COLOR=Blue]Then[/COLOR]
                        [COLOR=Blue]Dim[/COLOR] IEDialog1 [COLOR=Blue]As Long[/COLOR]: IEDialog1 = FindWindowEx(IEDialog, 0, "ATL:37243E88", [COLOR=Blue]vbNullString[/COLOR])
                        [COLOR=Blue]If Not[/COLOR] IEDialog1 = 0 [COLOR=Blue]Then[/COLOR]
                            [COLOR=Blue]Dim[/COLOR] RTFEdit [COLOR=Blue]As Long[/COLOR]: RTFEdit = FindWindowEx(IEDialog1, 0, "MSNChatEdit4", [COLOR=Blue]vbNullString[/COLOR])
                            [COLOR=Blue]If Not[/COLOR] RTFEdit = 0 [COLOR=Blue]Then[/COLOR]
                                [COLOR=Green]'/// set the text to the MSNChatEdit4 box[/COLOR]
                                [COLOR=Blue]Call[/COLOR] SendMessage(RTFEdit, WM_SETTEXT, 256, "test 123")
[COLOR=Blue]                            End If
                        End If
                    End If
                End If
            End If
        End If
End Sub[/COLOR]

[stinger]

thank you very much
some times it's good to have a flash back

[tony007]

How send text to msn massanger window ? I be happy if u show me how.Thanks

[RobDog888]

If you really want to get into it take a look at wokawidgets Badger Messenger code example -

http://www.vbforums.com/showthread.php?p=1927755

[tony007]

If you really want to get into it take a look at wokawidgets Badger Messenger code example -

http://www.vbforums.com/showthread.php?p=1927755

oh i just want to be able to put the text in msn textbox and hit enter. I do not want to log in to msn server!!

[RobDog888]

Then you will want to use the same APIs and just change the window class name to whatever it is in your version. You can use MS Spy++ to find it. Or if you dont have Spy++ you can use something like this codebank code example -

http://vbforums.com/showthread.php?t=337952

[tony007]

Then you will want to use the same APIs and just change the window class name to whatever it is in your version. You can use MS Spy++ to find it. Or if you dont have Spy++ you can use something like this codebank code example -

http://vbforums.com/showthread.php?t=337952

May i know what api u are referaing to ? i have api syp .just tell me what api allow me send text to textbox in external textobox?

[RobDog888]

Post #2.

[tony007]

Post #2.

could u tell me what controles an refrences do i need and also which one is window class name so i change to textbox class name of my yahoo massanger or any other massager with textbox. The textbox is not on the web it is in external application so u think this will work?Thank


these are info from the textbox in external massanger. which one should i use and where?:

RichEdit20A
#32770
AtlAxWin71
ATL:0053D798
WTL_SplitterWindow
WTL_SplitterWindow
WTL_SplitterWindow
My Window Class

I made a command button and a textbox and named it RTFEdit and use
RichEdit20A this in line :

Dim IEFrame As Long: IEFrame = FindWindow("RichEdit20A", vbNullString)

but it did not work!! could u tell me what i am doing wrong ?Thanks

[RobDog888]

I dont have or use Yahoo.