Question

用VB6制作一个屏幕保护程序

我知道网上到处有方法和代码，但是试了好多都不成功，谁会的麻烦用VB6编译成功后把工程文件发给我，还麻烦说明一下使用了哪个API函数或者哪些ActiveX控件！100分的悬赏，如果满意再加100分！多谢各位了！

Answer 1

其实做个屏保程序关键就是三点：
1、窗口无边框（BorderStyle属性设为0），设为全屏幕并且始终处在最顶层（实现方法很多、也很容易）；
2、实时检测键盘和鼠标动作，由于软件窗口是处在最顶层的，所以可以直接用VB的事件检测即可，无须用到API。不过检测鼠标时要注意，允许鼠标有个“安全抖动范围”，就是说要等鼠标移动的范围达到一个值（比如5像素）后才退出屏保，否则的话你的屏保程序根本就运行不起来，因为鼠标有时候即使没有移动它的指针也会“微微抖动”的；
3、把编译后的文件扩展名改为SCR，并且要放到windows系统的system32文件夹中。
至于其他复杂和花哨的功能，只要在以上三点的基础上继续扩展即可。其实只要把一个exe文件的扩展名改为scr就是一个屏保程序了，只是运行起来没有我们通常理解的屏保特征而已。
示例程序我也调试编译成功了，但我不想给你，因为实在是太短了，只有5行代码，不好意思给你。另外我也恪守“授人以鱼不如授人以渔”的原则。分我不要了，只要能对你有所启发就行

Answer 2

你的邮箱呢？

追问

729761418@qq.com

追答

邮件已发送