被公司电脑上变态的监控软件（sapience buddy）气疯了，求支招-第5页

vwot

0操作81 ^#

什么公司？

wavelll

0操作82 ^#

弄个test script的软件，做几个dummy test run, 拖到旁边屏幕上，自己玩去

只为吐槽

0操作83 ^#

什么鬼公司，无语

苏醒的夏天

0操作84 ^#

回复 25楼Helen_Wood的帖子

这个好厉害，但同意前面说的，快跳槽。

545f

0操作85 ^#

印度人的公司吧

Brandypurple

0操作86 ^#

什么破公司，跳吧，现在到处都缺人。

dukenyc125

0操作87 ^#

什么低端公司/行业？

icyhui

0操作88 ^#

跟楼主相反，我们是点多了鼠标会跳出来个警告….

wetwild

0操作89 ^#

公司装了这种监控软件会告诉员工吗？会不会偷偷装了然后直接把摸鱼的fire?

summersnow41

0操作90 ^#

我是进来学习的

ccang1234

0操作91 ^#

回复 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

厉害

beimeinvhai

0操作92 ^#

回复 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操作93 ^#

回复 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

谢谢分享

sis开聊

0操作94 ^#

回复 25楼Helen_Wood的帖子

厉害了

xixi7779

0操作95 ^#

mark，必须要学习一下怎么对付这些监控

明朗少女

0操作96 ^#

话说没有监控的公司怎么知道会不会在默默监控呢？

jjzatmac

0操作97 ^#

回复 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 虽然我公司没这么变态但是收藏备用

蓝色辉光

0操作98 ^#

ebay 有卖的，防sleep鼠标。在ebay里面搜：mouse jiggler

这些会移动的，但是不知道会不会click（比如clock右键？），可能得再找找？

lavendula

0操作99 ^#

有用的帖子需要留名一下

Grace302

0操作100 ^#

话说没有监控的公司怎么知道会不会在默默监控呢？

明朗少女发表于 2022-05-18 09:39

co-ask