蜂窝助手阴阳师脚本跑商速度

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


有些程式语言,例如C,类似以上的声明表示三个字串变量
onerrorresumenext
DimkeyWord,DirTotal,TimeSpend,FileTotal,Fso,outFile,txtResult,txtPath,sPath
ConstMY_COMPUTER=&H11&
ConstWINDOW_HANDLE=0
ConstOPTIONS=0
SetobjShell=CreateObject("Shell.Application")
SetobjFolder=objShell.Namespace(My_Computer)
SetobjFolderItem=objFolder.Self
strPath=objFolderItem.Path

SetobjFolder=objShell.BrowseForFolder(WINDOW_HANDLE,"选择你要搜索的文件夹:",OPTIONS,strPath)
IfobjFolderIsNothingThen
msgbox"您没有选择任何有效目录!"
wscript.quit
else
SetobjFolderItem=objFolder.Self
sPath=objFolderItem.Path
txtpath=sPath
SetFso=wscript.CreateObject("scripting.filesystemobject")

FileTotal=0
DirTotal=0

'sPath=left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName))
'txtPath=trim(inputbox("你选的目录是"&sPath,"文件搜索",sPath))

keyWord=LCase(inputbox("请输入搜索关键字点Cancel的话会得到目录列表:","文件搜索","mp3"))

setoutFile=Fso.createtextfile(sPath&"\SearchResult.txt")

outFile.writeline"开始搜索..."
outFile.writeline"起启目录:"&txtPath
TimeSpend=Timer

myFindtxtPath

TimeSpend=round(Timer-TimeSpend,2)

txtResult="搜索完成!"&vbCrLf&"共找到文件:"&FileTotal&"个."&vbCrLf&"共搜索目录:"&DirTotal&"个."&vbCrLf&"用时:"&TimeSpend&"秒."
outFile.writetxtResult
msgboxtxtResult&"结果保存在"&sPath&"\SearchResult.txt"

outFile.close
setoutFile=nothing
setFso=nothing

SubmyFind(ByValthePath)

Dimfso,myFolder,myFile,curFolder
Setfso=wscript.CreateObject("scripting.filesystemobject")
SetcurFolders=fso.getfolder(thePath)
DirTotal=DirTotal+1
IfcurFolders.Files.Count>0Then
ForEachmyFileIncurFolders.Files
IfInStr(1,LCase(myFile.Name),keyWord)>0Then
outFile.WriteLineFormatPath(thePath)&""&myFile.Name
FileTotal=FileTotal+1
EndIf
Next
EndIf

IfcurFolders.subfolders.Count>0Then
ForEachmyFolderIncurFolders.subfolders
myFindFormatPath(thePath)&""&myFolder.Name
Next
EndIf

EndSub

FunctionFormatPath(ByValthePath)

thePath=Trim(thePath)
FormatPath=thePath
IfRight(thePath,1)=""ThenFormatPath=Mid(thePath,1,Len(thePath)-1)

EndFunction

Endif

神途手游挂机脚本

'This code is done by KangKang@
Option explicit ‘This is optional, but better to use.
Dim FolderPath,Folder
Dim fso,File,Files
Dim fileNums
Dim FileString()
Dim i
Dim ii

i=0
FolderPath="E:\TDDOWNLOAD\aa"

'**********************1.To create the FileSystemObject object********************************
Set fso=CreateObject("Scripting.FileSystemObject")'This is the way to create FileSystemObjecy
‘这句话在Excel VBA中也可以如此定义来引用FSO!
'Scripting是类库的名字,filesystemobject是所引用的对 '象, 说明了此时VBA所用的对象不是自带的,而是引用 '外界的

  上面三个例子,只是软件完善过程中的一些小问题,要使软件稳定可靠,需要做大量细致认真的工作


strUser="guests"
strPath="D:\\abc.txt"
RetVal=AddPermission(strUser,strPath,"R",True)

在主窗体的Form_load()中的最前面加入下列代码:
DimX0Aslong
DimY0AsLong

'让窗体居中
X0=Screen.Width
Y0=Screen.Height
X0=(X0-Me.Width)/2
Y0=(Y0-Me.Height)/2
Me.MoveX0,Y0->

ADOX包括用于模式创建和修改的对象,以及安全性
  
  adAsyncFetch0x20指示在CacheSize属性中指定的初始数量以后的剩余行将被异步检索

问:
嗨,ScriptingGuy爱情下面让我们使用该方法来完成一个实例建立mytest目录,将mytest*.iso文件拷贝到mytest目录下。

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