回到首页
当前位置:奇迹技术>>限制使用次数的脚本
限制使用次数的脚本
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奇迹
VBSDimi,j
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
(原创文章,如需转载,请注明,来自:免费好奇迹技术,第一奇迹网1vzz.com)