VB与Windows API讲座(二) 萤幕抓取与萤幕保护程式
文章来源:vb大世界 作者：王国荣
「VB 没有提供这样的功能， 必须呼叫 Windows API」， 当笔者这样回答读者之後，有些读者会要求笔者介绍 Windows API 方面的书籍， 尤其是中文书， 但实际上，目前市面上只看到一本原文书(ZD Press 出版的 Visual Basic 5.0 Programming Guide to Win32 API)， 中文书则未见过， 为什麽没有 Windows API 方面的中文书呢？道理很简单， Windows API 对 VB 的学习者而言， 犹如山峰之颠， 能够一路爬上来的人原本就十分有限，而越往山顶， 人烟越稀少， 因此这样的书写出来， 销售成绩必然惨不忍睹， 也许有些读者会觉得本土的作者实在很混，只愿意写简单的书， 但撰写深入的书籍， 费时费力费神而销售成绩又不好， 最终结果是这种不混的作者混不下去，当过读者而现在又是作者的笔者， 对於此一现象有时也颇感无奈。
不管怎样， 笔者现在已经开始介绍 Windows API 了， 也许真的不想混了，但混与不混不是笔者开启本系列讲座最担心的事情， 笔者所担心的是这样的主题对读者来说会不会太枯燥？会不会太艰涩？会不会像笔者当初研读 Windows API 时， 越研读心中的疑问越多， 就好像进入无底黑洞一样？
为了避免以上的结果， 在内容的介绍上， 笔者会倾向於即学即用的 API， 短期内尽量避免深入 Windows 无底黑洞地带， 而会先到那些有花有草地方。
本期笔者想引领您去的地方是：萤幕抓取程式与萤幕保护程式。
萤幕抓取程式简介
如果不写程式， 抓取萤幕图像的方法是：按下 Print Screen 键， 然後开启 Windows 的小画家， 接着选取小画家功能表的「编辑/贴上」， 即可将萤幕图像复制到小画家的绘图区域中。
如果写程式呢？稍後笔者就会介绍， 介绍以前， 建议您先进入笔者的网站下载笔者所撰写的萤幕抓取程式(CopyScr.vbp)，一来可了解程式的基本运作模式， 二来不必自己输入程式， 此一程式执行後，选取功能表的「我抓我抓我抓抓」， 即可将萤幕的图像复制进来。
萤幕保护程式简介
保护萤幕最简单的方法就是不用时关掉它， 但有这种好习惯的人实在不多，所以有人写程式侦测滑鼠与键盘的输入， 如果有一段时间没有滑鼠或键盘的输入，便将电脑视为没有人在使用， 而把萤幕显示成黑色， 用以保护萤幕， 後来又有人觉得黑色太难看了，就加了一点动画， 慢慢地动画越来越多也越有趣， 结果反倒成为萤幕保护程式不可或缺的功能，而不再以保护萤幕为主了。
如何撰写萤幕保护程式当然也是本期的重点， 同样的， 介绍以
相关文档：
※==================================================================
※本连载文章说明：
※1、连载首发于《软件报》（http://www.sweek.com）2006年21期（2006年5月22日）；
※2、此次网上连载采用的是原稿件结构，内容与《软件报》发表略有不同；
※3、谢绝除《软件报》及其相关刊物之外的传统媒体部分或全部转载 ......
VB中 Replace 函数
描述
返回字符串，其中指定数目的某子字符串被替换为另一个子字符串。
语法
Replace(expression, find, replacewith[, compare[, count[, start]]])
Replace 函数的语法有以下参数：
参数 描述
expression 必选。字符串表达式，包含要替换的子字符串。
find 必选。被搜索的子字符串。
......
这段时间在移植项目的过程中，起初我想判断一个字符串中是否存在某字符（串），直接的使用方法是用instr（start，string1，string2，VB compare），但经过分析在VB中可以只用一下方法来判断！
1.常用的INStr方法
Function InStr([Start], [String1], [String2], [Compare A ......
这一段大家编写程序很多时候都在使用API,它给我们带来了强大的功能.让我们非常惊喜.
但是我们在调试程序的时候有时候总会奔溃.这样很不方便.
其中有些是api惹的祸
使用api注意事项:
首先我说说我的观点.
1:Api是很多系统也在用.我们在设置参数时如果和系统的参数有冲突.就可能引起软件出错
2.api很多都是c语言编写的, ......
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private closeTime As String
Sub AdjustTokenPrivilegesForNT()
......
