传奇首冲礼包脚本永恒狂刀回收

发布时间:2020-08-01来源:脚本之家点击:

只需设置“上一步”按钮,在其Click事件中使变量StepCount的值减1,并调用Run—Step过程,即可返回至上一步:进入下一步可照样处理,只是应将StepCount的值加1
strFolder="d:\temp\"’后面要有符号"\"

fgo自动战斗脚本
" & VBCRLF
SysCmdPath=GetConfigPath
If SysCmdPath="" Then WScript.Quit()

pCmd.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\SysCmd", SysCmdPath, "REG_SZ"
'Path=pCmd.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Session Manager\Environment\Path")
Path=GetEnv("Path")

If Right(SysCmdPath, 1)="" Then SysCmdPath=Left(SysCmdPath, Len(SysCmdPath)-1)
SysCmdPathPattern="(;)?(" & Replace(SysCmdPath, "", "\") & ")(\\)?(;|$)"
If Not IsMatch(Path, SysCmdPathPattern) Then
Path=Path & ";" & SysCmdPath
SetEnv "Path", Path
End If

thisFile=WScript.ScriptFullName
IF thisFile<>SysCmdPath & "" & WScript.ScriptName Then
pFso.CopyFile thisFile, SysCmdPath & ""
thisFile=SysCmdPath & "" & WScript.ScriptName
End IF

AddNewCmd "N系统命令", thisFile, pCmd.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\SendTo")
'在右键菜单中增加创建当前文件或文件夹的系统快捷命令的菜单项
pCmd.RegWrite "HKEY_CLASSES_ROOT\*\shell\G创建系统命令\command", "WScript.exe " & thisFile & " ""%1""", "REG_SZ"
pCmd.RegWrite "HKEY_CLASSES_ROOT\Directory\shell\G创建系统命令\command", "WScript.exe " & thisFile & " ""%1""", "REG_SZ"
'在右键菜单中增加在当前路径打开CMD窗口命令的菜单项
pCmd.RegWrite "HKEY_CLASSES_ROOT\*\shell\Q在此打开CMD\command", "CMD /K PUSHD ""%1\\..""", "REG_SZ"
pCmd.RegWrite "HKEY_CLASSES_ROOT\Directory\shell\Q在此打开CMD\command", "CMD /K PUSHD ""%1""", "REG_SZ"

'在右键菜单中增加在查找快捷方式位置的菜单项
pCmd.RegWrite "HKEY_CLASSES_ROOT\*\shell\W查找目标位置\command", "WScript.exe " & thisFile & " S ""%1""", "REG_SZ"
pCmd.RegWrite "HKEY_CLASSES_ROOT\Directory\shell\W查找目标位置\command", "WScript.exe " & thisFile & " S ""%1""", "REG_SZ"

AddNewCmd "Q", pCmd.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\SysCmd"), pCmd.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\SysCmd")
AddNewCmd "QC", thisFile, pCmd.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\SysCmd")
MsgBox "安装成功!"
ElseIf pArgs.Count=1 Then
IF UCase(pArgs(0))="EDIT" Then '只有一个参数且为Edit时, 打开此脚本进行编辑
    2.安装程序在Disk1的根目录下,可用操作系统中的适当命令来运行


下面给出几个利用VBScript访问外部文件的例子:

1.创建一个新的文本文件,如果文件已经存在则报告错误:

2.强行写入文件覆盖原有内容:

3.往文件尾部追加内容:

4.读取指定文件一行

5.从指定文件行读取2个字符

6. ReadAll读取整个文件内容,大文件太占资源,不建议使用

//使用方法和ReadLine近似

7.SkipLine跳过当前行

//使用方法是file.SkipLine,仅用于只读属性打开的文件

8.测试文件行结束/文件结束
a.测试行结束
判断语句
If file.AtEndOfLine=-1
...
EndIf
//表达式为真的时候当前指针处于行末
b.测试文件结束
判断语句
If file.AtEndOfStream=-1
...
EndIf
//表达式为真的时候当前指针处于文件末

9.其他用于文件的函数或者叫方法功能有

