各位大侠:请指教(急)(100分)

  • 主题发起人 主题发起人 ch1234
  • 开始时间 开始时间
C

ch1234

Unregistered / Unconfirmed
GUEST, unregistred user!
我现在有一个执行文件(.exe) 无源程序,需要键盘输入很多字段,这些数据我在一个文本
文件中都可以找到,请教各位大侠,我如何通过程序调用,将文件中的内容模拟键盘输入
传到执行文件的相应字段,如有源码,请一便见赐。
 
找一个聊天室罐水机用用!
 
怎莫没人理我,如果分不够,可以在加,急盼高手指点
 
试试keybd_event
和SendMessage(handle,wm_char,ord('a'),0)
 
hryyx
keybd_event
和SendMessage(handle,wm_char,ord('a'),0)
怎莫用,请说具体一点好吗,我是一个新手
 
各位:高手都哪去了,怎莫没人回答我了?
 
先用 findwindow 找到那个应用程序的句柄
在用postmesssage(handle,wm_char,ord('a'),0)

 
青铜三代:
能说具体一点吗?我很菜的,有代码请贴出来。多谢
 
SendMessage和postmesssage是api函数,handle是窗口句柄,函数是用来向窗口发送消息的,
我想可能不好使。keybd_event我猜能好使,你试试吧。
 
些个例子吧,实在弄不明白了?
 
keybd_event 不知道如何用
findwindow 不好使,返回句柄在SendMessage上不起作用
 
各位高手,救救小弟吧!
 
各位高手:
findwindow 已经试验通过
keydb_event 也以可用,但对于汉字keydb_event 不可用,
各位大侠可有好办法教教我?
 
找出每个编辑框的handle,然后通过发送消息 WM_SETTEXT 进行赋值!
 
怎莫找呀?给个例子吧,问题是我不知道每个编辑框的名字
 
你不是已经找到了主窗口的 handle ,
其实编辑框就是主窗口的“子窗口”。

用 EnumChildWindows
也可用 getwindow(handle,GW_CHILD)


以下是参考代码:

查阅可视窗口标题

下面只是举出一个例子提供参考:运用API函数GetWindow()配合GetWindowText()逐一查出各视窗的标题

1. File | New Project 开始一个新的工程
2. 在 Form1 中安排 Button 与 Memo 各一
3. 在 Button1 的 OnClick 事件中撰写程式如下:
procedure TForm1.Button1Click(Sender: Tobject);
var
hCurrentWindow: HWnd;
szText: array[0..254] of char;
begin
hCurrentWindow := GetWindow(Handle, GW_HWNDFIRST);
while hCurrentWindow <> 0 do
begin
if GetWindowText(hCurrentWindow, @szText, 255)>0
then Memo1.Lines.Add(StrPas(@szText));
hCurrentWindow:=
GetWindow(hCurrentWindow, GW_HWNDNEXT);
end;
end;

 
问题结束,分不多
给jsxjd 60 分,解决主要问题
给hryyx 20 分,提供的keybd_event和SendMessage(handle,wm_char,ord('a'),0)可用
给 青铜三代 20 分,提供的 findwindow 可用
 
问题结束,分不多
给jsxjd 60 分,解决主要问题
给hryyx 20 分,提供的keybd_event和SendMessage(handle,wm_char,ord('a'),0)可用
给 青铜三代 20 分,提供的 findwindow 可用
 
后退
顶部