维普资讯 http://www.cqvip.com
第８卷第２期 ２ ００６年６月 辽宁师专学报 Ｊｏｕｒｎａｌ ｏｆ Ｌｉａｏｎｉｎｇ Ｔｅａｃｈｅｒｓ Ｃｏｌｌｅｇｅ Ｖ０Ｉ．８ Ｎｏ．２ Ｊｕｎ．２ ０ ０６ 【学术研究】 利用ＶＢ６．０和Ｗｉｎｄｏｗｓ ＡＰＩ函数制作屏幕抓取程序 肖 宁 （铁岭师专，辽宁铁岭１１２０００） 摘要：介绍利用ＶＢ６．０制作屏幕抓取程序的方法， 并给出完整的程序代码及程序的运行结果． 关键词：抓取；Ｗｉｎｄｏｗｓ ＡＰＩ；外接函数 中图分类号：ＴＰ３１１．５２ 文献标识码：Ａ 文章编号：１００８—５６８８（２００６）０２—００４５—０ｌ 在ｗｉｎ９ｘ及以上的操作系统中，屏幕抓取的方法为：按下Ｐｒｉｎｔ Ｓｃｒｅｅｎ键，接着打开画图程序（ｐａｉｎｔ），选取编辑（ｅｄｉｔ）／粘贴 （ｐａｓｔｅ），即可将抓取的屏幕图像插入到空白的绘图区域中． 这一操作方法的原理是：当按下Ｐｒｉｎｔ Ｓｃｒｅｅｎ键时，屏幕图像被拷贝到剪贴板（ｃｌｉｐｂｏａｒｄ）中．剪贴板中可以承载多种格式的文件，当 然包括位图文件（＊．ｂｍｐ）．因此可以利用画图程序读取．除了上述方法之外，利用ＶＢ６．０和Ｗｉｎｄｏｗｓ ＡＰＩ函数同样可以完成屏幕图像的 抓取，所需的ＡＰＩ外接函数为：ＢｉｔＢｌｔ、ＧｅｔＩ￣、ＲｅｌｅａｓｅＤＣ． １设计 １．１窗体设计 利用ＶＢ６．０创建如图１所示的窗体，窗体的属性如表１所示，其中ＰｉｃＣｏｐｙ较特殊，它被Ｐｉｃｔｕｒｅｌ覆盖住了，在图１中看不见 裹１ 蠢 邈 蠡 一 拥翻攥存 ：：：圃 ●｛ ｉ ｌ 图１ １．２标准模块（ＳｃｒＣａｐ） 在ＶＢ６．０主菜单中选取工程（Ｐｒｏｊｅｃｔ）／添加模块 （Ａｄｄ Ｍｏｄｕｌｅ），Ｎａｍｅ赋值为ＳｃｒＣａｐ．选取主菜单“外接程序”（Ａｄｄ—Ｉｎｓ）／ＡＰＩ查 看器（ＡＰＩ Ｖｉｅｗｅｒ），声明三个ＡＰＩ外接程序如下： Ｏｐｔｉｏｎ Ｅｘｐｌｉｃｉｔ ｏＬｎｇ，ＢｙＶａｌ ｄｗＲｏｐＡｓＬｏｎｇ）ＡｓＬｏｎｇ Ｄｅｃｌａｒｅ Ｆｕｎｃｔｉｏｎ ＢｉｔＢｌｔ Ｌｉｂ ｇｄｉ３２ （ＢｙＶａｌ ｈＤｅｓｔＤＣ Ａｓ Ｌｏｎｇ。ＢｙＶａｌ ｘ Ｄｅｃｌａｒｅ Ｆｕｎｃｔｉｏｎ ＧｅｔＤＣ Ｌｉｂ ｕｓｅｒ３２ （ＢｙＶａｌ ｈＷｎｄ Ａｓ Ｌｏｎｇ）Ａｓ Ｌｏｎｇ ｓＡＬｏｎｇ，ＢｙＶａｌ ＹＡｓＬｏｎｇ，ＢｙＶａｌ ｎＷｉｄｔｈＡｓＬｏｎｇ，ＢｙＶａ１ ｎＨｅｉｇｈｔＡｓ Ｄｅｃｌａｒｅ Ｆｕｎｃｔｉｏｎ ＲｅｌｅａｓｅＤＣ Ｌｉｂ ｕｓｅｒ３２ （ＢｙＶａｌ ｈＷｎｄ Ａｓ ｏＬｎｇ，ＢｙＶａｌ Ｌｏｎｇ，ＢｙＶａｌ ｈＳｒｃＤＣ Ａｓ Ｌｏｎｇ，ＢｙＶａ１ ｘＳｒｃ Ａｓ Ｌｏｎｇ，ＢｙＶａｌ ｙＳｒｅ Ａｓ ｈＤＣＡｓＬｏｎｇ）ＡｓＬｏｎｇ １，３主界面ｆｒｍＣｏｐｙＳｃｒｅｅｎ程序代码 Ｓｕｂ ＳｅｔＰｉｃｔｕｒｅ（） ＶＳｃｒｏＵ１．ＬａｒｇｅＣｈａｎｇｅ＝ＶＳｃｒｏＵ１，Ｍａｘ／１０ ｐｉｃＣｏｐｙ．Ｖｉｓｉｂｌｅ＝Ｔｒｕｅ ＥｎｄＩｆ Ｉｆ ｐｉｃＣｏｐｙ，Ｗｉｄｔｈ＜：Ｐｉｃｔｕｒｅｌ，ＳｃａｌｅＷｉｄｔｈ Ｔｈｅｎ Ｅｎｄ Ｓｕｂ ｐｉｃＣｏｐｙ．Ｌｅｆｔ：（Ｐｉｃｔｕｒｅｌ，ＳｃａｌｅＷｉｄｔｈ—ｐｉｃＣｏｐｙ，ｗｉｄｔｈ）／２ Ｐｒｉｖａｔｅ Ｓｕｂ Ｆ０ｎＴＬ Ｒｅｓｉｚｅ（） Ｅｌｓｅ Ｏｎ Ｅｒｒｏｒ Ｒｅｓｕｍｅ Ｎｅｘｔ ｐｉｃＣｏｐｙ．Ｌｅｆｔ＝０ Ｐｉｃｔｕｒｅｌ，Ｗｉｄｔｈ：Ｍｅ，ＳｃａｌｅＷｉｄｔｈ—ＶＳｃｒｏｌｌｌ，Ｗｉｄｔｈ ＨＳｃｒｏＵ１．Ｍｉｎ：０ Ｐｉｃｔｕｒｅ１．Ｈｅｉｇｈｔ＝Ｍｅ．ＳｃａｌｅＨｅｉｇｈｔ—ＨＳｃｒｏＵｌ，Ｈｅｉｇｈｔ ＨＳｃｒｏＵ１．Ｖａｌｕｅ＝０ ＶＳｃｒｏＵ１．Ｌｅｆｔ＝Ｐｉｃｔｕｒｅ１．Ｗｉｄｔｈ ＨＳｃｒｏＵ１．Ｍａｘ：ｐｉｃＣｏｐｙ．Ｗｉｄｔｈ—Ｐｉｃｔｕｒｅｌ，ＳｃａｌｅＷｉｄｔｈ ＨＳｃｒｏＵ１．Ｔｏｐ＝Ｐｉｃｔｕｒｅ１．Ｈｅｉｇｈｔ ＨＳｃｒｏＵ１．ＳｍａｌｌＣｈａｎｇｅ＝ＨＳｃｒｏｌｌ１．Ｍａｘ／１００ ＶＳｃｒｏＵ１．Ｈｅｉｇｈｔ＝Ｐｉｃｔｕｒｅ１．Ｈｅｉｇｈｔ ＨＳｃｒｏＵｌ，ＬａｒｇｅＣｈａｎｇｅ＝ＨＳｃｒｏＵ１．Ｍａｘ／１０ ＨＳｃｒｏＵ１．Ｗｉｄｔｈ：Ｐｉｃｔｕｒｅ１．Ｗｉｄｔｈ ＥｎｄＩｆ ＳｅｔＰｉｃｔｕｒｅ Ｉｆ ｐｉｃＣｏｐｙ．Ｈｅｉｇｈｔ＜：Ｐｉｃｔｕｒｅ１．ｃＳａｌｅＨｅｉｇｈｔ Ｔｈｅｎ Ｅｎｄ Ｓｕｂ ｐｉｃＣｏｐｙ，Ｔｏｐ＝（Ｐｉｃｔｕｒｅ１．ＳｃａｌｅＨｅｉｇｈｔ—ｐｉｃＣｏｐｙ．Ｈｅｉｇｈｔ）／２ Ｐｒｉｖａｔｅ Ｓｕｂ ＨＳｃｒｏＵｌ＿Ｃｈａｎｇｅ（） Ｅｌｓｅ ｐｉｃＣｏｐｙ．Ｌｅｆｔ：一ＨＳｃｒｏＵ１．Ｖａｌｕｅ ｐｉｃＣｏｐｙ．Ｔｏｐ：０ Ｅｎｄ Ｓｕｂ ＶＳｃｒｏＵ１．Ｍｉｎ：０ Ｐｒｉｖａｔｅ Ｓｕｂ ｍＣｏｐｙＳｃｒｅｎ—Ｃｌｉｃｋ（） ＶＳｃｒｏＵ１．Ｖａｌｕｅ＝０ Ｄｉｍ ｈＤＣ Ａｓ Ｌｏｎｇ，ＳＸ ｓＡ Ｉｎｔｅｇｅｒ，ｓｙ Ａｓ Ｉｎｔｅｇｅｒ ＶＳｃｒｏＵ１．Ｍａｘ＝ｐｉｃＣｏｐｙ．Ｈｅｉｇｈｔ—Ｐｉｃｔｕｒｅｌ，ＳｃａｌｅＨｅｉｇｈｔ Ｍｅ．Ｈｉｄｅ ＶＳｃｒｏＵｌ，ＳｍａｌｌＣｈａｎｇｅ：ＶＳｃｒｏｌｌｌ，Ｍａｘ／１００ ＤｏＥｖｅｎｔｓ （下转８７页） 收稿日期：２００５—１２—２０ 作者简介：肖宁（１９６３一），女，辽宁铁岭市人，讲师，主要从事计算机教学研究 维普资讯 http://www.cqvip.com
田凤斌 灯光照明技术的发展与实践研究 ８７ ３现代灯光照明技术与影视质量 实践证明，运用现代灯光照明技术是保证影视质量的关键．比如，辽宁电视台新闻演播室灯光系统包括：调光系统：１ 个４８路数字调光台（ＤＭＸ５１２协议信号），５６路调光立柜．吊挂系统：可滑动手动插控设备．灯具是冷、热光源混和使用 的．热光源为１ ｋＷ聚光灯２０台，１．２５ ｋＷ散光灯１０台．６×３６ Ｗ三基色冷光灯１２台，用以保证新闻节目演播室部分的 录制．多种灯具配合使用满足了布光效果的需求．辽宁电视台利用现有数字灯光控制系统对演播室灯光进行了编组、分 场．可以根据需要调节设定灯光在一定需求时让哪一组或哪几组灯点亮，并可以设定每一台灯按百分比提供亮度以构成良 好的照明效果．在辽宁电视台的１１号新闻演播室内，利用有效空间和灯光设备共设置了三个景区，为此，就必须对现有灯 光设备进行编组．有的灯具要在几个景区中反复应用，并对每个景区所需灯光进行先期调整布光后在ＤＭＸ５１２信号控制调 光台上进行了编组与设定，这样在每档节目间只要再进行微调后就可以得到新的光区所需的光效． 在辽宁电视台新闻节目中心，有较多的栏目是利用抠像技术来实现的．因为背景版的制作需要大量的经费，而抠像技 术可以实现虚拟化的演播室效果，还可以减少背景制作的经费，节省演播室空间．这样一来就对灯光照明提出了较高的要 求．抠像中，灯光照明采用的是２台１ ｋＷ散光照射蓝底光源，使蓝底照度在１ ２００～１ ５００ Ｌｘ．主持人的逆光采用１ ｋＷ聚 光灯两台，照度在２ ０００～２ ５００ Ｌｘ．一台１ ｋＷ聚光灯在机位的左倾４５。角的位置为人物的主光，照度在１ ８００～２ ２００ Ｌｘ， 三基色冷光灯６×５６ Ｗ三台作副光照明．这样一来演播室整体光照度，达到摄像机的最佳效果，突出了人物的美． 抠蓝在电视台应用的是比较多的一种手段． 在节目改版期间，辽宁电视台中心领导决定把抠蓝改为抠绿，＜辽宁新闻》是两个主持人，三台摄像机，同时用抠像技术 来完成的．应用的切换台是ＳＯＮＹ的ＤＶＳ一７１５０，相当于用一个键抠三个键源，这对灯光照明提出了很高的要求．绿背景对 照度要求较高，而且要求非常均匀，长５ ｍ、高２．５ ｍ的背景，用热光源灯能很好地解决问题，但是由于离墙近，防火不允 许，所以只能用三基色冷光灯照亮背景．采用上方两台４×３６ Ｗ，下面三台４×３６ Ｗ三基色冷光灯照射背景，但照度不均， 亮度不够，最后采用上边四台，下面六台，这样绿背景照度达到２０００～２５００ Ｌｘ，解决了背景问题．但主持人又有了新问题， 如果按主持人脸曝光，男女明暗不一致，所需照度也不一致，女主持人亮，男主持人暗，色彩还原不好，主持人脸发黄，没 有层次．为了解决这个问题，试用灰调白平衡，用测试卡调整摄像机，但都不能达到满意的效果．由于演播室灯光色温要求 ３２００ Ｋ，如果提高色温，则突增了人物蓝色彩，最后把灯具加上雷登８２Ｂ滤色片，调机时还用３２００ Ｋ色温调，调好后把加滤 色片的灯光开关打开，主持人的脸部效果就出来了，色彩还原好了，主持人也不用为衣服的颜色苦恼了． 在用光上，打破常规，用两台１ ｋＷ聚光灯用做主持人的逆光，灯的焦聚调到最小，离主持人的距离很近，以增强逆光 的强度．面光用６×３６Ｗ三基色冷光灯半弧型平均照明，主光机位的４５。角位置下布灯，聚焦在白色反光板上把主持人颈部的 阴影打亮，收到了很好的效果．现在在辽宁电视台新闻演播室内，主持人的衣服颜色受到较少，可以达到很好的效果． 随着电视事业的发展，电视技术的不断更新，对电视灯光技术人员的工作将会提出更新更高的要求，还会有更新的问题出 现，需要我们去解决．电视工作者只有不断学习总结经验，才能适应未来电视事业发展的需要． （责任编辑 王立俊，王巍） （上接４５页） ｐｉｃＣｏｐｙ．Ｗｉｄｔｈ＝Ｓｃｒｅｅｎ．Ｗｉｄｔｈ Ｗｉｔｈ ＣｏｍｍｏｎＤｉ￣ｏｇ１ ｐｉｃＣｏｐｙ．Ｈｅｉｇｈｔ＝Ｓｃｒｅｅｎ．Ｈｅｉｇｈｔ ．Ｄｉ￣ｏｇＴｉｔｌｅ＝ 保存文件 ｐｉｃＣｏｐｙ．ＡｕｔｏＲｅｄｒａｗ＝Ｔｒｕｅ ．Ｆｉｌｔｅｒ＝ 位图文件（＊．ｂｍｐ）ｌ＊．ｂｍ ｈＤＣ＝ＧｅｔＤＣ（０） ．ＣａｎｃｅｌＥｒｒｏｒ＝Ｔｒｕｅ ｓｘ＝Ｓｃｒｅｅｎ Ｗｉｄｔｈ ｔ Ｓｃｒｅｅｎ．ＴｗｉｐｓＰｅｒＰｉｘｅ１Ｘ ．ＳｈｏｗＳａｖｅ ｓｙ＝Ｓｃｒｅｅｎ．Ｈｅｉｇｈｔ＼Ｓｃｒｅｅｎ．ＴｗｉｐｓＰｅｒＰｉｘｅｌＹ Ｉｆ Ｅｒｒ．Ｎｕｍｂｅｒ＜＞ｃｄｌＣａｎｃｅｌ Ｔｈｅｎ ＢｉｔＢｌｔ ｐｉｃＣｏｐｙ．ｈＤＣ，０，０，ＳＸ，ｓｙ，ｈＤＣ，０，０，ｖｂＳｒｃＣｏｐｙ ＳａｖｅＰｉｃｔｕｒｅ ｐｉｃＣｏｐｙ．Ｐｉｃｔｕｒｅ，．ＦｉｌｅＮａｍｅ ＲｅｌｅａｓｅＤＣ ０，ｈＤＣ ＥｎｄＩｆ ｐｉｃＣｏｐｙ．ＡｕｔｏＲｅｄｒａｗ＝Ｆａｌｓｅ ＥｎｄＷｉｔｈ ＳｅｔＰｉｃｔｕｒｅ Ｅｎｄ Ｓｕｂ Ｍｅ．Ｓｈｏｗ Ｐｒｉｖａｔｅ Ｓｕｂ ＶＳｃｒｏｌｌｌ＿Ｃｈａｎｇｅ（） Ｅｎｄ Ｓｕｂ ｐｉｃＣｏｐｙ．Ｔｏｐ＝一ＶＳｃｒ０Ｕ１．Ｖａｌｕｅ Ｐｒｉｖａｔｅ Ｓｕｂ ｍＳａｖｅＦｉｌｅ＿Ｃｌｉｃｋ（） Ｅｎｄ Ｓｕｂ Ｏｎ Ｅｒｒｏｒ Ｒｅｓｕｍｅ Ｎｅｘｔ ２程序运行 （１）抓图程序运行界面如图２所示．（２）单击“抓图”菜单后运行界面如图３所示．（３）单击“保存”菜单后运行界面如图４所示 尊 ０ ∞撬曙 ）蕾 ｊ 《协Ｔ＾ 烹 口口《）帮 岫 ｌ Ｄ毋瞄毒强争 醢 圈髓霹田 芷立 － 诨 躲捷讳。矗 ． 自 ．姑Ｒ 熬最ｔ 隧… … ” 。 — ———一 ；豢萋 ｌｉ 菱 》Ｉｉ ； １ ｌｓｕｂ磁 Ｓ ‘ ～ ， 图２ 图３ 图４ ３结束语 以上是屏幕抓取程序． 经过代码调整以后可以完成抓取运行程序主界面或运行程序客户区界面等功能●其关键是１３１２属性的获取，限 于篇幅不再赘述． （责任编辑李树东。王巍）
