how to send text to beyluxe

hello departure

Pls help me…i need to send a line of text to active beyluxe room.

There is a textbox say text1.text and send button.Once we press the send button the text
should automatically send to the room with our nick as we see in auto greeter.

i made a small application in vb and i am not sound in it. So dont know to code this part.
This application should connect to the active room.

i have seen your auto greeter for beyluxe. So for you this will be a piece of cake

hope you will help me…please do help.

Thanks in advance

3 thoughts on “how to send text to beyluxe

  1. I dont write in vb anymore so here is delphi code, it taken out of my beyluxe class but you can work out what you need to do


    procedure TBeyluxe.SendTxtBeyluxe(RichEditTxt: TRichEdit);
    var
    memStream: TMemoryStream;
    strList: TStringList;
    sText: String;
    start_pos,end_pos,txt_len: integer;
    begin

    if RmRichTxtHwnd 0 then
    begin
    memStream := TMemoryStream.Create;
    strList := TStringList.Create;
    try
    RichEditTxt.Lines.SaveToStream( memStream );
    memStream.Position := 0;
    strList.LoadFromStream( memStream );
    sText:= strList.GetText;
    txt_len:= SendMessage(RmRichTxtHwnd, WM_GETTEXTLENGTH, 0, 0);
    If txt_len > 0 Then
    begin
    SendMessage(RmRichTxtHwnd, EM_GETSEL, start_pos, end_pos);
    SendMessage(RmRichTxtHwnd, EM_SETSEL, 0, txt_len);
    SendMessage(RmRichTxtHwnd, WM_CUT, 0, 0);
    SendMessage(RmRichTxtHwnd,WM_SETTEXT,Length(sText),Integer(PChar(sText)));
    PostMessage(RmRichTxtHwnd, WM_KEYDOWN, VK_RETURN,0);
    PostMessage(RmRichTxtHwnd, WM_KEYUP, VK_RETURN,0);
    Sleep(100);
    SendMessage(RmRichTxtHwnd, WM_PASTE, 0, 0);
    SendMessage(RmRichTxtHwnd, EM_SETSEL, txt_len, txt_len);
    end
    else
    begin

    SendMessage(RmRichTxtHwnd,WM_SETTEXT,Length(sText),Integer(PChar(sText)));
    PostMessage(RmRichTxtHwnd, WM_KEYDOWN, VK_RETURN,0);
    PostMessage(RmRichTxtHwnd, WM_KEYUP, VK_RETURN,0);
    end
    finally
    memStream.Free;
    strList.Free;
    end;
    end;
    counter:= 0;
    end;

  2. Hi Departure

    Thanks for replying.

    I haven’t seen this delphi language.Does it have interface like what we have in VB?

    If so, in the send command button i mentioned earlier,can i paste the code you given to send the text to room in beyluxe?

    Thanks

  3. Hi Departure

    Could you provide the full source code in delphi of beyluxe auto greeter or any other softwares which can send text messages to the active room in beyluxe.

    Thanks in Advance

Leave a Reply

You must Register or Login to comment on how to send text to beyluxe