怎样向另一程序中的文本框发信息？(100分)

K

kevenzhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-21

• #1

就象qq伴侣一样

 

P

payer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-21

• #2

首先获取其它程序窗口文本框的handle
然后用sendmessage

 

K

kevenzhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-21

• #3

关键是如何取得文本框的handle

 

F

Fanny501

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-21

• #4

关键是如何取得文本框的handle?
--------------------
如果是你的程序的话，你可以把那个edit的 handle写到一个文件中
供令一个程序使用的。

然后用sendmessage or posmessage 都可以

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-21

• #5

var
s:string;
sendmessage(Memo.handle,WM_SETTEXT,0,integer(PChar(S)));

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-21

• #6

findwindow(nil,'窗口名');
返回的就是你要发送字符的窗口的局柄

 

M

maming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-21

• #7

var
mfrm:integer;

mfrm:=FindWindow('窗体名',nil);
mfrm:=GetNextWindow(mfrm,GW_HWNDNEXT);
mfrm:=FindWindowEx(mfrm,0,'memo1',nil);
然后再sendmessage就行了。

 

N

nick4309

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-21

• #8

可以用windowfrompoint,它可以返回鼠标志着的窗口handle，然后用sendmessage,肯定搞定！[]

 

K

kevenzhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-22

• #9

用一下QQ伴侣，你们就明白了，我想向没有焦点的别人的一个程序的文本框中发送我写的信息

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-22

• #10

就是要取的哪个文本的局柄！

 

F

forss

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-22

• #11

我有控制QQ自动注册的程序，，要不要发给你。 。。100分都给我哦。。：）

 

K

kevenzhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-22

• #12

别人的程序，我只知有一个文本框供写字，但我不想直接去写，而用发送的方法

 

B

bubble

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-27

• #13

打开您老的记事本先。
procedure TForm1.Button1Click(Sender: TObject);
var
hdl:THandle;
begin
hdl := FindWindowEx(FindWindow('notepad',nil),0,'Edit',nil);
PostMessage(hdl,WM_Char,VkKeyScan('v'),0);
end;