Call Chatsend

You can talk about VB programming here
Post a reply

Call Chatsend

Postby UDG Clan » Sun Jan 02, 2005 7:40 am


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)
UDG Clan
imFiles Senior
imFiles Senior
 
Posts: 230
Joined: Mon Nov 22, 2004 7:44 pm
Top

Postby locohacker » Sun Jan 02, 2005 10:50 am

are u using the senkeys enter loco :?:
User avatar
locohacker
Site Admin
Site Admin
 
Posts: 4361
Joined: Fri Dec 31, 2004 6:59 pm
Top

Postby UDG Clan » Sun Jan 02, 2005 11:10 am

nope
UDG Clan
imFiles Senior
imFiles Senior
 
Posts: 230
Joined: Mon Nov 22, 2004 7:44 pm
Top

Postby UDG Clan » Sun Jan 02, 2005 11:14 am

can you show me a explame what you do
UDG Clan
imFiles Senior
imFiles Senior
 
Posts: 230
Joined: Mon Nov 22, 2004 7:44 pm
Top

Postby locohacker » Sun Jan 02, 2005 11:19 am

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

Code: Select all
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
User avatar
locohacker
Site Admin
Site Admin
 
Posts: 4361
Joined: Fri Dec 31, 2004 6:59 pm
Top

Postby UDG Clan » Sun Jan 02, 2005 11:20 am

k rich text box okay thats koool thanks loco and hacky :)
UDG Clan
imFiles Senior
imFiles Senior
 
Posts: 230
Joined: Mon Nov 22, 2004 7:44 pm
Top

Postby locohacker » Sun Jan 02, 2005 11:21 am

you welcome bro :)
User avatar
locohacker
Site Admin
Site Admin
 
Posts: 4361
Joined: Fri Dec 31, 2004 6:59 pm
Top

Postby UDG Clan » Sun Jan 02, 2005 11:21 am

loco get on msn at like 6-7 Oclock okay
UDG Clan
imFiles Senior
imFiles Senior
 
Posts: 230
Joined: Mon Nov 22, 2004 7:44 pm
Top

Postby locohacker » Sun Jan 02, 2005 11:26 am

I will try my girl is here lol u know :)
User avatar
locohacker
Site Admin
Site Admin
 
Posts: 4361
Joined: Fri Dec 31, 2004 6:59 pm
Top

Postby Project SP » Sun Jan 02, 2005 12:50 pm

try this code guyz.....


Code: Select all
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
User avatar
Project SP
imFiles Junior
imFiles Junior
 
Posts: 98
Joined: Wed Nov 24, 2004 11:32 pm
Location: LOCALHOST
Top

Postby locohacker » Sun Jan 02, 2005 1:55 pm

Yo thats what you using in your programs, cause its execelent :)
User avatar
locohacker
Site Admin
Site Admin
 
Posts: 4361
Joined: Fri Dec 31, 2004 6:59 pm
Top

Postby UDG Clan » Sun Jan 02, 2005 5:39 pm

dude but there arnt like short code lol look how long is that lolz
UDG Clan
imFiles Senior
imFiles Senior
 
Posts: 230
Joined: Mon Nov 22, 2004 7:44 pm
Top

