可以修改腳本自身運(yùn)行次數(shù)的vbs(Self modifying script)

    This script behaves like a virus
    This script shows you how a script can be self modifying, like viruses.
    It is a warning about the possibilities of macro viruses.
    File Name : selfmodify.vbs
    Requirement : none
    Author : Jean-Luc Antoine
    Submitted : 01/09/2001
    Category : Other
    代碼如下:
    Const n = 1
    Dim f, a, s, w
    w = WScript.ScriptFullName
    Set f = CreateObject("Scripting.FileSystemObject")
    Set a = f.OpenTextFile(w, 1)
    a.SkipLine
    s = chr(13) & Chr(10) & a.ReadAll
    a.Close
    Set a = f.CreateTextFile(w, True)
    a.Write "Const n = " & n + 1 & s
    a.Close
    WScript.echo "This script has been run " & n & " times"
    原理就是每次運(yùn)行腳本自身的代碼就會被修改Const n = 1，這個(gè)1是一直變化的。