盒子论坛 v2.1

你终于来吗！
大哥你的代码还没给偶啊！

比如：1)一个控件他的内容很多，那么会出现滚动条，
2)那么”滚动截图“就是说：
用程序控制滚动条自动从头滚动到尾，
把滚动过程看到的景物都截出来自动，连成一张图片！！

//-------------------------------------------------------
问题稍微有点进展：以下代码来控制控件滚动！
procedure TForm1.Button1Click(Sender: TObject);
var
a:integer;
begin
a:=sendmessage(memo1.handle,wm_vscroll,SB_LINEDOWN ,0);
//如果想水平滚动只要把wm_vscroll改成wm_hscroll就行
if a=0 then showmessage('滚动完成')
end;
procedure TForm1.Button2Click(Sender: TObject);
var
a:integer;
begin
a:=sendmessage(memo1.handle,WM_Vscroll,SB_PAGEDOWN ,0);
//如果想水平滚动只要把wm_vscroll改成wm_hscroll就行
if a=0 then showmessage('滚动完成')
end;

那么问题是：
  1：如果是：SB_LINEDOWN：似乎很可怕，如果文章很长，就傻了
    接出来N张图片怎么连成一张图片，就算连起来也要好多时间啊！
   可能程序还会死住
  2）如果是：SB_PAGEDOWN ：翻页滚动如何知道，一页滚动的高度啊？

3）天空网站的“SnagIt V7.02”做到了，谁有此技术资料？
http://www.skycn.com/soft/2290.html
4)天空网站的国产软件“超级屏捕“使用IE右键的COM技术来做
谁有此技术资料？
5)偶认为有三个大步骤要考虑：
  1》如何发送消息让其他应用程序的滚动条
    自动滚动？
  2》在滚动过程中如何控制每次滚动的高度（垂直方向）
    和宽度（水平方向滚动条）？？？
  3》每次滚动截到的图片如何把他们不留痕迹的
    连在一起？？
6)delphigood 大哥你的VB原代码是怎么实现的呢？
老外那个要求很高的他要能用鼠标随便点那个控件都要能截的！

----------------------------------------------

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/2/6 10:41:37

3楼：

一天不解决偶都不会忘记的
----------------------------------------------

信息

登陆以后才能回复