当前位置 : 710Y奇迹_脚本下载_

限制使用次数的奇迹脚本

来源: 作者: 点击:
限制使用次数的奇迹脚本

[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
[顶部]
| 延伸阅读 |
  • 奇迹连击脚本1万连击
  • 奇迹连击脚本1万连击 [General] Description=1万连击 BeginHotkey=116 BeginHotkeyMod=0 PauseHotkey=0 PauseHotkeyMod=0 StopHotkey=123 StopHotkeyMod=0 RunOnc...
  • 龙少1.02Q奇迹mu战士2000点敏捷/连击脚本
  • 龙少1.02Q奇迹战士2000点敏捷/连击脚本 下载地址:https://pan.baidu.com/s/1sKB8RF1cB1_UxnBmeveSpQ...
  • 限制使用次数的奇迹脚本
  • 限制使用次数的奇迹脚本 [General] Description=限制使用次数 BeginHotkey=116 BeginHotkeyMod=0 PauseHotkey=0 PauseHotkeyMod=0 StopHotkey=120 StopHotkeyMod=...
  • 奇迹智力MM挂机脚本
  •   奇迹智力MM挂机脚本 下载地址:https://pan.baidu.com/s/1yZebztKtTWtM3XAJ2nfFaA...
  • 教你如何制作一个适合自己的好奇迹mu脚本
  • 1.首先是制作工具的选择 目前比较流行的有脚本大师与按键精灵2种 各有千秋 脚本大师调时间容易可以直接过风 按键的连击速度快一点 如果你是新手那我推荐使用脚本大师 2....