复制代码 代码如下:<title>LoadPicture函数</title> <form name="frm"> 选择图片<input type="file" name="pic" onChange="GetPicInfor()" > </form> <script language="vbscript"> Sub GetPicInfor() dim objpic,iWidth,iHeight dim pictype,picpath picpath=document.frm.pic.value set objpic=Loadpicture(picpath) iWidth = round(objpic.width / 26.4583) ‘26.4583是像素值 iHeight = round(objpic.height / 26.4583) select...
VBScript通过WMI获取CPU使用率的代码度娘中，搜索关键词“WMI CPU使用率”，得到的全是《python使用WMI监视系统－CPU使用率》，不用看，肯定又是采集的。Python固然强大，但是调用WMI还是用VBS比较“正宗”。 On Error Resume Next strComputer = "."Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor",,48)For Each objItem i...
我在软件测试这个行业也是做过很多年了，自己的方向也是自动化测试，对VBScript脚本也算是了解，在测试过程中 也应用了一些，所以来谈谈如何使用VBScript来开发自动化测试。 首先先介绍几个可以在自动化测试开发中用到的VBScript的几个函数。1、InStr 函数描述 返回某字符串在另一字符串中第一次出现的位置。语法InStr([start, ]string1, string2[, compare]) InStr 函数的语法有以下参数： 参数 描述 start 可...
VBScript通过WMI获取CPU使用率的代码度娘中，搜索关键词“WMI CPU使用率”，得到的全是《python使用WMI监视系统－CPU使用率》，不用看，肯定又是采集的。Python固然强大，但是调用WMI还是用VBS比较“正宗”。On Error Resume Next strComputer = "."Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor",,48)For Each objItem in...
set fso=createobject("Scripting.FileSystemObject") set fn=fso.GetFile("E:\AD.txt") msgbox "文件创建时间："&fn.DateCreated msgbox "文件最后修改时间："&fn.DateLastModified msgbox "文件最后访问时间："&fn.DateLastAccessed set fn=nothing set fso=nothingFileSystemObject 对象简介：FileSystemObject 对象用于访问服务器上的文件系统。此对象可对文件、文件夹以及目录路径进行操作。也可通过此对象获取文件系统的信息...
其实出现Microsoft VBScript 编译器错误 错误 800a03e9 内存不够的错误一般是由于访问量过大或攻击出现的，而iis进程回收还没有操作，所有我们手工回收一下就可以了。iis 》应用程序池 》 找到对应网站的应用程序池 》右键当然我们可以通过重启iis或重启服务器，在运行里面输入： iisreset /restart
在JS中有这种用法，某个函数名可以当成参数的形式，传入到另外一个函数内部去，例如： <script type="text/javascript"> <!-- function myFuncA(str,myFuncB){ str = str + " 您好!"; str = myFuncB(str); return str; } function myFuncB(str){ str = str + "欢迎来到IECN.NET"; return str; } alert(myFuncA("张三",myFuncB)); //--> </script> 在VBScript有两种方式可以来实现，即用execute或GetRef 函数。 一、利用execut...