被公司电脑上变态的监控软件(sapience buddy)气疯了,求支招

G
Grace302
楼主 (北美华人网)
这个软件不允许人思考,我想问题的时间稍微长点,就被标成了“off-pc interval"了。 只有不断地有键盘输入或者鼠标移动并click,才会计算工作时间。
问题是,我的工作主要内容是考虑解决问题,又不是打字员。 明明在电脑前呆了8个多小时,工作时间却只有五个多小时。
举个例子说,看PDF文档,有个新概念需要消化下,当我思考的时候,buddy就认为我离开电脑不再工作了。 这个buddy,只适合用来监督数据录入员。
而且吧,我看PDF的时候,单纯移动鼠标还不行,必须有click的动作,才被认可为工作。




 

🔥 最新回帖

G
Grace302
101 楼
话说没有监控的公司怎么知道会不会在默默监控呢?
明朗少女 发表于 2022-05-18 09:39

co-ask
l
lavendula
100 楼
有用的帖子需要留名一下
蓝色辉光
99 楼
ebay 有卖的,防sleep鼠标。在ebay里面搜:mouse jiggler 这些会移动的,但是不知道会不会click(比如clock右键?),可能得再找找?
j
jjzatmac
98 楼
回复 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

lol 虽然我公司没这么变态 但是收藏备用
明朗少女
97 楼
话说没有监控的公司怎么知道会不会在默默监控呢?

 

🛋️ 沙发板凳

a
arabdopsis
这美国公司吗 没听说过这种 赶紧跳槽
G
Grace302
这美国公司吗 没听说过这种 赶紧跳槽
arabdopsis 发表于 2022-05-16 22:00

是美国公司,现在内卷得厉害呀。
笨笨熊
我们也是,超过6分钟没碰鼠标或者键盘就自动登出
p
pops
要不你把这个软件黑了? 华人版上不是有10岁娃娃把教学软件黑了么。
注册为了看帖
你看得到计算时间?
d
doudou1234
下一个软件帮你不停动鼠标
G
Grace302
你看得到计算时间?
注册为了看帖 发表于 2022-05-16 22:07

实验得出的结论。
G
Grace302
下一个软件帮你不停动鼠标
doudou1234 发表于 2022-05-16 22:08

公司电脑,没有权限安装任何东西。
z
zhangxx818
买个电动玩具,可以跳的那种,跟鼠标绑一起。。
G
Grace302
买个电动玩具,可以跳的那种,跟鼠标绑一起。。
zhangxx818 发表于 2022-05-16 22:09

做过移动鼠标的实验,必须有click才可以,单纯的移动不解决问题。
c
ccpfp
这个东西很容易糊弄。你去下载一个powershell script,每2-3分钟就发一个无效按键。电脑就认为你在工作了。你可以用个随机函数,把每次的间隔时间搞随机点。不容易被看出来。
g
gokgs
买个电动玩具,可以跳的那种,跟鼠标绑一起。。
zhangxx818 发表于 2022-05-16 22:09

正解。 哈哈。
x
xiaoywz
换地方 吧。大部分地方没这种变态监控
N
NJ橘猫
我们也是,超过6分钟没碰鼠标或者键盘就自动登出
笨笨熊 发表于 2022-05-16 22:03

我们原来可以自己设置登出时间,现在十五分钟强制退出
l
liuxm
去买个mouse mover 插上了 鼠标保持微动 不会熄屏 TEAM不会显示AWAY
G
Grace302
去买个mouse mover 插上了 鼠标保持微动 不会熄屏 TEAM不会显示AWAY
liuxm 发表于 2022-05-16 22:16

我读PDF时候做了实验,手工移动鼠标都不行,必须有点击的动作(click)。
y
yolandos
公司电脑,没有权限安装任何东西。
Grace302 发表于 2022-05-16 22:09

you are remoting into your office machine from your home machine so install it on your home machine
G
Grace302
you are remoting into your office machine from your home machine so install it on your home machine
yolandos 发表于 2022-05-16 22:21

不是的,电脑都是公司发的,通过vpn进入公司网络。
M
Modage
回复 12楼ccpfp的帖子
公司的IT可以设置权限不让普通用户运行powershell scipt
g
gwendylin1127
mouse jiggler
i
ivoryzz
回复 1楼Grace302的帖子
我可以帮你找工作
F
Flyinghorse
打开一个browser,然后用一个电话之类压着空格键
e
eragshs
公司电脑,没有权限安装任何东西。
Grace302 发表于 2022-05-16 22:09

