Skip to content
Home > Programming > Call Chatsend

Call Chatsend

Viewing 15 posts - 1 through 15 (of 16 total)
1 2
  • Author
    Posts
  • January 2, 2005 at 12:40 pm #190030
    UDG Clan
    Member

    What happend paltalk 7 every time i try to send messg to paltalk 7 rooms i blocks and frezz my pc

    Call RoomSend(RichTextBox1.TextRTF)

    January 2, 2005 at 3:50 pm #190045
    Admin
    Administrator

    are u using the senkeys enter loco ❓

    January 2, 2005 at 4:10 pm #190044
    UDG Clan
    Member

    nope

    January 2, 2005 at 4:14 pm #190043
    UDG Clan
    Member

    can you show me a explame what you do

    January 2, 2005 at 4:19 pm #190042
    Admin
    Administrator

    lol okie check this code i am using for my proggies :0) it sends the messege on a richtex box to the room, thanks to H@cky lol

    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
    

    
Exit Sub
    
End If
    

    
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&, "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 SendMessageLong(richedita, WM_KEYDOWN, 13, 0&)
    
Loop Until richedita  0
    January 2, 2005 at 4:20 pm #190041
    UDG Clan
    Member

    k rich text box okay thats koool thanks loco and hacky 🙂

    January 2, 2005 at 4:21 pm #190040
    Admin
    Administrator

    you welcome bro 🙂

    January 2, 2005 at 4:21 pm #190039
    UDG Clan
    Member

    loco get on msn at like 6-7 Oclock okay

    January 2, 2005 at 4:26 pm #190038
    Admin
    Administrator

    I will try my girl is here lol u know 🙂

    January 2, 2005 at 5:50 pm #190037
    Project SP
    Member

    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
    January 2, 2005 at 6:55 pm #190036
    Admin
    Administrator

    Yo thats what you using in your programs, cause its execelent 🙂

    January 2, 2005 at 10:39 pm #190035
    UDG Clan
    Member

    dude but there arnt like short code lol look how long is that lolz

    January 2, 2005 at 11:00 pm #190034
    ice_531
    Member

    Have all your messy api stuff in a module and make them into public functions that you can call from your main forms in one line of code.

    It’s neater.

    January 2, 2005 at 11:23 pm #190033
    UDG Clan
    Member

    well the problem what it does it freez my pc and shut down

    January 3, 2005 at 5:24 am #190032
    Project SP
    Member

    @Admin wrote:

    Yo thats what you using in your programs, cause its execelent 🙂

    no bro. actually mine is litta ….. something different…. 😈

    goto this site and see one of other example

  • Author
    Posts

Related

Viewing 15 posts - 1 through 15 (of 16 total)
1 2
  • You must be logged in to reply to this topic.