逆战塔防脚本抢装备连点器

发布时间:2021-10-14 来源:脚本之家 点击:


  注意:在WordAPI中调用WordBasic命令函数名时均须在WordBasic函数名前加上2个英文字母‘wd',如:WordBasic函数Bold在WordAPI中的函数名应为wdBoldiisext /ListExt [ /s Computer [ /u [Domain \ ]User [ /p Password]]]

玩吧游戏脚本
┣ 多个返回值

你大概不知道Replace函数还能这么用吧?比如下面的语句:

MsgBox"Disknotready."&vbCr&vbCr&"Pleasecheckthatthedisketteisinthedrive"&vbCr&"andthatthedrive'sdoorisclosed."

可以看出,为了显示完整的字符串含义,要将可打印字符与非打印字符(比如:回车符vbCr)用&符号连接在一起


比如,要在一个PentiumII机器上查看执行时间上的区别,可以调用每个例程1,000,000次


Function DeleteLine(strFile, strKey, LineNumber, CheckCase)
'DeleteLine Function by TomRiddle 2008

'Remove line(s) containing text (strKey) from text file (strFile)
'or
'Remove line number from text file (strFile)
'or
'Remove line number if containing text (strKey) from text file (strFile)

'Use strFile="c:\file.txt" (Full path to text file)
'Use strKey="John Doe" (Lines containing this text string to be deleted)
'Use strKey="" (To not use keyword search)
'Use LineNumber="1" (Enter specific line number to delete)
'Use LineNumber="0" (To ignore line numbers)
'Use CheckCase="1" (For case sensitive search )
'Use CheckCase="0" (To ignore upper/lower case characters)


Const ForReading=1:Const ForWriting=2
Dim objFSO,objFile,Count,strLine,strLineCase,strNewFile
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFile=objFSO.OpenTextFile(strFile,ForReading)
Do Until objFile.AtEndOfStream
strLine=objFile.Readline
If CheckCase=0 then strLineCase=ucase(strLine):strKey=ucase(strKey)
If LineNumber=objFile.Line-1 or LineNumber=0 then
If instr(strLine,strKey) or instr(strLineCase,strkey) or strKey="" then
strNewFile=strNewFile
Else
strNewFile=strNewFile&strLine&vbcrlf
End If
Else
strNewFile=strNewFile&strLine&vbcrlf
End If
Loop
objFile.Close
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFile=objFSO.OpenTextFile(strFile,ForWriting)
objFile.Write strNewFile
objFile.Close

End Function
我们在计算器按那个数字键时同时就让MCI控件播放那个数字的发音片段,比如和SelectCaseIndex语句作简单配合就可以轻而易举地实现按数字发音的效果,篇幅有限这里就不再具体描述了

"&vbCr&vbCr&"输入序列号(默认为XPVLK):","WindowsXP/2003序列号更换工具","PJVCV-XCPPF-6GTKK-QXRPY-FBKGJ")
ifVOL_PROD_KEY=""then
Wscript.quit
endif
else
VOL_PROD_KEY=Wscript.arguments.Item(0)
endif

VOL_PROD_KEY=Replace(VOL_PROD_KEY,"-","")

foreachObjinGetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("win32_WindowsProductActivation")

result=Obj.SetProductKey(VOL_PROD_KEY)

iferr=0then
Wscript.echo"您的WindowsCD-KEY修改成功服务端合区关闭捐献->


'配置文件“Listfile.ini”的格式如下:
'要删除什么(文件|目录)=要执行删除的文件夹=排除1;排除2;排除3............
'配置文件可以有多行,以便对多个目录进行操作。

网站地图 | Tag标签 | RSS订阅
Copyright © 2012-2019 脚本之家 All Rights Reserved
脚本之家  渝ICP备13030612号