问题描述

delphi中，点击【程序上的】打开按钮后自动打开网页并实现点击【网页中的】一个按钮

假设以打开 http://mail.163.com/ 为例，程序上点击打开按钮后 打开网页并模拟点击‘注册’按钮。如何实现？？？？
【id="lfBtnReg" class="btn btn-side btn-reg" href="http://reg.email.163.com/mailregAll/reg0.jsp?from=163mail_right" target="_blank"】
使用的是Internet下的TWebBrowser控件，不知道对不对。
WebBrowser1.Navigate('http://mail.163.com/'); //打开网页
WebBrowser1.OleObject.document.getElementByID('lbApp').click; //点击注册按钮

解决方案

参考：http://blog.csdn.net/beyondqd/article/details/6949334

解决方案二：

一、获取按钮名称或ID，通过下列代码实现模拟
wb1.OleObject.document.all.item(‘btnLogin’).click;
or
wb1.OleObject.document.getElementByIdx_x(‘btnLogin’).click ;

二、通过鼠标位置，模拟鼠标事件

mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0); // 鼠标左键按下
sleep(10);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0); // 鼠标左键弹起
sleep(2000);
Keybd_event(vk_return, 0, 0, 0); // 回车键

解决方案三：

网页上点击一个按钮，打开服务器上的一个应用程序

解决方案四：

查找项目，然后直接调用Click就行了。

解决方案五：

procedure TForm1.RegbtnClick(Sender: TObject);
var
o : Olevariant;
begin
o :=WebBrowser1.oleobject.document.all.item('lfBtnReg',0);
o.Click;
end;