发帖
查看:41209|回复:103
When you buy via links in posts, huaren.us may earn a commission
Advertisement

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

头像
0操作41 #
头像
41 #
0
22-05-17 08:24操作
只看TAAA分享

我也有这个情况。去撒泡尿的时间就给我lock screen断vpn.


我有个arduino做的假鼠标,插上模拟鼠标在动。不过那个软件比较智能,能识别这个。

头像
0操作42 #
头像
42 #
0
22-05-17 08:26操作
只看TAAA分享

尽量假装忙。对付这种公司只能这么干

Advertisement
头像
0操作43 #
头像
43 #
0
22-05-17 08:29操作
只看TAAA分享
回复 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

头像
0操作44 #
头像
44 #
0
22-05-17 08:31操作
只看TAAA分享
回复 25楼Helen_Wood的帖子

今天要试一试

头像
0操作45 #
头像
45 #
0
22-05-17 08:35操作
只看TAAA分享
回复 25楼Helen_Wood的帖子

会不会被公司it发现啊

Advertisement
头像
1操作46 #
头像
46 #
1
22-05-17 08:38操作
只看TAAA分享

用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.




头像
0操作47 #
头像
47 #
0
22-05-17 08:41操作
只看TAAA分享

我读PDF时候做了实验,手工移动鼠标都不行,必须有点击的动作(click)。


Grace302 发表于 2022-05-16 22:18

楼主的意思怎样算在工作和当前正在使用的应用软件有关


那如果没打开任何应用软件,就在desktop上移动鼠标有效吗?

头像
0操作48 #
头像
48 #
0
22-05-17 08:49操作
只看TAAA分享

会不会fully remote以后公司都开始这么变态了?

头像
0操作49 #
头像
49 #
0
22-05-17 08:55操作
只看TAAA分享
回复 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在线了?

头像
0操作50 #
头像
50 #
0
22-05-17 09:13操作
只看TAAA分享
回复 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

这个如果被发现了是不是会很麻烦? 证据确凿地做假。

Advertisement
头像
0操作51 #
头像
51 #
0
22-05-17 09:14操作
只看TAAA分享
回复 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

爱你!

头像
0操作52 #
头像
52 #
0
22-05-17 09:15操作
只看TAAA分享
歪个楼问一下家里有什么软件可以监视teenage用电脑
头像
0操作53 #
头像
53 #
0
22-05-17 09:19操作
只看TAAA分享

买个小玩具, 不时按一下ctrl 键盘或者空格键

头像
0操作54 #
头像
54 #
0
22-05-17 09:34操作
只看TAAA分享

六分钟,变态公司啊

头像
0操作55 #
头像
55 #
0
22-05-17 09:47操作
只看TAAA分享
你挣的是salaries 不是wages吧。所以这个监视就是你的productivity的考核?
Advertisement
头像
0操作56 #
头像
56 #
0
22-05-17 10:09操作
只看TAAA分享

下个mousejigger软件,直接运行,或者打开ppt放presentation模式都行

头像
0操作57 #
头像
57 #
0
22-05-17 10:09操作
只看TAAA分享

以前版上说的空格大法?


头像
0操作58 #
头像
58 #
0
22-05-17 10:22操作
只看TAAA分享
歪个楼问一下家里有什么软件可以监视teenage用电脑
showmm 发表于 2022-05-17 09:15

只是看电脑屏幕么?

是的话, 建议remote utilities, 家用免费.

头像
0操作59 #
头像
59 #
0
22-05-17 10:47操作
只看TAAA分享
太有才了… 学习了…
头像
1操作60 #
头像
60 #
1
22-05-17 10:50操作
只看TAAA分享

推荐个Chrome插件:https://chrome.google.com/webstore/detail/keep-awake-display-system/apmicgkbejflkgeljipcebaoeigmangd?hl=en

不确定会不会被trace到,但是安装使用很方便

发帖回复
查看:41209|回复:103
Advertisement
打开收藏板块打开个人中心
边缘侧滑返回