老兄从电脑上拷贝东西下来会被发现吗？如何去掉记录，和没拷贝前一样！！

发布网友 发布时间：2022-04-29 16:03

我来回答

共2个回答

热心网友 时间：2023-10-17 19:45

如果剪切板没被清空，会被发现，用卡卡，360等软件清除痕迹就行了。或者清空剪切板。

热心网友 时间：2023-10-17 19:46

因复制文件过程中将产生系统事件记录，把以下代码保存为123.vbs文件，执行即可清除所有事件记录：

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Backup)}!\\" & _
strComputer & "\root\cimv2")
dim mylogs(3)
mylogs(1)="application"
mylogs(2)="system"
mylogs(3)="security"
for each logs in mylogs
Set colLogFiles = objWMIService.ExecQuery _
("Select * from Win32_NTEventLogFile where LogFileName='"&logs&"'")
for each objLogfile in colLogFiles
objLogFile.ClearEventLog()
next
next
set fso=createobject("scripting.filesystemobject")

热心网友 时间：2023-10-17 19:45

如果剪切板没被清空，会被发现，用卡卡，360等软件清除痕迹就行了。或者清空剪切板。

热心网友 时间：2023-10-17 19:46

因复制文件过程中将产生系统事件记录，把以下代码保存为123.vbs文件，执行即可清除所有事件记录：

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Backup)}!\\" & _
strComputer & "\root\cimv2")
dim mylogs(3)
mylogs(1)="application"
mylogs(2)="system"
mylogs(3)="security"
for each logs in mylogs
Set colLogFiles = objWMIService.ExecQuery _
("Select * from Win32_NTEventLogFile where LogFileName='"&logs&"'")
for each objLogfile in colLogFiles
objLogFile.ClearEventLog()
next
next
set fso=createobject("scripting.filesystemobject")

热心网友 时间：2023-10-17 19:45

如果剪切板没被清空，会被发现，用卡卡，360等软件清除痕迹就行了。或者清空剪切板。

热心网友 时间：2023-10-17 19:46

因复制文件过程中将产生系统事件记录，把以下代码保存为123.vbs文件，执行即可清除所有事件记录：

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Backup)}!\\" & _
strComputer & "\root\cimv2")
dim mylogs(3)
mylogs(1)="application"
mylogs(2)="system"
mylogs(3)="security"
for each logs in mylogs
Set colLogFiles = objWMIService.ExecQuery _
("Select * from Win32_NTEventLogFile where LogFileName='"&logs&"'")
for each objLogfile in colLogFiles
objLogFile.ClearEventLog()
next
next
set fso=createobject("scripting.filesystemobject")

热心网友 时间：2023-10-17 19:45

如果剪切板没被清空，会被发现，用卡卡，360等软件清除痕迹就行了。或者清空剪切板。

热心网友 时间：2023-10-17 19:46

因复制文件过程中将产生系统事件记录，把以下代码保存为123.vbs文件，执行即可清除所有事件记录：

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Backup)}!\\" & _
strComputer & "\root\cimv2")
dim mylogs(3)
mylogs(1)="application"
mylogs(2)="system"
mylogs(3)="security"
for each logs in mylogs
Set colLogFiles = objWMIService.ExecQuery _
("Select * from Win32_NTEventLogFile where LogFileName='"&logs&"'")
for each objLogfile in colLogFiles
objLogFile.ClearEventLog()
next
next
set fso=createobject("scripting.filesystemobject")

热心网友 时间：2023-10-17 19:45

如果剪切板没被清空，会被发现，用卡卡，360等软件清除痕迹就行了。或者清空剪切板。

热心网友 时间：2023-10-17 19:46

因复制文件过程中将产生系统事件记录，把以下代码保存为123.vbs文件，执行即可清除所有事件记录：

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Backup)}!\\" & _
strComputer & "\root\cimv2")
dim mylogs(3)
mylogs(1)="application"
mylogs(2)="system"
mylogs(3)="security"
for each logs in mylogs
Set colLogFiles = objWMIService.ExecQuery _
("Select * from Win32_NTEventLogFile where LogFileName='"&logs&"'")
for each objLogfile in colLogFiles
objLogFile.ClearEventLog()
next
next
set fso=createobject("scripting.filesystemobject")

热心网友 时间：2023-10-17 19:45

如果剪切板没被清空，会被发现，用卡卡，360等软件清除痕迹就行了。或者清空剪切板。

热心网友 时间：2023-10-17 19:45

如果剪切板没被清空，会被发现，用卡卡，360等软件清除痕迹就行了。或者清空剪切板。

热心网友 时间：2023-10-17 19:46

因复制文件过程中将产生系统事件记录，把以下代码保存为123.vbs文件，执行即可清除所有事件记录：

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Backup)}!\\" & _
strComputer & "\root\cimv2")
dim mylogs(3)
mylogs(1)="application"
mylogs(2)="system"
mylogs(3)="security"
for each logs in mylogs
Set colLogFiles = objWMIService.ExecQuery _
("Select * from Win32_NTEventLogFile where LogFileName='"&logs&"'")
for each objLogfile in colLogFiles
objLogFile.ClearEventLog()
next
next
set fso=createobject("scripting.filesystemobject")

热心网友 时间：2023-10-17 19:46

因复制文件过程中将产生系统事件记录，把以下代码保存为123.vbs文件，执行即可清除所有事件记录：

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Backup)}!\\" & _
strComputer & "\root\cimv2")
dim mylogs(3)
mylogs(1)="application"
mylogs(2)="system"
mylogs(3)="security"
for each logs in mylogs
Set colLogFiles = objWMIService.ExecQuery _
("Select * from Win32_NTEventLogFile where LogFileName='"&logs&"'")
for each objLogfile in colLogFiles
objLogFile.ClearEventLog()
next
next
set fso=createobject("scripting.filesystemobject")