限制使用次数的脚本
  • 文件类型: .exe
  • 软件大小: MB
  • 软件类别: 国产软件
  • 软件语言: 简体中文
  • 授权方式: 共享软件
  • 运行环境: Win2003,WinXP,Win2000,Win9X
  • 官方网址: http://
  • 下载次数:
软件简介:
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
下载地址:
下载地址:
无链接信息!
☉推荐使用迅雷下载wuduy游戏技术网软件,使用 WinRAR v3.80 以上版本解压wuduy游戏技术网软件。
☉如果遇到任何问题,请到wuduy游戏技术网论坛去咨寻,我们将在那里提供更多更新的资源!
☉本站提供的一些商业软件是供学习研究之用,如用于商业用途,请购买正版。