哈哈哈我写了一个非常简单的py script不停变更鼠标的坐标。。只是没加click,后来发现没人care就算了
H
Helen_Wood
回复 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秒点一次屏幕了。




p
pops
赞楼上的。但这种软件能跟踪到你在每个文件的使用时间,如果每个礼拜40小时都在这个具体excel file 上,也不大对劲吧。
j
jack54321
那就 设计个 机械装置吧,过一会儿 物理点击 鼠标一下,这下总看不出来吧。我记得 有 鸡啄米 的小玩具,过一会儿 让 鸡啄一下 鼠标
A
April4
太可怕了吧?
b
boom
回复 1楼Grace302的帖子
把下面代码存成idle.vbs,然后运行。 粗体字5代表每5分钟动作,自行修改成所需时间间隔即可。
set wsc = CreateObject("WScript.Shell") Do 'Five Minutes WScript.Sleep(5*60*1000) wsc.SendKeys("{F13}") Loop
n
nakamoto
Mouse jiggler. From $12 to $50 on Amazon.
c
casino2k3
麻烦报个名字?实在好奇哪家美帝公司如此变态
A
Aliciashuhao
我猜是四大🤔
H
Haishikankan
楼主应该在开会的时候提出来,这个软件不好用,明明在看pdf,却被认为不在工作,建议换个软件。另外它记录的工作时长有人看吗?
s
seattlesun
这种公司趁早离开
d
darkspear
这个工作时长别人的数据你有问过吗?要是大家都是四五个小时,你一个人用了脚本后干满八小时那看起来也有点奇怪……
a
autofill
这是哪家变态公司?
h
herolover
太变态了,劝楼主离开吧。
f
fishonly
回复 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

太牛了
糖小蛮
Mouse jiggler 你值得拥有 亚麻搜搜 丰俭由人 另外 公司文化太垃圾 找下家吧
笨笨熊
这个东西很容易糊弄。你去下载一个powershell script,每2-3分钟就发一个无效按键。电脑就认为你在工作了。你可以用个随机函数,把每次的间隔时间搞随机点。不容易被看出来。
ccpfp 发表于 2022-05-16 22:11

这些装上妥妥的偷懒证据啊
A
AzureOcean
这么变态的美国公司 楼主报个公司名吧 从未有过如此奇葩的公司
w
wdong
我也有这个情况。去撒泡尿的时间就给我lock screen断vpn.
我有个arduino做的假鼠标,插上模拟鼠标在动。不过那个软件比较智能,能识别这个。
h
huaren_2018
尽量假装忙。对付这种公司只能这么干
s
sweetapple123
回复 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

按照层主的代码输入了Excel,run的时候告诉我
Compile error:
Object required
l
lala_2009
回复 25楼Helen_Wood的帖子
今天要试一试
a
archie
回复 25楼Helen_Wood的帖子
会不会被公司it发现啊
千渔千寻
用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.


金银岛
我读PDF时候做了实验,手工移动鼠标都不行,必须有点击的动作(click)。
Grace302 发表于 2022-05-16 22:18

楼主的意思怎样算在工作和当前正在使用的应用软件有关
那如果没打开任何应用软件,就在desktop上移动鼠标有效吗?
s
stawberryice
会不会fully remote以后公司都开始这么变态了?
冰韵
回复 1楼Grace302的帖子
把下面代码存成idle.vbs,然后运行。 粗体字5代表每5分钟动作,自行修改成所需时间间隔即可。
set wsc = CreateObject("WScript.Shell") Do 'Five Minutes WScript.Sleep(5*60*1000) wsc.SendKeys("{F13}") Loop
boom 发表于 2022-05-17 00:46

借帖子问一下,我前一家公司发电脑我还可以run 这个code。
现在新公司是用virtual machine里面的电脑上线,我发现我连创建idle.vbs都弄不了。是不是楼上另外一位姐妹的excel vba code来保持team在线了?
弹指一挥间
回复 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

这个如果被发现了是不是会很麻烦? 证据确凿地做假。
d
dllzf
回复 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

