如何实现可以修改脚本自身运行次数的vbs

如何实现可以修改脚本自身运行次数的vbs

小编给大家分享一下如何实现可以修改脚本自身运行次数的vbs,相信大部分人都还不怎么了解,因此分享这篇文章给大家参考一下,希望大家阅读完这篇文章后大有收获,下面让我们一起去了解一下吧!

代码如下:

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" 

原理就是每次运行脚本自身的代码就会被修改Const n = 1,这个1是一直变化的。

以上是“如何实现可以修改脚本自身运行次数的vbs”这篇文章的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注行业资讯频道!