Delphi7的WebBrowser如何全选并复制浏览器上的文字？

[victor_yang]

这次我不打算获取网页的源代码，而是想模拟人工的全选和复制，得到浏览器上的文字，不需要管格式，只要得到文字
我已经试过，全选基本上是可以的，就是复制没办法。
PostMessage(WebBrowser1.Handle,WM_COPY,0,0);
WebBrowser1.ExecWB(OLECMDID_COPY,OLECMDEXECOPT_DONTPROMPTUSER); //这个会出"试图吊销一个未注册的拖放的目标"错误
kybd_event无法复制
请大家给我一个可行的方法吧。

[victor_yang]

用 了这个又没事了 WebBrowser1.ExecWB(OLECMDID_COPY,OLECMDEXECOPT_DONTPROMPTUSER); 原来是不能用ClipBoard.Open 和ClipBoard.Close 操作

[lyhoo163]

使用 EmbeddedWB

MyList.Add(Tab.EWB.DocumentSourceText); // 文本
MyList.SaveToFile(FileName);

[victor_yang]

keybd_event试过了，这个应该是在获取焦点时才有用，但我的webbrowser是隐藏的

[doloopcn]

用keybd_event试一下吧
CTRL+A全选
CTRL+C复制
CTRL+V粘贴

[victor_yang]

引用 2 楼 lyhoo163 的回复:

使用 EmbeddedWB

MyList.Add(Tab.EWB.DocumentSourceText); // 文本
MyList.SaveToFile(FileName);

兄弟，EmbeddedWB有没有使用说明？

[lyhoo163]

建议使用 EmbeddedWB，它使用IE的核心。
没有说明，只能自己模索。