之前就听说过手机上面有一个一键锁屏，比较方便，所以就做了一个电脑的一键锁屏，坐在电脑旁工作的工作人员有福了，有时候，开着电脑，但是又暂时不用电脑，但是电脑的屏幕一直亮着，不但对自己有辐射，还浪费电。一键锁屏省电又健康。教你自己做一键锁屏。。。。
工具/原料
- visual basic 6.0或者更高版本。
- 耐心
方法/步骤
- 1
首先先新建一个标准工程，双击窗口进入代码窗口。
- 2
在右边点击选择时间，选择Activate事件。接下来就是写进代码了。
- 3
选择外接程序，选择API浏览器，进入。
- 4
首先你要先加载文件，如图，选择第三个文件，打开。确定。
- 5
在搜索栏中输入sendmessage，之后就能看到，在右边选择私有，然后双击待选框的sendmessage，下面的框会出现代码，选择复制，，，之后关闭。代码（
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
）也可自行复制。
- 6
把之前的代码复制到那个的上面，如图。再加上
（
Const WM_SYSCOMMAND = &H112
Const SC_MONITORPOWER = &HF170&
）两句，，在之后加上。如图
- 7
在下面的activate事件里面打入如下代码
（SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal 2&）后面再加上end，意思是给系统发送了信息之后就结束自己的运行，从而实现再次打开的时候不会看到。总体图如下：
- 8
把exe生成到桌面，，然后把它拉到任务栏，以后只要你单击一下就可以实现一键锁屏了。如果你不放在任务栏，就需要双击它，想打开其他程序一样的。完成了。
END
注意事项
- 单击之后屏幕会暗掉，你在随便动一下鼠标或者键盘就会重新亮了。