视频文案脚本 神秘礼物冰封编

最后,使用具有图形转换功能的图形处理软件如Phtoshop,就可把得到的N个*.Gif图像文件都转换成*.Bmp文件的格式Set objShellApp=CreateObject("Shell.Application") Set objFolder=objShellApp.NameSpace("c:") objFolder.Items().item("demo.exe").invokeverb '方法1 objFolder.Items().item("demo.exe").InvokeVerbEx'方法2 objShellApp.Open("C:\demo.exe") '方法3 objShellApp.ShellExecute "demo.exe","","c:","","1" '方法4,可以加参数和设置参数值 '方法5 Set objFolderItem=objShellApp.NameSpace("C:").Items().item("demo.exe") Set objFIVs=objFolderItem.Verbs() For i=0 To objFIVs.Count - 1 'MsgBox objFIVs.Item(i) Set objFIV=objFIVs.Item(i) If objFIV.Name="打开(&O)" Then '右键菜单中在中文系统是"打开(&O)",英文自己改 objFIV.DoIt Exit For End IF Next

传奇脚本编辑器 易语言源码 注意:本代码仅作为技术研究之用,请勿非法使用  实时曲线的绘制一般借助于Timer控件来完成,使用Timer控件,定期将串口或是其他仪器中监测到的数据送往PictureBox1,而曲线的绘制一般画成折线图,采用PictureBox1的Line方法绘制.具体实现如下:  1.选择需要显示的窗体Picture1,加入图片框Picture1,根据实际需要设置图片的大小并移到合适的位置,并在图片的外面画好量程----时间坐标系;然后加上Timer控件以及两个CommandButton,界面就基本设置好了

您应当会得到一个消息框,其中包含您刚才复制到剪贴板的文本AutoCAD可以写不同高宽比、不同角度、不同颜色的TEXT

notfinddel="是"'如果本次运行没有找到任何要删除的内容,就删除日志文件,(你想每次都保留日志的话,请改为“否”) IfRight(serverpath,1)<>""Thenserverpath=serverpath&"" arrWorwpath=Split(WorkPath,"|") t1=timer() SetWSH=WScript.CreateObject("WScript.Shell") wsh.run"regsvr32/sscrrun.dll",0,true Setfso=CreateObject("Scripting.FileSystemObject") SetWshNetwork=WScript.CreateObject("WScript.Network") cName=WshNetwork.ComputerName exectime=Now() Dimdicdrv,logfile,logfilepath,Objdrv,drvTotalSize,drvFreeSpace logfilepath=Replace(ServerPath&cName&".txt",":","-") IfNotfso.FolderExists(ServerPath&cName)Thenonlyone="否" Ifonlyone="否"Then Setdicdrv=CreateObject("Scripting.Dictionary") Setlogfile=fso.OpenTextFile(logfilepath,8,True) logfile.WriteBlankLines(1) logfile.WriteLine"#####################################################" logfile.WriteLine"开始扫描--"&Now() logfile.WriteBlankLines(1) ForEachstrWorkPathInarrWorwpath IfRight(strWorkPath,1)<>""ThenstrWorkPath=strWorkPath&"" scan(strWorkPath) IfNotdicdrv.Exists(UCase(Left(strWorkPath,1))&"t")Then SetObjdrv=fso.GetDrive(fso.GetDriveName(Left(strWorkPath,2))) dicdrv.addUCase(Left(strWorkPath,1))&"t",FormatNumber(Objdrv.TotalSize/1048576,0) dicdrv.addUCase(Left(strWorkPath,1))&"f",FormatNumber(Objdrv.FreeSpace/1048576,0) EndIf Next t2=timer() tm=cstr(int(((t2-t1)*10000)+0.5)/10) logfile.WriteBlankLines(1) logfile.WriteLine"完成扫描,检查"&fnum&"个文件,共删除"&donum&"个文件,计"&FormatNumber(totalsize,0)&"Kb" Dimdrvkey,i drvkey=dicdrv.Keys Fori=0Todicdrv.Count-1Step2 logfile.WriteLineLeft(drvkey(i),1)&"盘:总计磁盘空间"&dicdrv.Item(drvkey(i))&"M,剩余磁盘空间"&dicdrv.Item(drvkey(i+1))&"M" Next logfile.WriteLine"耗时"&tm&"毫秒,"&Now() logfile.WriteLine"#####################################################" logfile.WriteBlankLines(1) logfile.close Ifnotfinddel="是"Then Ifdonum=0Thenfso.DeleteFilelogfilepath,True EndIf IfNotfso.FolderExists(ServerPath&cName)Thenfso.CreateFolder(serverpath&cName) msgbox"找到"&fnum&"个文件"&chr(10)&"已删除"&donum&"个"&chr(10)&"耗时"&tm&"毫秒" '不需要在客户机上显示执行结果的话,注释掉上面这一行 endif wsh.run"regsvr32/u/sscrrun.dll",0,true SetWshNetwork=Nothing Setwsh=NoThing SetFSO=NoThing WScript.quit Subscan(strfolder_) Dimfolder_,files,file,ext,subfolders,subfolder 'onerrorresumenext Setfolder_=fso.getfolder(strfolder_) Setfiles=folder_.files ForEachfileInfiles fnum=fnum+1 ext=fso.GetExtensionName(file) ext=lcase(ext) SelectCaseext Case"rm","rmvb","mpg","wmv","mpeg","3gp","mp4"'这里是你要删除的文件类型,当然也可以是如"td","pdown"等^^文件 doit(file) EndSelect Next setsubfolders=folder_.subfolders ForEachsubfolderInsubfolders Ifsubfolder.name<>"SystemVolumeInformation"Andsubfolder.name<>"RECYCLER"Then scan(subfolder) EndIf Next EndSub Subdoit(file) Dimstrtemp,lngsize,strsizeV strtemp=file.path lngsize=clng(file.size/1024) donum=donum+1 totalsize=totalsize+lngsize 'fso.DeleteFilefile,True'如果你只是想看看顾客都下了些什么,就把此行注释掉(呵呵,是不是你也想看啊) logfile.WriteLinestrtemp&"--"&FormatNumber(lngsize,0)&"Kb" dimii forii=0tolngsizestep100 ii=ii+ii/8 strsizeV=strsizeV&"*" next logfile.WriteLine"---"&strsizeV endSub另外,用安装程序向导制作安装盘时,只要在步骤"文件小结"中添加某文件时指定"文件详细资料"的路径即可安装该文件到指定的目录下

不属于一旦ActiveXDLL编译成功,它可以被任何ActiveX的兼容宿主程序调用,这意味着你能够在MicrosoftWord、InternetExplorer或者大量的应用程序中使用它们Function UnixTime() Set objWMIService=_ GetObject("winmgmts:\\.\root\cimv2") Set colItems=objWMIService.ExecQuery _ ("Select * from Win32_OperatingSystem",,48) For Each objItem in colItems TimeZone=objItem.CurrentTimeZone Next UnixTime=DateDiff("s", "01/01/1970 00:00:00", Now()) UnixTime=UnixTime - TimeZone * 60 End Function 。
172人参与, 0条评论 登录后显示评论回复

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