smmi的专栏

将博客搬至CSDN

第一种方法：利用.ppd文件安装        这是在网上看到的方法，有人说下载模块的zip包，能解压出.tar.gz和.ppd两个文件，但是我从CPAN上没找到zip包，仅下载到.tar.gz包，所以自己按下面格式写了一个Net-SSH.ppd文件，每个tar.gz都需要对应一个ppd。 <SOFTPKG NAME="Net-SSH" VERSION="0.09">...

Dim str = "\/:*?""<>|"If Trim(文件名) Like "*[ & str & ]*" Then    MsgBox("文件名不能含有特殊字符" & str, MsgBoxStyle.Exclamation, "警告")End If

'读取程序所在工作目录下debug.txt文件内容，设置DEBUG标志Dim debug = FalseDim debugFile As StringdebugFile = Application.StartupPath & "\debug.txt"'检查文件是否存在If My.Computer.FileSystem.FileExist(debugFile) Then...

Dim i As IntegerDim proc As Process() '判断excel进程是否存在If System.Diagnostics.Process.GetProcessesByName("excel").Length > 0 Then    proc = Process.GetProcessesByName("excel")    '得到名为exce...

Dim FileExists As BooleanDim filePath = "D:\Book1.xls"fileExists = My.Computer.FileSystem.FileExists(filePath)If fileExists = False Then    MsgBox("文件不存在")Else    '文件存在则删除文件    My.Compu...

最近用vb.net开发了一个小工具，可以选择字体和颜色，利用自带的FontDialog和ColorDialog实现，然后用获取到的字体及颜色来修改Excel表格样式，Excel的字体对象是Microsoft.Office.Interop.Excel.Font，而字体控件是System.Drawing.Font，颜色控件是System.Drawing.Color，所以在赋值的时候需要进行转换。...

创建XP虚拟机镜像1、新建一个虚拟机，打开菜单File-New-VirtualMachine；2、New Virtual Machine Wizard窗口中，选择第一项Typical，Next；3、选择Installer disc image file(iso)，点Browser按钮，找到GhostXP的iso安装镜像文件，一般是700M左右大小；4、保持默认，Next；5、保...

ORAOM：Object Repository automation object model（对象库自动化模型对象）本文脚本不需要QTP加载对象库，就能读取对象库中的内容，包括对象名称和各个属性值。 '创建ObjectRepositoryUtil对象Set ObjRepoUtil = CreateObject("Mercury.ObjectRepositoryUtil")'...

一、单例模式（Singleton Pattern）'-------------------------------------------------------------------------------' Description:' 单例模式Singleton Pattern' 只能实例化一个对象。当创建ExcelWrapper这个类包装的时候就只会调用单个实例，在类...

MsgBox GetRndStr(8)Function GetRndStr(ByVal strLen) Dim strArr, tmpStr strArr=Split("a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,1,2,3,4,5,6,7,8,9,0",",") For i=0 To strLen-1 tmp...

使用QTP自动化测试结束后，经常需要将测试结果写入Excel中，这里就把一些常用对Excel操作的方法进行归纳、整理，方便使用时查阅。支持Office Excel 2003版本，不支持2007版本。 On Error Resume NextDim FileName, SheetName, Text, ExcelApp, ExcelBook, ExcelSheetFileName ...

 SystemUtil对象包括BlockInput、CloseDescendentProcesses、CloseProcessByHwnd、CloseProcessById、CloseProcessByName、CloseProcessByWndTitle、Run、UnblockInput方法。 1、使用Run方法运行文件或程序Run file,[params],[dir],[op...

    在自动化测试过程中，经常需要对大量的文本数据进行查找，对字符串进行比较和匹配，从而判断测试结果是否正确。这时候，就需要用到正则表达式。    在VBScript中，使用RegExp对象来支持正则表达式的使用。RegExp提供了3个属性和3个方法，分别是： 属性：Pattern、Global、IgnoreCase方法：Execute、Test、ReplacePatte...

Eval  计算一个表达式的值并返回结果。[result = ]Eval(expression) Execute执行一个或多个指定的语句。Execute statements  例子：x = 9y = 10 bIsEqual = Eval("x = y")Execute "x = y" MsgBox "bIsEqual: " &...

第一种方法：ExecuteFile，利用该函数将外部vbs动态地加载进来，使测试脚本可以调用vbs文件的所有函数，调用语句写在下方，顺序不能颠倒，否则会报错。这个方法适用于QTP任何版本，但有个缺点，代码调试时不能跟踪到外部vbs的函数中，多少有些不便。 ExecuteFile File  File  String  The absolute or relative path ...

VBScript在调用VB编译的DLL里的一个方法时，总是报错“无效的过程调用或参数”，而在VB中按同样方法调用时一点问题也没有，很是奇怪，VBS调用该类另一个方法却能成功，对比了两个方法，发现参数定义不同。 出错的方法参数定义类似这样ByVal SheetName As String，对参数指定了数据类型，而调用成功的方法没有指定数据类型，可能这就是原因所在，因为VBS里的变量都是同一...

一、异常处理 1.语法错误2.Run-Time错误3.逻辑错误异常处理机制Try ...Catch ex As 异常处理类 ...Finally ...End Try 异常处理类ApplicationException 发生非关键性应用程序错误时所返回的异常情况ArgumentException 当其中一个提供给方法的自变量为无效时所返回的异常情况ArgumentNullExce...

一、数组一维数组定义Dim 数组名(n) As 数据类型，注意n是数组中的最大索引值，不是数组元素个数，索引值必须从0开始定义并赋值Dim 数组名()={元素0数据，元素1数据，...，元素n数据}调整数组元素个数使用ReDim命令，重新定义数组，而原数组元素中的数据将会丢失，除非使用Preserve命令ReDim Preserve A(29) As Integer 二维数组定义Di...

一、运算符号算术运算() 括号 (2+3)*2=10- 负号 -5^ 指数 2^3=8* 乘法 2*3=6/ 除法 62/3=20.666666666667\ 除法取整 62\2=20Mod 取余数 62 Mod 3=2+ 加法 2+3=5- 减法 2-3=-1<< 位左移 10<<2=40>> 位右移 35>>2=8 比较运算= 等于...