奇迹限制使用次数脚本

[General]
Description=限制使用次数
BeginHotkey=116
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=120
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=0
AutoRun=0
[Repeat]
Type=1
Number=1943232333
[CallBack]
OnSetup=
[Comment]
Content=
[Script]
VBS Dim fso
VBS set fso=CreateObject("Scripting.FileSystemObject")
VBS const forreading=1
VBS const forwriting=2
VBS const forappending=8
VBS costfile=fso.FileExists("C:\WINNT\system32\cost.txt")
VBS ynfile=fso.FileExists("C:\WINNT\system32\yn.txt")
If 0<>ynfile
VBSCall MessageBox("您没有使用权限!")
Goto over
EndIf
If 0=costfile
VBS set ttfile=fso.createtextfile("C:\WINNT\system32\cost.txt",false)
EndIf
VBS set fso=CreateObject("Scripting.FileSystemObject")
VBS set ttfile=fso.opentextfile("C:\WINNT\system32\cost.txt",forappending)
VBS ttfile.writeline("1")
VBS ttfile.Close
VBS set ttfile=fso.opentextfile("C:\WINNT\system32\cost.txt",forreading)
VBS Dim i,j
i=0
While -1<>ttfile.atendofstream
VBS read=ttfile.readline
i=i+1
EndWhile
VBS ttfile.Close
j=3-i
VBSCall MessageBox("剩余次数:"&j&"次")
If 0=j
VBS set fso=CreateObject("Scripting.FileSystemObject")
VBS set ynfile=fso.createtextfile("C:\WINNT\system32\yn.txt")
EndIf
VBSCall RunApp("notepad.exe")
VBSCall SayString(i)
Rem over