爱你!
s
showmm
歪个楼问一下家里有什么软件可以监视teenage用电脑
i
ismajia
买个小玩具, 不时按一下ctrl 键盘或者空格键
冰是睡着的水
六分钟,变态公司啊
e
ebc
你挣的是salaries 不是wages吧。所以这个监视就是你的productivity的考核?
b
babyduck
下个mousejigger软件,直接运行,或者打开ppt放presentation模式都行
f
foreverf
以前版上说的空格大法?
i
ismajia
歪个楼问一下家里有什么软件可以监视teenage用电脑
showmm 发表于 2022-05-17 09:15

只是看电脑屏幕么? 是的话, 建议remote utilities, 家用免费.
k
kikiwang
太有才了… 学习了…
o
opp18
推荐个Chrome插件:https://chrome.google.com/webstore/detail/keep-awake-display-system/apmicgkbejflkgeljipcebaoeigmangd?hl=en 不确定会不会被trace到,但是安装使用很方便
x
xiaomaixian
这个不可以跟老板解释一下吗
T
Tina_tgif
我们也是,超过6分钟没碰鼠标或者键盘就自动登出
笨笨熊 发表于 2022-05-16 22:03

感觉很莫名其妙地说,难道不需要花时间读文件或思考问题么?还是公司认为我们的工作就是单纯的数据录入?
T
TGMajia
回复 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

牛啊,哪天试试玩。
m
microsat
回复 1楼Grace302的帖子
太容易了。编个小程序。 每1秒发送一个按键。 一天24小时,你都在工作。
m
microsat
都是什么工作?要求不停点鼠标。
是不是打字社?

m
miss_monster
经常眼瘸要打印出来文件躺到沙发上看的我表示,这都什么狗屁啊
蓝雪花
jms都还有才啊,收藏了。我司倒是不track 时间,就是10分钟就锁屏,很讨厌。我就打开ppt presentation mode,电脑就一直不lock。
s
sweetapple123
jms都还有才啊,收藏了。我司倒是不track 时间,就是10分钟就锁屏,很讨厌。我就打开ppt presentation mode,电脑就一直不lock。
蓝雪花 发表于 2022-05-17 12:47

不lock但是teams还是显示away,其实别人还是知道你在偷懒😂
s
sainfoin
也觉得很奇怪,很多论文或者文档打印出来,有时候都要看好几遍,很容易就几个小时了。开会的时候解释一下,说每天至少要两三个小时看文档。
S
Sipangzi
回复 25楼Helen_Wood的帖子
牛逼闪闪!👍
S
Sipangzi
妈的,我跑程序几个小时不用按键,那我岂不是不算工作?变态的监控
我想保护你
现代社会贫富悬殊越来越大,当个middle class都这么难,资本家想方设法地剥削压榨
t
trymeagain
爆公司名字,免得大家换工作踩雷。
笨笨熊
感觉很莫名其妙地说,难道不需要花时间读文件或思考问题么?还是公司认为我们的工作就是单纯的数据录入?
Tina_tgif 发表于 2022-05-17 11:02

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

二话不说,直接上代码。 牛!
h
happysnowwhite
这是什么micro management 公司啊,没听说过这么变态的
e
elleyy
管头管脚的公司要快跑, 到时候吃亏都来不及。
s
shsteele
有一些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

请收下我的膝盖
w
wakingup
所以拿到offer还要看看review,公司是不是这么变态装这些软件监视员工。据说有些公司的监视软件还加上屏幕截屏。
v
vwot
什么公司?
w
wavelll
弄个test script的软件,做几个dummy test run, 拖到旁边屏幕上,自己玩去
只为吐槽
什么鬼公司,无语
苏醒的夏天
回复 25楼Helen_Wood的帖子
这个好厉害,但同意前面说的,快跳槽。
5
545f
印度人的公司吧
B
Brandypurple
什么破公司,跳吧,现在到处都缺人。
d
dukenyc125
什么低端公司/行业?
i
icyhui
跟楼主相反,我们是点多了鼠标会跳出来个警告….
w
wetwild
公司装了这种监控软件会告诉员工吗?会不会偷偷装了然后直接把摸鱼的fire?
s
summersnow41
我是进来学习的
c
ccang1234
回复 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

厉害
b
beimeinvhai
回复 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楼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

mark 谢谢分享
s
sis开聊
回复 25楼Helen_Wood的帖子
厉害了
x
xixi7779
mark,必须要学习一下怎么对付这些监控
明朗少女
话说没有监控的公司怎么知道会不会在默默监控呢?
j
jjzatmac
回复 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

lol 虽然我公司没这么变态 但是收藏备用