该项目的一些简单的脚本的设计脚本如下所示;

vb的转义字符有如下：

 

成员

常数

等效

说明

CrLf

vbCrLf

Chr(13) + Chr(10)

回车/换行组合符。

Cr

vbCr

Chr(13)

回车符。

Lf

vbLf

Chr(10)

换行符。

NewLine

vbNewLine

Chr(13) + Chr(10)

换行符。

NullChar

vbNullChar

Chr(0)

值为 0 的字符。

n/a

vbNullString

值为 0 的字符串

与零长度字符串 ("") 不同；用于调用外部过程。

n/a

vbObjectError

-2147221504

错误号。用户定义的错误号应当大于该值。例如：

Err.Raise(Number) = vbObjectError + 1000

Tab

vbTab

Chr(9)

Tab 字符。

Back

vbBack

Chr(8)

退格字符。

FormFeed

vbFormFeed

Chr(12)

在 Microsoft Windows 中无用。

VerticalTab

vbVerticalTab

Chr(11)

在 Microsoft Windows 中无用。

 

打开文件，读入文件内容：

' VBScript\

Dim message

Sub myPrint(msg)

   Const ForReading = 1, ForWriting = 2, ForAppending = 8

   Dim fso, f

   Set fso = CreateObject("Scripting.FileSystemObject")

   Set f = fso.OpenTextFile("D:\QTPscript.log", ForAppending, True)

   f.Write "测试执行结果步骤: "&"时间："&now()&vbnewline&"测试信息："&msg&vbnewline

   f.Close

End Sub

其他的内容，以后在做整理。。。