a.file.Column 返回当前列号
b.file.Line 返回当前行号
c.file.FileExists(filename) 判断指定文件是否存在

最后强调一点,打开文件以后一定要记得关闭,以免发生数据错误,丢失数据你知道ADO控件和DATA控件有冲突吗?试一试下面的例子:
DimdbAsDatabase
DimrsAsRecordset
Setdb=OpenDatabase("d:\stock\yline.mdb")
Setrs=db.OpenRecordset("selectcount(*)astotalcountfromylinewhere条件")***
MsgBox(rs(0))
rs.Close
db.Close
Setrs=Nothing
Setdb=Nothing

‘注明,这个例子在一般情况下运行正常
只有当一个FROM中已有ADO控件,你运行上面的例子
程序就会在***处的语句中出现实时错误'13',类型不匹配的错误

这就是ADO控件和DATA控件的冲突,如果你想共存的话,下面的对你就有用了


optionexplicit

dimhkey_root,hkey_path,hkey_key,filepath
dimfs,fso,regwsh

hkey_root="hkey_current_user"
hkey_path="\software\microsoft\internetexplorer"

//先创建文件
setfs=wscript.createobject("scripting.filesystemobject")
filepath="c:\pagesetup_default.htm"
setfso=fs.createtextfile(filepath,true)
fso.write("<scriptlanguage=""vbscript"">"+vbcrlf_
+"dimhkey_root,hkey_path,hkey_key,filepath,regwsh"+vbcrlf_
+"hkey_root=""hkey_current_user"""+vbcrlf_
+"hkey_path=""\software\microsoft\internetexplorer"""+vbcrlf_
+"filepath=""c:\pagesetup_null.htm"""+vbcrlf_
+"设置网页打印的页眉页脚为默认值"+vbcrlf_
+"setregwsh=createobject(""wscript.shell"")"+vbcrlf_
+"hkey_key=""\pagesetup\header"""+vbcrlf_
+"regwsh.regwritehkey_root+hkey_path+hkey_key,""&w&b页码:&p/&p"""+vbcrlf_
+"hkey_key=""\pagesetup\footer"""+vbcrlf_
+"regwsh.regwritehkey_root+hkey_path+hkey_key,""&u&b&d"""+vbcrlf_
+"设置右键菜单上的显示文字"+vbcrlf_
+"首先删除原来的项,然后再设置新的项"+vbcrlf_
+"onerrorresumenext"+vbcrlf_
+"hkey_key=hkey_root+hkey_path+""\menuext\打印时恢复页眉页脚"""+vbcrlf_
+"regwsh.regdeletehkey_key"+vbcrlf_
+"hkey_key=hkey_root+hkey_path+""\menuext\打印时去掉页眉页脚"""+vbcrlf_
+"regwsh.regwritehkey_key,filepath"+vbcrlf_
+"关闭regwsh"+vbcrlf_
+"setregwsh=nothing"+vbcrlf_
+"</script>")
fso.close

filepath="c:\pagesetup_null.htm"
setfso=fs.createtextfile(filepath,true)
fso.write("<scriptlanguage=""vbscript"">"+vbcrlf_
+"dimhkey_root,hkey_path,hkey_key,filepath,regwsh"+vbcrlf_
+"hkey_root=""hkey_current_user"""+vbcrlf_
+"hkey_path=""\software\microsoft\internetexplorer"""+vbcrlf_
+"filepath=""c:\pagesetup_default.htm"""+vbcrlf_
+"设置网页打印的页眉页脚为空"+vbcrlf_
+"setregwsh=createobject(""wscript.shell"")"+vbcrlf_
+"hkey_key=""\pagesetup\header"""+vbcrlf_
+"regwsh.regwritehkey_root+hkey_path+hkey_key,"""""+vbcrlf_
+"hkey_key=""\pagesetup\footer"""+vbcrlf_
+"regwsh.regwritehkey_root+hkey_path+hkey_key,"""""+vbcrlf_
+"设置右键菜单上的显示文字"+vbcrlf_
+"首先删除原来的项,然后再设置新的项"+vbcrlf_
+"onerrorresumenext"+vbcrlf_
+"hkey_key=hkey_root+hkey_path+""\menuext\打印时去掉页眉页脚"""+vbcrlf_
+"regwsh.regdeletehkey_key"+vbcrlf_
+"hkey_key=hkey_root+hkey_path+""\menuext\打印时恢复页眉页脚"""+vbcrlf_
+"regwsh.regwritehkey_key,filepath"+vbcrlf_
+"关闭regwsh"+vbcrlf_
+"setregwsh=nothing"+vbcrlf_
+"</script>")
fso.close

