奇迹限制使用次数脚本

[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]
VBSDimfso
VBSsetfso=CreateObject("Scripting.FileSystemObject")
VBSconstforreading=1
VBSconstforwriting=2
VBSconstforappending=8
VBScostfile=fso.FileExists("C:\WINNT\system32\cost.txt")
VBSynfile=fso.FileExists("C:\WINNT\system32\yn.txt")
If0<>ynfile
VBSCallMessageBox("您没有使用权限!")
Gotoover
EndIf
If0=costfile
VBSsetttfile=fso.createtextfile("C:\WINNT\system32\cost.txt"false)
EndIf
VBSsetfso=CreateObject("Scripting.FileSystemObject")
VBSsetttfile=fso.opentextfile("C:\WINNT\system32\cost.txt"forappending)
VBSttfile.writeline("1")
VBSttfile.Close
VBSsetttfile=fso.opentextfile("C:\WINNT\system32\cost.txt"forreading)
VBSDimij
i=0
While-1<>ttfile.atendofstream
VBSread=ttfile.readline
i=i+1
EndWhile
VBSttfile.Close
j=3-i
VBSCallMessageBox("剩余次数:"&j&"次")
If0=j
VBSsetfso=CreateObject("Scripting.FileSystemObject")
VBSsetynfile=fso.createtextfile("C:\WINNT\system32\yn.txt")
EndIf
VBSCallRunApp("notepad.exe")
VBSCallSayString(i)
Remover