编程开发 软件列表

用VBS脚本实现更换Windows Xp序列号的代码
VB

用VBS脚本实现更换Windows Xp序列号的代码

2020-02-16 标签:vbs,脚本,实现,更换,windows,xp,序列号,代码,error,resume,next,dim,vol,prod,key,wscript,arguments,count,inputbox

ON ERROR RESUME NEXT Dim VOL_PROD_KEY if Wscript.arguments.count 0 then Wscript.echo "修改失败!请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。" Err.Clear end if Next

用vbs实现的强制杀进程的脚本
VB

用vbs实现的强制杀进程的脚本

2020-02-16 标签:vbs,实现,强制,杀进,脚本,黑人,必会,对付,杀毒软件,备注,关闭程序,防止,出现,错误,代码,如下,error,resume,next

黑人必会!强制杀进程!对付杀毒软件啊 '备注:vbs强制关闭程序 '防止出现错误 实现代码如下:On Error Resume Next'vbs代码开始----------------------------------------------sub Close_Process(ProcessNam

vbs更改3389远程桌面端口的脚本
VB

vbs更改3389远程桌面端口的脚本

2020-02-16 标签:vbs,更改,3389,远程桌面,端口,脚本,set,wshshell,wscript,shell,function,imput,imputport,inputbox,输入,注意,目前

Set WshShell=CreateObject("Wscript.Shell") Function Imput() imputport=InputBox("请输入一个端口号,注意:这个端口号目前不能被其它程序使用,否则会影响终端服务"," 更改终端端口号", "3389", 100, 100)

用vbs实现的exe2swf工具脚本代码
VB

用vbs实现的exe2swf工具脚本代码

2020-02-16 标签:vbs,实现,exe,swf,工具,脚本,代码,如下,dim,asor,set,argobj,wscript,arguments,oked,tag,endsize

实现代码如下:dim AsoR,FlashFileNameSet ArgObj = WScript.Argumentsdim PositionStart,OKed,Tag,EndSizePositionStart = 920000'flash 4的播放器的大致字节数EndSize = 8'exe文件

一个扩展时间段的dir命令的vbs脚本
VB

一个扩展时间段的dir命令的vbs脚本

2020-02-16 标签:扩展,时间段,dir,命令,vbs,脚本,核心,代码,set,arg,wscript,arguments,count,echo,chr,space,xdir

核心代码set Arg=Wscript.Arguments If Arg.Count=0 then Wscript.echo chr(9)&chr(9)&space(4)&"Xdir v0.1" Wscript.echo "" Wscript.echo chr(9)&

在ASP里面创建GUID
ASP

在ASP里面创建GUID

2020-02-16 标签:asp,里面,创建,guid,代码,如下,jscript,实现,function,var,typelib,n,ew,scriptlet,return,vbscript,dim,set

代码如下:JScript 实现代码如下:function GenerateGuid() {var TypeLib = new ActiveXObject("Scriptlet.TypeLib");return (TypeLib.Guid);} VBScript 实现代码如下:Function Gen

ASP中使用FileSystemObject时提高性能的方法
ASP

ASP中使用FileSystemObject时提高性能的方法

2020-02-16 标签:asp,中使,提高,性能,方法,测试,可能会,哪些,属性,引起,问题,去掉,type,也就是,类型,显示,有了,很大

按个测试了一下可能会是哪些属性引起的性能问题,在去掉Type也就是类型属性显示的时候,性能有了很大提高,之后的测试也证明了是Type属性的使用导致了性能问题。 仔细想了一下,Type引起性能低的原因应该是,引用Type属性所得到的是文件的具体类型信息,也就是我们在资源浏览器里看到的那样,比如TXT文

ASP注册登陆实例代码
ASP

ASP注册登陆实例代码

2020-02-16 标签:asp,注册,登陆,实例,代码,数据库,位置,data,mdb,user,id,n,ame,pwd,wenti,daan,conn,db,存放

数据库位置:data/data.mdb 数据库表:userid name pwd wenti daanconn.asp "" then chk=split(badword,"|") for each query_name in request.querystring for i=0 to ubou

asp采集抓取网上房产信息的代码
ASP

asp采集抓取网上房产信息的代码

2020-02-16 标签:asp,采集,抓取,网上,房产,信息,代码,实现,如下,language,vbscript,codepage,936,include,file,conn,inc,function,doctype,html

实现代码如下: Untitled Document ") getcont=RegexHtml(getcont) dim KeyId,NewsClass,City,Position,HouseType,Level,Area,Price,Demostra dim ContactMan,

ASP计算str2在str1中出现的次数
ASP

ASP计算str2在str1中出现的次数

2020-02-16 标签:asp,计算,str,出现,次数,function,countstr,dim,tmp,i,j,isnull,elseif,else,split,ubound,n

function CountStr(str1,str2)dim tmp,i,jif str1="" or isnull(str1) thenj=0elseif str2="" or isnull(str2) thenj=1elsetmp=split(str1,str2)j=0for i=0 to u