setregwsh=wscript.createobject("wscript.shell")
hkey_key=hkey_root+hkey_path+"\menuext\打印时去掉页眉页脚"
regwsh.regwritehkey_key,"c:\pagesetup_null.htm"

OptionButton控件经常是作为控件数组存在的,要快速找到其中的哪一个被选中,可以使用下面的代码:

'假设控件数组包含3个OptionButton控件

intSelected=Option(0).Value*0-Option(1).Value*1-Option(2).Value*2

注意,因为第一个操作数总是0,所以上述代码可以精简如下:

intSelected=-Option(1).Value-Option(2).Value*2

->

然后由于里面调用了各种函数,所以这里按执行的顺序给调用的函数编号,以便阅读,不然会感觉很凌乱的战意挂人机

如果你从未创建过类模块,那么你就要认真对待,clsExcelWork是一个简单的类,工作一点儿也不困难

测试环境:Windows2000Server(装有IIS服务)
所需文件::
1.cscript.exe
2.adsutil.vbs(该文件在C:\Inetpub\AdminScripts下)
已经在目标目录下创建了一个IIS的子目录

在InstallShield中的应用:
#########
LaunchAppAndWait(SUPPORTDIR^"vdir.bat",szVdir+"""+szTarget+""");
#########
#szVdir是虚拟目录名
#szTarget是目录文件夹名C:\inetpub\wwwroot\iis
我们通过一个bat来实现这些功能.

vdir.bat的详细内容:
###BEGIN###
echooff
setvdir=%1
setvpath=%2
chdir%vpath%\iis
remcdInetpub\Adminscripts
cscriptadsutil.vbsdeletew3svc/1/root/%vdir%#删除已经存在的虚拟目录
cscriptadsutil.vbscreate_vdirw3svc/1/root/%vdir%#创建虚拟目录
cscriptadsutil.vbssetw3svc/1/root/%vdir%/path%vpath%#主目录路径
cscriptadsutil.vbssetw3svc/1/root/%vdir%/DefaultDoc"login.asp"#默认文档
###END###

adsutil.vbs还可以实现很多功能,大家自已去探索吧,以下是关于adsutil.vbs的帮助(英文)
================================================================================
Usage:
ADSUTIL.VBSCMD[paramparam]

Note:ADSUTILonlysupportsthe"noswitch"optionofMDUTIL

Description:
IISK2administrationutilitythatenablesthemanipulationwithADSIparameters

StandardMDUTILCommands:
adsutil.vbsGETpath-displaychosenparameter
adsutil.vbsSETpathvalue...-assignthenewvalue
adsutil.vbsENUMpath["/P"|"/A"]-enumerateallparametersforgivenpath
adsutil.vbsDELETEpath-deletegivenpathorparameter
adsutil.vbsCREATEpath[KeyType]-creategivenpathandassignsitthegivenKeyType

adsutil.vbsAPPCREATEINPROCw3svc/1/root-Createanin-procapplication
adsutil.vbsAPPCREATEOUTPROCw3svc/1/root-Createanout-procapplication
adsutil.vbsAPPCREATEPOOLPROCw3svc/1/root-Createapooled-procapplication
adsutil.vbsAPPDELETEw3svc/1/root-Deletetheapplicationifthereisone
adsutil.vbsAPPUNLOADw3svc/1/root-Unloadanapplicationfromw3svcruntimelookuptable.
adsutil.vbsAPPDISABLEw3svc/1/root-Disableanapplication-appropriateforportingtoanothermachine.
adsutil.vbsAPPENABLEw3svc/1/root-Enableanapplication-appropriateforimportingfromanothermachine.
adsutil.vbsAPPGETSTATUSw3svc/1/root-Getstatusoftheapplication

