请问,如何从另一个程序窗体里读表填表？

[rainfall007]

公司里用lotus notes 5.0
每宗业务里要输入的信息都有很多一样的,可不可以让一个程序检测到什么页面了,就把相应的内容填上去?
主要的页面好象是一个网页一样,里面还有很多的edit控件,listview控件,其他的地方是不可修改的文字.

高手能不能给点提示呢
用什么方法来读取另一个窗体里的有用信息?用hook还是有其他的办法呢?或者给个相近功能的软件源代码看看:)

[pomelowu]

获得每个控件的HWND，用GetWindowText和SetWindowText试试看先

[rainfall007]

edit控件应该是可以得到内容的,有些地方的不可修改的信息,像网页一样的,怎么得到内容呢.
我会继续试试的

[pomelowu]

有些地方的不可修改的信息
看看是怎么显式出来的。如果是static之类的控件，也可以类似处理。

[rainfall007]

我今天查了一下,本来以为是edit 和list 其实并不是,我用spy++看到的类名是IRIS.tedit和NotesLineView
象这样的他们自己做的控件怎么办呢?

[RockHwnd]

只能读取其他窗口里的edit控件的内容,可以用GetWindowText(),但不能读取listview的内容,如果要读取listview的内容要用些特殊的办法

先要根据进程句柄,OpenProcess那个进程,然后VirtualAllocEx,在那个进程里分配内存空间,然后向那个listview发LVM_GETITEM消息,然后再ReadProcessMemory

帖一段网上找来的Delphi的读取listview的代码吧:
(*//
标题:获取其他进程中ListView的文本
说明:Window2000+Delphi6调试通过
设计:Zswang
支持:[e-mail]
日期:2004-03-25
//*)

uses CommCtrl;

function ListViewColumnCount(mHandle: THandle): Integer;
begin
Result := Header_GetItemCount(ListView_GetHeader(mHandle));
end; { ListViewColumnCount }

function GetListViewText(mHandle: THandle; mStrings: TStrings): Boolean;
var
vColumnCount: Integer;
vItemCount: Integer;
I, J: Integer;
vBuffer: array[0..255] of Char;
vProcessId: DWORD;
vProcess: THandle;
vPointer: Pointer;
vNumberOfBytesRead: Cardinal;
S: string;
vItem: TLVItem;
begin
Result := False;
if not Assigned(mStrings) then Exit;
vColumnCount := ListViewColumnCount(mHandle);
if vColumnCount <= 0 then Exit;
vItemCount := ListView_GetItemCount(mHandle);
GetWindowThreadProcessId(mHandle, @vProcessId);
vProcess := OpenProcess(PROCESS_VM_OPERATION or PROCESS_VM_READ or
PROCESS_VM_WRITE, False, vProcessId);
vPointer := VirtualAllocEx(vProcess, nil, 4096, MEM_RESERVE or MEM_COMMIT,
PAGE_READWRITE);
mStrings.BeginUpdate;
try
mStrings.Clear;
for I := 0 to vItemCount - 1 do begin
S := '';
for J := 0 to vColumnCount - 1 do begin
with vItem do begin
mask := LVIF_TEXT;
iItem := I;
iSubItem := J;
cchTextMax := SizeOf(vBuffer);
pszText := Pointer(Cardinal(vPointer) + SizeOf(TLVItem));
end;
WriteProcessMemory(vProcess, vPointer, @vItem,
SizeOf(TLVItem), vNumberOfBytesRead);
SendMessage(mHandle, LVM_GETITEM, I, lparam(vPointer));
ReadProcessMemory(vProcess, Pointer(Cardinal(vPointer) + SizeOf(TLVItem)),
@vBuffer[0], SizeOf(vBuffer), vNumberOfBytesRead);
S := S + #9 + vBuffer;
end;
Delete(S, 1, 1);
mStrings.Add(S);
end;
finally
VirtualFreeEx(vProcess, vPointer, 0, MEM_RELEASE);
CloseHandle(vProcess);
mStrings.EndUpdate;
end;
Result := True;
end; { GetListViewText }

//Example
procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(Handle, 1, MOD_WIN, VK_F2);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey(Handle, 1);
end;

procedure TForm1.WMHOTKEY(var Msg: TWMHOTKEY);
begin
case Msg.HotKey of
1:
GetListViewText(
WindowFromPoint(Point(Mouse.CursorPos.X, Mouse.CursorPos.Y)),
MemoText.Lines);
end;
end;

[RockHwnd]

另外自己做的控件可能也接受默认的Windows消息,如果不接受那就要查查是什么自定义消息了

[cozil]

直接分析其文件格式不是更方便？？

[rainfall007]

谢谢各位,办公电脑在单位里,我这里没有lotusnotes所以现在不好测试.
我的帖子不会忘记给分的,放心:)
另外楼上说直接分析文件的方法应该是不可取的,因为里面的内容都来自数据库.我最好只分析分析客户端.

[rainfall007]

还有什么方法吗？好象很难弄哦，是他们自己编的控件，是不是真的要用hook

[cozil]

如果能通过windows的API GetWindowText取得到更好，实在不行，你只能分析控件存储数据区域的内存格式,当然要用到Hook.楼主有耐心的话就这样做吧。
考虑一下数据的来源，通过截获数据来源分析也是个好办法

[teli_eurydice]

好像比较麻烦了， 拦截消息看看