怎样用程序控制IE实现某些全自动?(300分)

  • 主题发起人 主题发起人 康夫
  • 开始时间 开始时间

康夫

Unregistered / Unconfirmed
GUEST, unregistred user!
哪位老兄有类似的代码啊?比如:
第一步:用Delphi控制打开IE,打开www.delphibbs.com
第二步:控制IE选择一种界面,比如稳健型
第三步:自动输入名称,密码,然后按《进入论坛按钮》,实现自动登录
就这些了:)
好久没接触电脑了,都快忘了Delphi是什么东东了:)老兄们多帮帮忙啊!
 
买<<Delphi深度探索>>吧 介绍的特别详细。。。
 
uses
shellapi;
procedure TForm1.Button1Click(Sender: TObject);
begin
//第一步:用Delphi控制打开IE,打开www.delphibbs.com
ShellExecute(handle,nil,'www.delphibbs.com',nil,nil,sw_normal);
showmessage('继续...');
//第二步:控制IE选择一种界面,比如稳健型
ShellExecute(handle,nil,
'http://www.delphibbs.com/delphibbs/index.asp?skin=1',
nil,nil,sw_normal);
end;

//第三步:自动输入名称,密码,然后按《进入论坛按钮》,实现自动登录
他奶的!
必须得到输入处的Edit类,再查找第一个窗口,然后

SendMessage(EditHandle,WM_SETTEXT,Integer(PChar('用户名字')),0);
SendMessage(Edit2Handle,WM_SETTEXT,Integer(PChar('口令')),0);

模拟回车:
SendMessage(Edit2Handle,WM_KEYDOWN,VK_RETURN,0);
SendMessage(Edit2Handle,WM_KEYUP,VK_RETURN,0);类似的冬冬即可。
关键是找到IE中的某窗口,它里面含有输入用户名的Edit!



 
to wql:
第一步: easy
第二步: 这样如同没说,我的意思不是这样,而是第一步的延续
第三步: 普通窗口可以通过枚举得到所有的Control,但是网页中的输入框和按钮好像不行啊
 
呵呵,有那么麻烦吗?直接模拟鼠标点击,然后输入比就可以了吗?
 
看看这个有帮助
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2429833
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2333359
 
后退
顶部