回复 1楼Grace302的帖子 二话不说,直接上代码。 考虑到楼主的电脑无法安装任何其他软件,那么只能用一般都有的Excel, 1.在EXCEL里,enable 开发者模式,然后加入一个按钮,然后这个按钮的代码如下: Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal Y As Long) As Long Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Const MOUSEEVENTF_LEFTDOWN = &H2 Private Const MOUSEEVENTF_LEFTUP = &H4 Private working As Boolean
Sub keep_screen_live_Click() Set working = True Do While working Call ClickMyScreen MsgBox "clicking" Sleep 60000 Loop End Sub Private Sub ClickMyScreen() mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 Sleep 50 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 Sleep 100 End Sub 然后保存成 macro的excel,点击开始按钮,就会自动60秒点一次屏幕了。
回复 1楼Grace302的帖子 二话不说,直接上代码。 考虑到楼主的电脑无法安装任何其他软件,那么只能用一般都有的Excel, 1.在EXCEL里,enable 开发者模式,然后加入一个按钮,然后这个按钮的代码如下: Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal Y As Long) As Long Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Const MOUSEEVENTF_LEFTDOWN = &H2 Private Const MOUSEEVENTF_LEFTUP = &H4 Private working As Boolean
Sub keep_screen_live_Click() Set working = True Do While working Call ClickMyScreen MsgBox "clicking" Sleep 60000 Loop End Sub Private Sub ClickMyScreen() mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 Sleep 50 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 Sleep 100 End Sub 然后保存成 macro的excel,点击开始按钮,就会自动60秒点一次屏幕了。
回复 1楼Grace302的帖子 二话不说,直接上代码。 考虑到楼主的电脑无法安装任何其他软件,那么只能用一般都有的Excel, 1.在EXCEL里,enable 开发者模式,然后加入一个按钮,然后这个按钮的代码如下: Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal Y As Long) As Long Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Const MOUSEEVENTF_LEFTDOWN = &H2 Private Const MOUSEEVENTF_LEFTUP = &H4 Private working As Boolean
Sub keep_screen_live_Click() Set working = True Do While working Call ClickMyScreen MsgBox "clicking" Sleep 60000 Loop End Sub Private Sub ClickMyScreen() mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 Sleep 50 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 Sleep 100 End Sub 然后保存成 macro的excel,点击开始按钮,就会自动60秒点一次屏幕了。
回复 1楼Grace302的帖子 二话不说,直接上代码。 考虑到楼主的电脑无法安装任何其他软件,那么只能用一般都有的Excel, 1.在EXCEL里,enable 开发者模式,然后加入一个按钮,然后这个按钮的代码如下: Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal Y As Long) As Long Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Const MOUSEEVENTF_LEFTDOWN = &H2 Private Const MOUSEEVENTF_LEFTUP = &H4 Private working As Boolean
Sub keep_screen_live_Click() Set working = True Do While working Call ClickMyScreen MsgBox "clicking" Sleep 60000 Loop End Sub Private Sub ClickMyScreen() mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 Sleep 50 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 Sleep 100 End Sub 然后保存成 macro的excel,点击开始按钮,就会自动60秒点一次屏幕了。
用autoit做个script。在分屏模式下,不停开关一个文件就可以了。 https://www.portablefreeware.com/?id=50 AutoIt Portable is a portable wrapper for AutoIt and SciTE4AutoIt3. It ensures SciTE doesn't leave any traces on the users machine. To install you can either use the AutoIt Creator or manually create the AutoIt package by following the instructions below.
回复 1楼Grace302的帖子 二话不说,直接上代码。 考虑到楼主的电脑无法安装任何其他软件,那么只能用一般都有的Excel, 1.在EXCEL里,enable 开发者模式,然后加入一个按钮,然后这个按钮的代码如下: Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal Y As Long) As Long Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Const MOUSEEVENTF_LEFTDOWN = &H2 Private Const MOUSEEVENTF_LEFTUP = &H4 Private working As Boolean
Sub keep_screen_live_Click() Set working = True Do While working Call ClickMyScreen MsgBox "clicking" Sleep 60000 Loop End Sub Private Sub ClickMyScreen() mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 Sleep 50 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 Sleep 100 End Sub 然后保存成 macro的excel,点击开始按钮,就会自动60秒点一次屏幕了。
回复 1楼Grace302的帖子 二话不说,直接上代码。 考虑到楼主的电脑无法安装任何其他软件,那么只能用一般都有的Excel, 1.在EXCEL里,enable 开发者模式,然后加入一个按钮,然后这个按钮的代码如下: Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal Y As Long) As Long Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Const MOUSEEVENTF_LEFTDOWN = &H2 Private Const MOUSEEVENTF_LEFTUP = &H4 Private working As Boolean
Sub keep_screen_live_Click() Set working = True Do While working Call ClickMyScreen MsgBox "clicking" Sleep 60000 Loop End Sub Private Sub ClickMyScreen() mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 Sleep 50 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 Sleep 100 End Sub 然后保存成 macro的excel,点击开始按钮,就会自动60秒点一次屏幕了。
回复 1楼Grace302的帖子 二话不说,直接上代码。 考虑到楼主的电脑无法安装任何其他软件,那么只能用一般都有的Excel, 1.在EXCEL里,enable 开发者模式,然后加入一个按钮,然后这个按钮的代码如下: Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal Y As Long) As Long Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Const MOUSEEVENTF_LEFTDOWN = &H2 Private Const MOUSEEVENTF_LEFTUP = &H4 Private working As Boolean
Sub keep_screen_live_Click() Set working = True Do While working Call ClickMyScreen MsgBox "clicking" Sleep 60000 Loop End Sub Private Sub ClickMyScreen() mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 Sleep 50 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 Sleep 100 End Sub 然后保存成 macro的excel,点击开始按钮,就会自动60秒点一次屏幕了。
回复 1楼Grace302的帖子 二话不说,直接上代码。 考虑到楼主的电脑无法安装任何其他软件,那么只能用一般都有的Excel, 1.在EXCEL里,enable 开发者模式,然后加入一个按钮,然后这个按钮的代码如下: Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal Y As Long) As Long Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Const MOUSEEVENTF_LEFTDOWN = &H2 Private Const MOUSEEVENTF_LEFTUP = &H4 Private working As Boolean
Sub keep_screen_live_Click() Set working = True Do While working Call ClickMyScreen MsgBox "clicking" Sleep 60000 Loop End Sub Private Sub ClickMyScreen() mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 Sleep 50 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 Sleep 100 End Sub 然后保存成 macro的excel,点击开始按钮,就会自动60秒点一次屏幕了。
回复 1楼Grace302的帖子 二话不说,直接上代码。 考虑到楼主的电脑无法安装任何其他软件,那么只能用一般都有的Excel, 1.在EXCEL里,enable 开发者模式,然后加入一个按钮,然后这个按钮的代码如下: Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal Y As Long) As Long Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Const MOUSEEVENTF_LEFTDOWN = &H2 Private Const MOUSEEVENTF_LEFTUP = &H4 Private working As Boolean
Sub keep_screen_live_Click() Set working = True Do While working Call ClickMyScreen MsgBox "clicking" Sleep 60000 Loop End Sub Private Sub ClickMyScreen() mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 Sleep 50 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 Sleep 100 End Sub 然后保存成 macro的excel,点击开始按钮,就会自动60秒点一次屏幕了。
回复 1楼Grace302的帖子 二话不说,直接上代码。 考虑到楼主的电脑无法安装任何其他软件,那么只能用一般都有的Excel, 1.在EXCEL里,enable 开发者模式,然后加入一个按钮,然后这个按钮的代码如下: Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal Y As Long) As Long Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Const MOUSEEVENTF_LEFTDOWN = &H2 Private Const MOUSEEVENTF_LEFTUP = &H4 Private working As Boolean
Sub keep_screen_live_Click() Set working = True Do While working Call ClickMyScreen MsgBox "clicking" Sleep 60000 Loop End Sub Private Sub ClickMyScreen() mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 Sleep 50 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 Sleep 100 End Sub 然后保存成 macro的excel,点击开始按钮,就会自动60秒点一次屏幕了。
回复 1楼Grace302的帖子 二话不说,直接上代码。 考虑到楼主的电脑无法安装任何其他软件,那么只能用一般都有的Excel, 1.在EXCEL里,enable 开发者模式,然后加入一个按钮,然后这个按钮的代码如下: Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal Y As Long) As Long Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Const MOUSEEVENTF_LEFTDOWN = &H2 Private Const MOUSEEVENTF_LEFTUP = &H4 Private working As Boolean
Sub keep_screen_live_Click() Set working = True Do While working Call ClickMyScreen MsgBox "clicking" Sleep 60000 Loop End Sub Private Sub ClickMyScreen() mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 Sleep 50 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 Sleep 100 End Sub 然后保存成 macro的excel,点击开始按钮,就会自动60秒点一次屏幕了。
回复 1楼Grace302的帖子 二话不说,直接上代码。 考虑到楼主的电脑无法安装任何其他软件,那么只能用一般都有的Excel, 1.在EXCEL里,enable 开发者模式,然后加入一个按钮,然后这个按钮的代码如下: Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal Y As Long) As Long Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Const MOUSEEVENTF_LEFTDOWN = &H2 Private Const MOUSEEVENTF_LEFTUP = &H4 Private working As Boolean
Sub keep_screen_live_Click() Set working = True Do While working Call ClickMyScreen MsgBox "clicking" Sleep 60000 Loop End Sub Private Sub ClickMyScreen() mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 Sleep 50 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 Sleep 100 End Sub 然后保存成 macro的excel,点击开始按钮,就会自动60秒点一次屏幕了。
回复 1楼Grace302的帖子 二话不说,直接上代码。 考虑到楼主的电脑无法安装任何其他软件,那么只能用一般都有的Excel, 1.在EXCEL里,enable 开发者模式,然后加入一个按钮,然后这个按钮的代码如下: Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal Y As Long) As Long Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Const MOUSEEVENTF_LEFTDOWN = &H2 Private Const MOUSEEVENTF_LEFTUP = &H4 Private working As Boolean
Sub keep_screen_live_Click() Set working = True Do While working Call ClickMyScreen MsgBox "clicking" Sleep 60000 Loop End Sub Private Sub ClickMyScreen() mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 Sleep 50 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 Sleep 100 End Sub 然后保存成 macro的excel,点击开始按钮,就会自动60秒点一次屏幕了。
问题是,我的工作主要内容是考虑解决问题,又不是打字员。 明明在电脑前呆了8个多小时,工作时间却只有五个多小时。
举个例子说,看PDF文档,有个新概念需要消化下,当我思考的时候,buddy就认为我离开电脑不再工作了。 这个buddy,只适合用来监督数据录入员。
而且吧,我看PDF的时候,单纯移动鼠标还不行,必须有click的动作,才被认可为工作。
🔥 最新回帖
co-ask
lol 虽然我公司没这么变态 但是收藏备用
🛋️ 沙发板凳
是美国公司,现在内卷得厉害呀。
实验得出的结论。
公司电脑,没有权限安装任何东西。
做过移动鼠标的实验,必须有click才可以,单纯的移动不解决问题。
正解。 哈哈。
我们原来可以自己设置登出时间,现在十五分钟强制退出
我读PDF时候做了实验,手工移动鼠标都不行,必须有点击的动作(click)。
you are remoting into your office machine from your home machine so install it on your home machine
不是的,电脑都是公司发的,通过vpn进入公司网络。
公司的IT可以设置权限不让普通用户运行powershell scipt
我可以帮你找工作
哈哈哈我写了一个非常简单的py script不停变更鼠标的坐标。。只是没加click,后来发现没人care就算了
二话不说,直接上代码。
考虑到楼主的电脑无法安装任何其他软件,那么只能用一般都有的Excel,
1.在EXCEL里,enable 开发者模式,然后加入一个按钮,然后这个按钮的代码如下:
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal Y As Long) As Long Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2 Private Const MOUSEEVENTF_LEFTUP = &H4
Private working As Boolean
Sub keep_screen_live_Click()
Set working = True Do While working Call ClickMyScreen MsgBox "clicking" Sleep 60000 Loop End Sub
Private Sub ClickMyScreen()
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 Sleep 50 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 Sleep 100
End Sub
然后保存成 macro的excel,点击开始按钮,就会自动60秒点一次屏幕了。
把下面代码存成idle.vbs,然后运行。 粗体字5代表每5分钟动作,自行修改成所需时间间隔即可。
set wsc = CreateObject("WScript.Shell") Do 'Five Minutes WScript.Sleep(5*60*1000) wsc.SendKeys("{F13}") Loop
太牛了
这些装上妥妥的偷懒证据啊
我有个arduino做的假鼠标,插上模拟鼠标在动。不过那个软件比较智能,能识别这个。
按照层主的代码输入了Excel,run的时候告诉我
Compile error:
Object required
今天要试一试
会不会被公司it发现啊
AutoIt Portable is a portable wrapper for AutoIt and SciTE4AutoIt3. It ensures SciTE doesn't leave any traces on the users machine. To install you can either use the AutoIt Creator or manually create the AutoIt package by following the instructions below.
楼主的意思怎样算在工作和当前正在使用的应用软件有关
那如果没打开任何应用软件,就在desktop上移动鼠标有效吗?
借帖子问一下,我前一家公司发电脑我还可以run 这个code。
现在新公司是用virtual machine里面的电脑上线,我发现我连创建idle.vbs都弄不了。是不是楼上另外一位姐妹的excel vba code来保持team在线了?
这个如果被发现了是不是会很麻烦? 证据确凿地做假。
爱你!
只是看电脑屏幕么? 是的话, 建议remote utilities, 家用免费.
感觉很莫名其妙地说,难道不需要花时间读文件或思考问题么?还是公司认为我们的工作就是单纯的数据录入?
牛啊,哪天试试玩。
太容易了。编个小程序。 每1秒发送一个按键。 一天24小时,你都在工作。
是不是打字社?
不lock但是teams还是显示away,其实别人还是知道你在偷懒😂
牛逼闪闪!👍
就是很神经,而且我们每次登入要输三次密码,每次密码都要配一个code才能展开工作,强行退出会导致登陆后一些App不能正常使用,所以登入以后还要再log out,然后再输三次密码才能重新开始工作。经常等code也有delay,真闹心。
二话不说,直接上代码。 牛!
不过这种公司也行该考虑离开了
请收下我的膝盖
这个好厉害,但同意前面说的,快跳槽。
厉害
这个必须手动赞一个
mark 谢谢分享
厉害了
lol 虽然我公司没这么变态 但是收藏备用