说明:
本案例是使用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
以上工程代码比较全,包含画圆画线段、不同大小、不同长度方向等动作,让电脑不再感到单调无聊 :)