Dear All,

Please I notice that there is many program made by VB6 .

Can any one advice my with the code

I need just a little example

Form1

Command1

Text1


Command1= to send the text (text1.text) to paltalk room or pm ( the active window)

Hope some on can help my with the correct source form new paltalk


thanks in advance

With Best Regards,
Michael

syxx made a tut about this a long time ago...it can be found here.

copy this code into your command button, it works for all version 8.x

Code: Select all

Dim parent, child, alt, rich20 As Long
parent = FindWindow("My Window Class", vbNullString)
child = FindWindowEx(parent, 0, "WTL_SplitterWindow", vbNullString)
child = FindWindowEx(child, 0, "WTL_SplitterWindow", vbNullString)
child = FindWindowEx(child, 0, "WTL_SplitterWindow", vbNullString)
alt = GetWindow(child, GW_CHILD)
alt = FindWindowEx(alt, 0, "AtlAxWin71", vbNullString)
alt = FindWindowEx(alt, 0, "#32770", vbNullString)
rich20 = FindWindowEx(alt, 0, "RichEdit20A", vbNullString)
rich20 = FindWindowEx(alt, rich20, "RichEdit20A", vbNullString)
Call SendMessageSTRING(rich20, WM_SETTEXT, 0&, "testing")
Call SendMessageLong(rich20, WM_KEYDOWN, 13, 0&)



and you need these declarations on top of your form1

Code: Select all

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function SendMessageSTRING Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const GW_CHILD = 5
Private Const GW_HWNDNEXT = 2
Private Const WM_GETTEXT = &HD
Private Const WM_GETTEXTLENGTH = &HE
Private Const WM_SETTEXT = &HC
Private Const WM_KEYDOWN = &H100


Ghost wrote:syxx made a tut about this a long time ago...it can be found here.

thanks sir for your replay

but can you please advice my with the link about the tut , because I searched a lot

thanks

[quote="nanomachine007"][/quote]

Thanks very much sir

I will check it and advice you with the result.

namomachine, thats the same code and consts i was trying to explain to locohacker, this way you dont need to know the ever changing handel of atl#####

yepe, now he has the full example

Ghost wrote:syxx made a tut about this a long time ago...it can be found here.

yes....but he doesnt write complete sentences sometimes....lol....im completely lost in the middle of his tutorial...think im gunna have to ask him to be more specific...lol

you retards need to start hovering over the shit i write...if i say 'it can be found here' with no links, then ive made 'here' into a link...like ive done here.(hover over the word 'here')

i know about the hovering...although most ppl dont hover.lol.. ..im saying that i read that tutorial and in the middle im completely lost....cus i know almost nothing about VB lol....i understood most of it....but one part of it wasnt dumbed down enough..lol..

well...it was sorta directed toward you as well because u didnt know about the links i put in for vbforums and PSC on the other topic...

anyways...use what nano said...it seems easier...just dont forget to declare the functions...

i did it all

but i didn't get it right

pls any one help me

First:

Code: Select all

Dim parent, child, alt, rich20 As Long


isn't right in VB6. You can do that in Vb.NET, but in VB6 rich20 is a long datatype and parent, child, alt are variant. It Should be like this:

Code: Select all

Dim parent as Long, child as long, alt as long, rich20 As Long


Second, your API and constant are not declare:

Add:

Code: Select all

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function SendMessageSTRING Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const GW_CHILD = 5
Private Const GW_HWNDNEXT = 2
Private Const WM_GETTEXT = &HD
Private Const WM_GETTEXTLENGTH = &HE
Private Const WM_SETTEXT = &HC
Private Const WM_KEYDOWN = &H100


TO the top of your form

My Child is longer then your's.

just redownload file and it's ok