怎么样向另一个程序的edit里面写数据?(100分)

  • 主题发起人 主题发起人 lqldir
  • 开始时间 开始时间
L

lqldir

Unregistered / Unconfirmed
GUEST, unregistred user!
如ie的地址栏输入字母

并点击另一个程序的按钮
 
sendmessage

keybd_event可以
 
提示 :消息相应
抓窗口句柄,查一下以前贴子关于消息这方面的资料!!!
 
搜索一下含FindWindowEx的帖子,用spy++配合。
 
获得 handle
sendmessage(handle,.......)
 
setwindowtext(edit1.handle,'asdf');
sendmessage(handle,WM_SETTEXT,0,0);
 
我写过一个qq
刷屏的软件,就是这样的,
 
谢谢....
请问'人在昆明',你的刷屏怎么写的?
 
就是找句柄 去 SENDMESSAGE
代码比较乱,不嫌弃的话留下箱子。
 
比如说,一个程序有很多edit,那怎么怎么知道我要写的是那个edit呢?
setwindowtext(edit1.handle,'asdf');
sendmessage(handle,WM_SETTEXT,0,0);

上面所说的是edit1那么那个程序的edit的名字我不知道应该怎么办,不能把每个edit都写上去
能不能得到这个程序的某个edit的name?
如果可以的话,我想这个方法可以有很多用处……
 
当然可以啦!
枚举某一类控件,比如EDIT
并判断他的一些特别的属性,不如LEFT OR TOP OR WIDTH OR HEIGHT
 
其实输入法就是用的这种技术吧
不会。。。。。。
 
不好意思
sendmessage(handle,WM_SETTEXT,0,0);
我还是不会用。。。。

我不知道要发送的字符串放哪里?
还有如果要按下一个按钮应该怎么写?
谢谢谢谢
 
to:人在昆明
好办法呀
真的是好办法,如果可行的话,呵呵,可以做坏事了…………
 
不好意思
sendmessage(handle,WM_SETTEXT,0,0);
我还是不会用。。。。

我不知道要发送的字符串放哪里?
还有如果要按下一个按钮应该怎么写?
谢谢谢谢

 
我的邮箱lqldir@163.net
QQ:68767468
msn:oklqldir@hotmail.com
请不吝赐教,本人在线等候谢谢!!!
 
对,对,谁写一个例程看看,我也想了解一下……
 
procedure TForm1.Button1Click(Sender: TObject);
var
mainhnd,sunhnd,fbuttonhandle:thandle;
begin
mainhnd:=findwindow(nil,'发送消息');
if mainhnd<>0 then
begin
sunhnd:=findwindowex(mainhnd,0,'RichEdit',nil);
fbuttonhandle:=findwindowex(mainhnd,0,'button','送讯息(&s)');
if sunhnd<>0 then
begin
showmessage('found window , and RichEdit ');
sendmessage(sunhnd,WM_settext,0,0);
SendMessage(FButtonHandle,WM_LBUTTONDOWN,0,0);
SendMessage(FButtonHandle,WM_LBUTTONUP,0,0);
end;
end;
end;

我不知道sendmessage(sunhnd,WM_SETTEXT,0,0);中的WM_SETTEXT里面的要发送的字符放在哪里
delphi帮助是这么写的

WM_SETTEXT
wParam = 0; // not used; must be zero
lParam = (LPARAM)(LPCTSTR)lpsz; // address of window-text string

所以,总出现'不能发送空讯息'的提示
 
s: string;

s := 'test';
sendmessage(sunhnd,WM_settext,0,lParam(s));
 
sendmessage(sunhnd,WM_SETTEXT,0,Integer(pchar('ddd')));
 
后退
顶部