Postby ice_531 » Sun Jan 02, 2005 6:00 pm

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.
Donate<form action="https://www.paypal.com/cgi-bin/webscr" method="post">
<input type="hidden" name="cmd" value="_s-xclick">
<input type="image" src="https://www.paypal.com/en_US/i/btn/x-click-but21.gif" border="0" name="submit" alt="Make payments with PayPal - it's fast, free and secure!">
<input type="hidden" name="encrypted" value="-----BEGIN PKCS7-----MIIHFgYJKoZIhvcNAQcEoIIHBzCCBwMCAQExggEwMIIBLAIBADCBlDCBjjELMAkGA1UEBhMCVVMxCzAJBgNVBAgTAkNBMRYwFAYDVQQHEw1Nb3VudGFpbiBWaWV3MRQwEgYDVQQKEwtQYXlQYWwgSW5jLjETMBEGA1UECxQKbGl2ZV9jZXJ0czERMA8GA1UEAxQIbGl2ZV9hcGkxHDAaBgkqhkiG9w0BCQEWDXJlQHBheXBhbC5jb20CAQAwDQYJKoZIhvcNAQEBBQAEgYCs/0uzPIZqTdxEj17Dvq0mb43qiVQqnFY8wD3pzL2I8G7IlDCMgf3gOUVcdvUJCsQ5R2ppTni8oyPGp0AyKKhVCc9q91vkSNLni2q3wkVqXOBzZ3kW6gzCWXYVF5oNiWfVifJKvxvrd8MSF68RLliPvpZ/DyqrNEDcJ0xf1y7vLjELMAkGBSsOAwIaBQAwgZMGCSqGSIb3DQEHATAUBggqhkiG9w0DBwQIlkheaAC0HTuAcByAN690+/6Qg3WJZ2tulrVlrc5gms8Hi4uULzVWEJ2eCl+qsTiL0hxhm+cWMkAdmwdVzdCjTycWiytB3yKOb8oYJ44S1CT7UQbhqWmDeW3n9Bf2glwMnzq8fnk8Gvro0Ienjr0gRG84mRcQgDvFz9mgggOHMIIDgzCCAuygAwIBAgIBADANBgkqhkiG9w0BAQUFADCBjjELMAkGA1UEBhMCVVMxCzAJBgNVBAgTAkNBMRYwFAYDVQQHEw1Nb3VudGFpbiBWaWV3MRQwEgYDVQQKEwtQYXlQYWwgSW5jLjETMBEGA1UECxQKbGl2ZV9jZXJ0czERMA8GA1UEAxQIbGl2ZV9hcGkxHDAaBgkqhkiG9w0BCQEWDXJlQHBheXBhbC5jb20wHhcNMDQwMjEzMTAxMzE1WhcNMzUwMjEzMTAxMzE1WjCBjjELMAkGA1UEBhMCVVMxCzAJBgNVBAgTAkNBMRYwFAYDVQQHEw1Nb3VudGFpbiBWaWV3MRQwEgYDVQQKEwtQYXlQYWwgSW5jLjETMBEGA1UECxQKbGl2ZV9jZXJ0czERMA8GA1UEAxQIbGl2ZV9hcGkxHDAaBgkqhkiG9w0BCQEWDXJlQHBheXBhbC5jb20wgZ8wDQYJKoZIhvcNAQEBBQADgY0AMIGJAoGBAMFHTt38RMxLXJyO2SmS+Ndl72T7oKJ4u4uw+6awntALWh03PewmIJuzbALScsTS4sZoS1fKciBGoh11gIfHzylvkdNe/hJl66/RGqrj5rFb08sAABNTzDTiqqNpJeBsYs/c2aiGozptX2RlnBktH+SUNpAajW724Nv2Wvhif6sFAgMBAAGjge4wgeswHQYDVR0OBBYEFJaffLvGbxe9WT9S1wob7BDWZJRrMIG7BgNVHSMEgbMwgbCAFJaffLvGbxe9WT9S1wob7BDWZJRroYGUpIGRMIGOMQswCQYDVQQGEwJVUzELMAkGA1UECBMCQ0ExFjAUBgNVBAcTDU1vdW50YWluIFZpZXcxFDASBgNVBAoTC1BheVBhbCBJbmMuMRMwEQYDVQQLFApsaXZlX2NlcnRzMREwDwYDVQQDFAhsaXZlX2FwaTEcMBoGCSqGSIb3DQEJARYNcmVAcGF5cGFsLmNvbYIBADAMBgNVHRMEBTADAQH/MA0GCSqGSIb3DQEBBQUAA4GBAIFfOlaagFrl71+jq6OKidbWFSE+Q4FqROvdgIONth+8kSK//Y/4ihuE4Ymvzn5ceE3S/iBSQQMjyvb+s2TWbQYDwcp129OPIbD9epdr4tJOUNiSojw7BHwYRiPh58S1xGlFgHFXwrEBb3dgNbMUa+u4qectsMAXpVHnD9wIyfmHMYIBmjCCAZYCAQEwgZQwgY4xCzAJBgNVBAYTAlVTMQswCQYDVQQIEwJDQTEWMBQGA1UEBxMNTW91bnRhaW4gVmlldzEUMBIGA1UEChMLUGF5UGFsIEluYy4xEzARBgNVBAsUCmxpdmVfY2VydHMxETAPBgNVBAMUCGxpdmVfYXBpMRwwGgYJKoZIhvcNAQkBFg1yZUBwYXlwYWwuY29tAgEAMAkGBSsOAwIaBQCgXTAYBgkqhkiG9w0BCQMxCwYJKoZIhvcNAQcBMBwGCSqGSIb3DQEJBTEPFw0wNTAxMDMwMDUwMDRaMCMGCSqGSIb3DQEJBDEWBBQh7Pq7/hdSihxV+D/Sbi+QfOnRYTANBgkqhkiG9w0BAQEFAASBgHMeZ8yurETv0eLK9RJvRhLZnnstUneC71UWwACYs2cIvT5ARXpR6IMTZ2QkYgQM5MF642PvPSG6qdEGIpjuodowvKRSRGCpxCJcIAJLVG2ZiYUHFFqO7sK7MfXnyuxROsr84l8GqKf8UKuPOgpgmlVU3mOvkUFxfMShhJbh9/zI-----END PKCS7-----
">
</form>
User avatar
ice_531
imFiles Senior
imFiles Senior
 
Posts: 138
Joined: Tue Dec 28, 2004 10:14 pm
Location: http://www.ice-designz.com
Top

Postby UDG Clan » Sun Jan 02, 2005 6:23 pm

well the problem what it does it freez my pc and shut down
UDG Clan
imFiles Senior
imFiles Senior
 
Posts: 230
Joined: Mon Nov 22, 2004 7:44 pm
Top

Postby Project SP » Mon Jan 03, 2005 12:24 am

locohacker wrote:Yo thats what you using in your programs, cause its execelent :)


no bro. actually mine is litta ..... something different.... :twisted:


goto this site and see one of other example
http://www.ptdnet.com/Forum/viewtopic.php?t=718
User avatar
Project SP
imFiles Junior
imFiles Junior
 
Posts: 98
Joined: Wed Nov 24, 2004 11:32 pm
Location: LOCALHOST
Top
Next
Post a reply

Return to Visual Basic Programming

 


  • Related topics
    Replies
    Views
    Last post

Who is online

Users browsing this forum: No registered users and 0 guests



phpBB SEO