kiki1120
- 浏览: 307481 次
- 性别:
- 来自: 上海
-
最新评论
-
夜闯疯人院：
如何在已经存在的CRL文件中加入新的吊销证书列表？
对证书的CRL进行验证 -
lzf0530：
亲 执行时有报错，能否将源码以及jar包打包上传一下？
Java编写PC喇叭发声程序 -
yangge3232：
你好，我的cab chktrust 能运行，就是放在服务器 ...
如何制作cab包（解决不能注册的问题） -
jspandservlet：
缺了很多的包
SSH框架入门（三） -
f0rb：
public void contextInitiali ...
改造myoa例子，使用hsql代替mysql随webapp启动
文章列表
第一种方法：利用.ppd文件安装
这是在网上看到的方法，有人说下载模块的zip包，能解压出.tar.gz和.ppd两个文件，但是我从CPAN上没找到zip包，仅下载到.tar.gz包，所以自己按下面格式写了一个Net-SSH.ppd文件，每个tar.gz都需要对应一个ppd。
<SOFTPKG NAME="Net-SSH" VERSION="0.09">
<TITLE>Net-SSH</TITLE>
<ABSTRACT>Net-SSH</ABSTRACT>
...
Dim str = "\/:*?""<>|"
If Trim(文件名) Like "*[ & str & ]*" Then
MsgBox("文件名不能含有特殊字符" & str, MsgBoxStyle.Exclamation, "警告")
End If
VB.Net获取程序所在的工作目录
- 博客分类：
- .Net
'读取程序所在工作目录下debug.txt文件内容，设置DEBUG标志
Dim debug = False
Dim debugFile As String
debugFile = Application.StartupPath & "\debug.txt"
'检查文件是否存在
If My.Computer.FileSystem.FileExist(debugFile) Then
'读取文件全部内容
If My.Computer.FileSystem.ReadAllText(debugFile).StartsWith("1&qu ...
VB.Net检查进程是否存在及关闭进程
- 博客分类：
- .Net
Dim i As Integer
Dim proc As Process()
'判断excel进程是否存在
If System.Diagnostics.Process.GetProcessesByName("excel").Length > 0 Then
proc = Process.GetProcessesByName("excel")
'得到名为excel进程个数，全部关闭
For i=0 to proc.Length -1
proc(i).Kill()
Next
End ...
VB.Net检查文件是否存在及删除文件
- 博客分类：
- .Net
Dim FileExists As Boolean
Dim filePath = "D:\Book1.xls"
fileExists = My.Computer.FileSystem.FileExists(filePath)
If fileExists = False Then
MsgBox("文件不存在")
Else
'文件存在则删除文件
My.Computer.FileSystem.DeleteFile(filePath, FileIO.UIOption.OnlyErrorDialogs, FileIO.Recy ...
最近用vb.net开发了一个小工具，可以选择字体和颜色，利用自带的FontDialog和ColorDialog实现，然后用获取到的字体及颜色来修改Excel表格样式，Excel的字体对象是Microsoft.Office.Interop.Excel.Font，而字体控件是System.Drawing.Font，颜色控件 ...
创建XP虚拟机镜像
1、新建一个虚拟机，打开菜单File-New-VirtualMachine；
2、New Virtual Machine Wizard窗口中，选择第一项Typical，Next；
3、选择Installer disc image file(iso)，点Browser按钮，找到GhostXP的iso安装镜像文件，一般是700M左右大小；
...
ORAOM：Object Repository automation object model（对象库自动化模型对象）
本文脚本不需要QTP加载对象库，就能读取对象库中的内容，包括对象名称和各个属性值。
'创建ObjectRepositoryUtil对象
Set ObjRepoUtil = CreateObject("Mercury.ObjectRepositoryUtil")
'加载对象库tsr文件
ObjRepoUtil.Load "D:/对象库.tsr"
'打印全部对象属性值
PrintObjInfo ObjRepoUtil, ...
QTP的六种设计模式
- 博客分类：
- QTP
一、单例模式（Singleton Pattern）
'-------------------------------------------------------------------------------
' Description:
' 单例模式Singleton Pattern
' 只能实例化一个对象。当创建ExcelWrapper这个类包装的时候就只会调用单个实例，在类销毁时，
' 会自动销毁此全局变量的实例，这样就再也不会在进程里看到N多个Excel进程实例了。
'------------------------------------------------- ...
随机获取指定长度的字符串
- 博客分类：
- QTP
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
tmpStr=tmpStr & strArr(RandomNumber.Value(0, UBound(strArr)))
Next
GetRndStr ...
VBS生成Excel报告的常用操作
- 博客分类：
- QTP
使用QTP自动化测试结束后，经常需要将测试结果写入Excel中，这里就把一些常用对Excel操作的方法进行归纳、整理，方便使用时查阅。支持Office Excel 2003版本，不支持2007版本。
On Error Resume Next
Dim FileName, SheetName, Text, ExcelApp, ExcelBook, ExcelSheet
FileName = "D:/Book1.xls"
SheetName = "新建表"
Text = "Hello QTP ! 你好, QuickTestProfes ...
QTP中SystemUtil对象的使用
- 博客分类：
- QTP
SystemUtil对象包括BlockInput、CloseDescendentProcesses、CloseProcessByHwnd、CloseProcessById、CloseProcessByName、CloseProcessByWndTitle、Run、UnblockInput方法。
1、使用Run方法运行文件或程序
Run file,[params],[dir],[op],[mode]
（1）file参数是必须输入的 ...
VBScript与正则表达式
- 博客分类：
- QTP
在自动化测试过程中，经常需要对大量的文本数据进行查找，对字符串进行比较和匹配，从而判断测试结果是否正确。这时候，就需要用到正则表达式。
在VBScript中，使用RegExp对象来支持正则表达式的使用。RegExp提供了3个属性和3个方法，分别是：
属性：Pattern、Global、IgnoreCase
方法：Execute、Test、Replace
Pattern属性用于描述正则表达式的匹配模式；
Global属性用于设置搜索过程中是仅匹配第一个还是全部匹配，True表示全部匹配，False表示仅匹配第一个；
IgnoreCase属性用于设置匹配字符串时 ...
VBS函数Eval和Execute的区别
- 博客分类：
- QTP
Eval
计算一个表达式的值并返回结果。
[result = ]Eval(expression)
Execute
执行一个或多个指定的语句。
Execute statements
例子：
x = 9
y = 10
bIsEqual = Eval("x = y")
Execute "x = y"
MsgBox "bIsEqual: " & bIsEqual
MsgBox "X is no longer 9. It is: " & x
...