J
jjm1227
Unregistered / Unconfirmed
GUEST, unregistred user!
var
h1,h2,h3,h4,h5,h6,h7:thandle;
st1,st2:string;
begin
h1:=findwindow('#32770',进出口表');
if h1=0 then exit;
h2:=findwindowex(h1,0,'Edit',nil);
if h2=0 then exit;
SendMessage(h2,EM_REPLACESEL,180,Integer(Pchar(Edit1.TEXT)));
h3:=findwindowex(h1,0,'Edit',nil);
if h2=0 then exit;
SendMessage(h3,EM_REPLACESEL,180,Integer(Pchar(Edit1.TEXT)));
我是想做一个软件的批量登陆,但在那个软件里就用户和密码的值都是EDIT的,要怎么样做才可以做到分别输入到不同的EDIT里呢?
h1,h2,h3,h4,h5,h6,h7:thandle;
st1,st2:string;
begin
h1:=findwindow('#32770',进出口表');
if h1=0 then exit;
h2:=findwindowex(h1,0,'Edit',nil);
if h2=0 then exit;
SendMessage(h2,EM_REPLACESEL,180,Integer(Pchar(Edit1.TEXT)));
h3:=findwindowex(h1,0,'Edit',nil);
if h2=0 then exit;
SendMessage(h3,EM_REPLACESEL,180,Integer(Pchar(Edit1.TEXT)));
我是想做一个软件的批量登陆,但在那个软件里就用户和密码的值都是EDIT的,要怎么样做才可以做到分别输入到不同的EDIT里呢?