clswindow使用案例：随机移动鼠标防锁屏（含源码）

说明：

本案例是使用clsWindow2.2框架简单调用鼠标随机移动，简单一招防止电脑休眠。这个工具在gitub上访问量比较高，应该是有很大的需求。最近疫情在家办公，有些朋友电脑上被装了监视工具判断是否在工作，比如鼠标键盘是否每分钟都有活动，老板由此分析你是否在偷懒。如果用上这个工具应该可以愉快怠工了。哈哈。

测试环境：

win7x64 + clsWindow2.2

说明： 代码都是经过测试后发布的，如果不能用可能是您的clswindow版本太旧，或者操作系统版本差异问题，请仔细检查并修改相应代码。以下代码2020-02-22测试通过，本代码不保证更新。

声明：

本代码免费，可用于任何商业用途，但请勿做非法用途，所引起的一切后果由使用者本人承担。

代码：

请向窗口添加按钮Command1，然后复制下面代码后点击按钮运行。

Private Sub Command1_Click()
    Dim w As New clsWindow
    Randomize
    Do
        x1 = Screen.Width / 15 * Rnd
        y1 = Screen.Height / 15 * Rnd
        w.SetCursor x1, y1 '随机移动到屏幕内任意一个点
        w.Wait 5000 '等待5秒钟
    Loop
End Sub

运行后我们会看到鼠标每隔5秒便会动一次，这样电脑就不会进入到休眠状态了。你可以根据自己需要修改这里的5秒延时，要逼真点可以修改为随机秒数延时，比如随机延时3秒到30秒。

虽然电脑可以设置防止休眠，但是很多人反映按照百度搜的教程设置了结果电脑还是休眠了，用这个模拟鼠标随机移动让电脑一直以为有人在使用，这样就不会休眠或者待机了。运行后建议关闭显示器，省一点电 o(￣︶￣)o

工程打包下载地址：pan.baidu.com/s/1tnehLHIj… 提取码: bsy9

以上工程代码比较全，包含画圆画线段、不同大小、不同长度方向等动作，让电脑不再感到单调无聊 :)