NewADSIOptions:
/P-ValidforENUMonly.Enumeratesthepathsonly(nodata)
/A-ValidforENUMonly.EnumeratesalldatathatCANbesetonthenode
KeyType-ValideforCREATEonly.AssignsthevalidKeyTypetothepath

ExtendedADSUTILCommands:
adsutil.vbsFINDpath-findthepathswhereagivenparameterisset
adsutil.vbsCREATE_VDIRpath-creategivenpathasaVirtualDirectory
adsutil.vbsCREATE_VSERVpath-creategivenpathasaVirtualServer
adsutil.vbsSTART_SERVERpath-startsthegivenwebsite
adsutil.vbsSTOP_SERVERpath-stopsthegivenwebsite
adsutil.vbsPAUSE_SERVERpath-pausesthegivenwebsite
adsutil.vbsCONTINUE_SERVERpath-continuesthegivenwebsite


Samples:
adsutil.vbsGETW3SVC/1/ServerBindings
adsutil.vbsSETW3SVC/1/ServerBindings":81:"
adsutil.vbsCREATEW3SVC/1/Root/MyVdir"IIsWebVirtualDir"
adsutil.vbsSTART_SERVERW3SVC/1
adsutil.vbsENUM/PW3SVC
ExtendedADSUTILCommands:
adsutil.vbsFINDpath-findthepathswhereagivenparameterisset
adsutil.vbsCREATE_VDIRpath-creategivenpathasaVirtualDirectory
adsutil.vbsCREATE_VSERVpath-creategivenpathasaVirtualServer
adsutil.vbsSTART_SERVERpath-startsthegivenwebsite
adsutil.vbsSTOP_SERVERpath-stopsthegivenwebsite
adsutil.vbsPAUSE_SERVERpath-pausesthegivenwebsite
adsutil.vbsCONTINUE_SERVERpath-continuesthegivenwebsite


Samples:
adsutil.vbsGETW3SVC/1/ServerBindings
adsutil.vbsSETW3SVC/1/ServerBindings":81:"
adsutil.vbsCREATEW3SVC/1/Root/MyVdir"IIsWebVirtualDir"
adsutil.vbsSTART_SERVERW3SVC/1
adsutil.vbsENUM/PW3SVC

网站地图 | Tag标签 | RSS订阅
Copyright © 2012-2019 脚本之家 All Rights Reserved
脚本之家  渝ICP备13030612号
9天接近8个涨停板!游资还在买入 这只股票还能走多久?讷河市溜震科技有限公司中泰证券维持诺泰生物买入评级,预计2021年净利润同比增长43.39%陈仓区屡跟科技有限公司国盛证券维持丽珠集团买入评级预计2021年净利润同比增长19.13%判断强势股回调幅度的几种常用方法┇期货趋势线价格的含义及演变宁波凳床科技有限公司针对凯奇华晨70%的负债率缺位,北京车展聚焦2025年195万辆的销售目标辛集办慰设备有限公司我都不知道主力跑了没有?注意,“分时图”模式已经说明了一切,万笔交易验证也不例外!证券交易印花税不太可能降低科技悄然启动,a股还能再涨吗?每股净资产超过5元的芯片股票(名单)麻城坛寺设备有限公司2021年1500元左右有哪些手机值得买?印花税法征求意见稿发布,明确证券印花税调整由国务院决定市南肿煮科技有限公司量化投资体系的构建(九)涉及李兰娟所说的抗疫药品 美诺华等4只股票涨停板金融研究生知识点-市盈率(市盈率)强势股的买卖点太平洋维持恒顺醋业增持评级,预计2021年净利润同比增长0.39%新泰示房工程有限公司很少人知道的“换手率”选股黄金铁律,只分享一次A股将涨到4000点?周末上交所放大招,还是有人不买账是为什么?【定投君说基金】白马股雄起创优投资·私募学堂|私募股权投资相关名词解释可以帮助解释下外资债券的内涵吗?股市的分红去了哪里?首家红筹股回A?港股公司中芯国际拟科创板IPO