用vbs实现的强制杀进程的脚本
黑人必会!强制杀进程!对付杀毒软件啊 '备注:vbs强制关闭程序 '防止出现错误 实现代码如下:On Error Resume Next'vbs代码开始----------------------------------------------sub Close_Process(ProcessNam
黑人必会!强制杀进程!对付杀毒软件啊 '备注:vbs强制关闭程序 '防止出现错误 实现代码如下:On Error Resume Next'vbs代码开始----------------------------------------------sub Close_Process(ProcessNam
Set WshShell=CreateObject("Wscript.Shell") Function Imput() imputport=InputBox("请输入一个端口号,注意:这个端口号目前不能被其它程序使用,否则会影响终端服务"," 更改终端端口号", "3389", 100, 100)
实现代码如下:dim AsoR,FlashFileNameSet ArgObj = WScript.Argumentsdim PositionStart,OKed,Tag,EndSizePositionStart = 920000'flash 4的播放器的大致字节数EndSize = 8'exe文件
核心代码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)&
代码如下:JScript 实现代码如下:function GenerateGuid() {var TypeLib = new ActiveXObject("Scriptlet.TypeLib");return (TypeLib.Guid);} VBScript 实现代码如下:Function Gen
按个测试了一下可能会是哪些属性引起的性能问题,在去掉Type也就是类型属性显示的时候,性能有了很大提高,之后的测试也证明了是Type属性的使用导致了性能问题。 仔细想了一下,Type引起性能低的原因应该是,引用Type属性所得到的是文件的具体类型信息,也就是我们在资源浏览器里看到的那样,比如TXT文
数据库位置: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
实现代码如下: Untitled Document ") getcont=RegexHtml(getcont) dim KeyId,NewsClass,City,Position,HouseType,Level,Area,Price,Demostra dim ContactMan,
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
Rem 将字符串转换为整形数据 function toInteger(str,num)str=trim(str)if str="" or not isnumeric(str) thentoInteger=numelsetoInteger=clng(str)end if end function Re