第3页_createobj - 程序员之家

VBScript压缩单个文件为zip格式

2020-02-16 标签:vbscript,压缩,单个,文件,zip,格式,实现,代码,如下,error,resume,next,dim,fso,fp,oapp,targetfile,set,scripting

实现代码如下： On Error Resume Next Dim fso,fp,oApp,targetfile Set fso=CreateObject("Scripting.FileSystemObject") targetfile="D:\tmp.zip" Set fp=fso.OpenText

首页

将HTML或txt文件转换为ASP输出的vbs代码

2020-02-16 标签:html,txt,文件,转换,asp,输出,vbs,代码,使用方法,手工,修改,名称,想要,生成,文件名,下面,保存为

使用方法:手工修改html文件的名称与想要生成的asp的文件名称，然后将下面的代码保存为1.vbs，跟1.html放同一个目录双击运行即可。实现代码如下：html = "1.html" asp = "1.asp" Set fso = CreateObject("Scripting.FileSyste

首页

vbs TLI.TLIApplication 被遗忘的COM组件

2020-02-16 标签:vbs,tli,遗忘,com,组件,曾经,很好,vbsedit,代码,自动,补全,实现,现在看来,大约,的确,用的,比如,我想

曾经一直很好奇VbsEdit的代码自动补全是怎么实现的，现在看来，大约的确用的就是这个COM。比如我想知道scrrun.dll（提供fso对象的dll）这个COM组件提供了哪些接口，可以用下面的代码：实现代码如下： Set tli = CreateObject("TLI.TLIApplicati

首页

获取主机名的vbs（cmdlib.wsc）

2020-02-16 标签:获取,主机,vbs,cmdlib,wsc,实现,代码,如下,strcomputer,set,objcmdlib,microsoft,wscript,application,getobject,winmgmts

实现代码如下： strComputer = "." Set objCmdLib = CreateObject("Microsoft.CmdLib") Set objCmdLib.ScriptingHost = WScript.Application Set objWMIService = GetOb

首页

用VBS将一篇txt后缀的内容保存为html格式

2020-02-16 标签:vbs,一篇,txt,后缀,内容,保存为,html,格式,实现,代码,如下,coo,boi,wscript,arguments,count,quit,dim,fso

do.vbs实现代码如下：'BY Coo_boi If WScript.Arguments.Count=0 Then WScript.Quit Dim fso,txt,htm txt=WScript.Arguments(0) Set fso=CreateObject("Scripting.FileS

首页

VBS 16进制验证特定字符

2020-02-16 标签:vbs,16,进制,验证,特定,字符,实现,代码,如下,fastslz,file,wscript,dim,slz,set,adodb,stream,type

实现代码如下： '验证字符：fastslz file=Wscript.ScriptFullName Dim slz set slz = CreateObject("Adodb.Stream") slz.Type = 1 slz.Mode = 3 slz.Open slz.Position = 0 s

首页

VBS脚本也有GUI图形界面日志清除功能

2020-02-16 标签:vbs,脚本,也有,gui,图形,界面,日志,清除,功能,使用方法,下面,代码,保存为,rizhi,双击,运行,即可,不行,可能是,杀毒软件

使用方法：将下面的代码保存为rizhi.vbs双击运行即可，如果不行可能是杀毒软件的问题。可以搜索下。以前提供过解决方法。set ie=wscript.createobject("internetexplorer.application","event_") '创建ie对象' ie.menubar=

首页

用来分割文本的vbs脚本

2020-02-16 标签:用来,分割,文本,vbs,脚本,实现,代码,如下,error,resume,next,code,netpatch,set,arg,wscript,arguments,count,quit

实现代码如下： On Error Resume Next 'Code By NetPatch Set Arg=Wscript.Arguments If Arg.Count=0 Then Wscript.Quit Set Fso = CreateObject("Scripting.FileSystem

首页

用vbs分割与合并文本文件的代码

2020-02-16 标签:vbs,分割,合并,文本文件,代码,然而,想到,其他,再次,下载,发现,一次性,导入,几万个,地址,非常,缓慢,所以有,必要,把它

然而想到其他地方再次下载时发现一次性导入几万个地址非常缓慢，所以有必要把它分割了：(在这个txt文件中，一个地址占一行) url_split.vbs文件内容：实现代码如下： Set fs =CreateObject("scripting.filesystemobject") Set gs =Cre

首页

vbs中将GB2312转Unicode的代码

2020-02-16 标签:vbs,中将,gb,2312,unicode,代码,今天,写了,类似于,下面,程序,实现,如下,dim,http,set,msxml

今天写了一个类似于下面的程序：实现代码如下： Dim http Set http = CreateObject("msxml2.xmlhttp") http.open "GET","http://www.sina.com.cn/",False http.send WScript.Echo http

与 createobj 相关的软件列表