QTP中的一段VBS

第一次感受到QTP的威力，它是从另外一个角度看待软件，即外部。如果用AO的角度看待ArcGIS是从内部的角度，而QTP恰恰相反，完全从外部看待，但是无论内外在批处理方面竟然达到了相同的效果，殊途同归也！

Window("测试版").WinMenu("Menu").Select "水印嵌入"
Window("测试版").Dialog("水印嵌入").WinButton("确定").Type "dsfdf"
Window("测试版").Dialog("水印嵌入").WinEditor("请输入水印信息：").SetCaretPos 0,0
Window("测试版").Dialog("水印嵌入").WinEditor("请输入水印信息：").Type DataTable("p_KeyboardInput", dtGlobalSheet)
Window("测试版").Dialog("水印嵌入").WinButton("<<  添加").Click
Window("测试版").Dialog("水印嵌入").WinButton("WinButton").Click
Window("测试版").Dialog("水印嵌入").Dialog("浏览文件夹").WinTreeView("请选择数据所在文件夹").Expand "桌面;我的电脑;本地磁盘 (E:)"
Window("测试版").Dialog("水印嵌入").Dialog("浏览文件夹").WinTreeView("请选择数据所在文件夹").Expand "桌面;我的电脑;本地磁盘 (E:);Work"
Window("测试版").Dialog("水印嵌入").Dialog("浏览文件夹").WinTreeView("请选择数据所在文件夹").Expand "桌面;我的电脑;本地磁盘 (E:);Work;水印"
Window("测试版").Dialog("水印嵌入").Dialog("浏览文件夹").WinTreeView("请选择数据所在文件夹").Expand "桌面;我的电脑;本地磁盘 (E:);Work;水印;天下图水印软件测试3"
Window("测试版").Dialog("水印嵌入").Dialog("浏览文件夹").WinTreeView("请选择数据所在文件夹").Expand "桌面;我的电脑;本地磁盘 (E:);Work;水印;天下图水印软件测试3;天下图水印软件测试"
Window("测试版").Dialog("水印嵌入").Dialog("浏览文件夹").WinTreeView("请选择数据所在文件夹").Select "桌面;我的电脑;本地磁盘 (E:);Work;水印;天下图水印软件测试3;天下图水印软件测试;DOM和原始影像"
Window("测试版").Dialog("水印嵌入").Dialog("浏览文件夹").WinTreeView("请选择数据所在文件夹").Select "桌面;我的电脑;本地磁盘 (E:);Work;水印;天下图水印软件测试3;天下图水印软件测试;DOM"
Window("测试版").Dialog("水印嵌入").Dialog("浏览文件夹").WinButton("确定").Click
Window("测试版").Dialog("水印嵌入").WinButton("WinButton_2").Click
Window("测试版").Dialog("水印嵌入").Dialog("浏览文件夹").WinTreeView("请选择数据所在文件夹").Expand "桌面;我的电脑;本地磁盘 (E:)"
Window("测试版").Dialog("水印嵌入").Dialog("浏览文件夹").WinTreeView("请选择数据所在文件夹").Expand "桌面;我的电脑;本地磁盘 (E:);Work"
Window("测试版").Dialog("水印嵌入").Dialog("浏览文件夹").WinTreeView("请选择数据所在文件夹").Expand "桌面;我的电脑;本地磁盘 (E:);Work;水印"
Window("测试版").Dialog("水印嵌入").Dialog("浏览文件夹").WinTreeView("请选择数据所在文件夹").Expand "桌面;我的电脑;本地磁盘 (E:);Work;水印;天下图水印软件测试3"
Window("测试版").Dialog("水印嵌入").Dialog("浏览文件夹").WinTreeView("请选择数据所在文件夹").Expand "桌面;我的电脑;本地磁盘 (E:);Work;水印;天下图水印软件测试3;天下图水印软件测试"
Window("测试版").Dialog("水印嵌入").Dialog("浏览文件夹").WinTreeView("请选择数据所在文件夹").Select "桌面;我的电脑;本地磁盘 (E:);Work;水印;天下图水印软件测试3;天下图水印软件测试;加水印后DOM"
Window("测试版").Dialog("水印嵌入").Dialog("浏览文件夹").WinButton("确定").Click


Window("测试版").Dialog("水印嵌入").WinButton("确定").Click
Dim startHour
startHour= Hour(now)
Dim startMinute
startMinute= Minute(now)
Dim startSecond
startSecond= Second(now)

wait  26

Window("测试版").Dialog("ImageWaterMark").WinButton("确定").Click
Dim endHour
endHour= Hour(now)
Dim endMinute
endMinute= Minute(now)
Dim endtSecond
endSecond= Second(now)


Const ForAppending = 8    
 Dim fs, f,a
a ="开始时间："&startHour&":"&startMinute&":"&startSecond & vbcrlf &"结束时间："&endHour&":"&endMinute&":"&endSecond& vbcrlf &"时间间隔是："& (endHour*3600+endMinute*60+endSecond)-(startHour*3600+startMinute*60+startSecond) &vbcrlf    
 'a =startHour&":"&startMinute&":"&startSecond &vbTab&endHour&":"&endMinute&":"&endSecond& vbTab & (endHour*3600+endMinute*60+endSecond)-(startHour*3600+startMinute*60+startSecond) &vbcrlf                           
                       
'创建ActiveX对象，然后打开文件，再写入字符串，最后关闭
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("c:\ab.txt", ForAppending,True)
f.Write a
f.Close


'Window("测试版").Close