该项目的一些简单的脚本的设计脚本如下所示;
vb的转义字符有如下：
VB中的转义字符（回车、换行、Tab等）
成员
常数
等效
说明
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
其他的内容，以后在做整理。。。