这个不可以跟老板解释一下吗

我们也是，超过6分钟没碰鼠标或者键盘就自动登出

笨笨熊 发表于 2022-05-16 22:03

感觉很莫名其妙地说，难道不需要花时间读文件或思考问题么？还是公司认为我们的工作就是单纯的数据录入？

回复 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秒点一次屏幕了。

Helen_Wood 发表于 2022-05-17 00:29

牛啊，哪天试试玩。

太容易了。编个小程序。

每1秒发送一个按键。

一天24小时，你都在工作。

都是什么工作？要求不停点鼠标。

是不是打字社？

经常眼瘸要打印出来文件躺到沙发上看的我表示，这都什么狗屁啊

jms都还有才啊，收藏了。我司倒是不track 时间，就是10分钟就锁屏，很讨厌。我就打开ppt presentation mode，电脑就一直不lock。
蓝雪花 发表于 2022-05-17 12:47

不lock但是teams还是显示away，其实别人还是知道你在偷懒😂

也觉得很奇怪，很多论文或者文档打印出来，有时候都要看好几遍，很容易就几个小时了。开会的时候解释一下，说每天至少要两三个小时看文档。

牛逼闪闪！👍

妈的，我跑程序几个小时不用按键，那我岂不是不算工作？变态的监控

现代社会贫富悬殊越来越大，当个middle class都这么难，资本家想方设法地剥削压榨

爆公司名字，免得大家换工作踩雷。

感觉很莫名其妙地说，难道不需要花时间读文件或思考问题么？还是公司认为我们的工作就是单纯的数据录入？

Tina_tgif 发表于 2022-05-17 11:02

就是很神经，而且我们每次登入要输三次密码，每次密码都要配一个code才能展开工作，强行退出会导致登陆后一些App不能正常使用，所以登入以后还要再log out，然后再输三次密码才能重新开始工作。经常等code也有delay，真闹心。

回复 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秒点一次屏幕了。

Helen_Wood 发表于 2022-05-17 00:29

二话不说，直接上代码。

牛！

这是什么micro management 公司啊，没听说过这么变态的

管头管脚的公司要快跑， 到时候吃亏都来不及。

有一些device放在鼠标下面模拟移动光标，但是不能click。好处是不用装软件

https://www.tomsguide.com/news/mouse-movers-explained

不过这种公司也行该考虑离开了

回复 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秒点一次屏幕了。

Helen_Wood 发表于 2022-05-17 00:29

请收下我的膝盖

所以拿到offer还要看看review，公司是不是这么变态装这些软件监视员工。据说有些公司的监视软件还加上屏幕截屏。