初始值 = 1 //可改初始值
ini文件 = Plugin.File.IsFileExist("C:\脚本运行计数.ini") //判断文件是否存在
If ini文件 = True Then //目标文件存在
Text初始值 = CLng(Plugin.File.ReadINI("脚本运行", "初始值", "C:\脚本运行计数.ini"))
If Text初始值 = 初始值 Then
Text = CLng(Plugin.File.ReadINI("脚本运行", "次数", "C:\脚本运行计数.ini"))
运行次数 = Text + 1
Call Plugin.File.WriteINI("脚本运行", "次数", 运行次数, "C:\脚本运行计数.ini")
MessageBox "第 " & 运行次数 & " 次运行脚本"
Else //初始值以改变
Call Plugin.File.WriteINI("脚本运行", "初始值", 初始值, "C:\脚本运行计数.ini")
Call Plugin.File.WriteINI("脚本运行", "次数", 初始值, "C:\脚本运行计数.ini")
MessageBox "第 " & 初始值 & " 次运行脚本"
End If
Else //目标文件不存在
Call Plugin.File.WriteINI("脚本运行", "初始值", 初始值, "C:\脚本运行计数.ini")
Call Plugin.File.WriteINI("脚本运行", "次数", 初始值, "C:\脚本运行计数.ini")
MessageBox "第 " & 初始值 & " 次运行脚本"
End If
温馨提示:答案为网友推荐,仅供参考