vb制作一键锁屏

1、首先先新建一个标准工程，双击窗口进入代码窗口。

3、选择外接程序，选择API浏览器，进入。

6、把之前的代码复制到那个的上面，如图。再加上（Const WM_SYSCOMMAND = &H112Const SC_MONITORPOWER = &HF170&）两句，，在之后加上。如图

7、在下面的activate事件里面打入如下代码（SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal 2&）后面再加上end，意思是给系统发送了信息之后就结束自己的运行，从而实现再次打开的时候不会看到。总体图如下：

8、把exe生成到桌面，，然后把它拉到任务栏，以后只要你单击一下就可以实现一键锁屏了。如果你不放在任务栏，就需要双击它，想打开其他程序一样的。完成了。