vb制作一键锁屏
之前就听说过手机上面有一个一键锁屏，比较方便，所以就做了一个电脑的一键锁屏，坐在电脑旁工作的工作人员有福了，有时候，开着电脑，但是又暂时不用电脑，但是电脑的屏幕一直亮着，不但对自己有辐射，还浪费电。一键锁屏省电又健康。教你自己做一键锁屏。。。。
操作方法
- 01
首先先新建一个标准工程，双击窗口进入代码窗口。
- 02
在右边点击选择时间，选择Activate事件。接下来就是写进代码了。
- 03
选择外接程序，选择API浏览器，进入。
- 04
首先你要先加载文件，如图，选择第三个文件，打开。确定。
- 05
在搜索栏中输入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 ）也可自行复制。
- 06
把之前的代码复制到那个的上面，如图。再加上 （ Const WM_SYSCOMMAND = &H112 Const SC_MONITORPOWER = &HF170& ）两句，，在之后加上。如图
- 07
在下面的activate事件里面打入如下代码 （SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal 2&）后面再加上end，意思是给系统发送了信息之后就结束自己的运行，从而实现再次打开的时候不会看到。总体图如下：
- 08
把exe生成到桌面，，然后把它拉到任务栏，以后只要你单击一下就可以实现一键锁屏了。如果你不放在任务栏，就需要双击它，想打开其他程序一样的。完成了。