zoukankan      html  css  js  c++  java
  • 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

     

  • 相关阅读:
    TCP源码—连接建立
    TCP系列02—连接管理—1、三次握手与四次挥手
    TCP系列01—概述及协议头格式
    ubuntu软件管理apt与dpkg
    318. Maximum Product of Word Lengths
    317. Shortest Distance from All Buildings
    316. Remove Duplicate Letters
    315. Count of Smaller Numbers After Self
    314. Binary Tree Vertical Order Traversal
    313. Super Ugly Number
  • 原文地址:https://www.cnblogs.com/zhangjun1130/p/1751522.html
Copyright © 2011-2022 走看看