做一个开发人员认可的测试人员
作者:网络转载 发布时间:[ 2014/1/17 11:40:47 ] 推荐标签:开发人员 测试人员 自动化测试
举简单的代码的例子吧。
1Properties的例子
STRINGTABLE DISCARDABLE
BEGIN
IDS_DIALOGS_TITLE_MessageDlg "Message"
IDS_DIALOGS_TITLE_WarningDlg "Warning"
IDS_DIALOGS_TITLE_ErrorDlg "Error"
IDS_DIALOGS_TITLE_DirPickerDlg "Select a Folder:"
IDS_DIALOGS_TITLE_SelectDocuments "Select Documents"
END
2 Task 的例子
' Tasks:
' [All]
Declare Sub APSrch_SelectView basiclib "A_PowerSearch" (ViewName as String)
Declare Sub APSrch_ClickClearALL basiclib "A_PowerSearch" ()
Declare Sub APSrch_ClickSave basiclib "A_PowerSearch" ()
Declare Sub APSrch_ClickLoad basiclib "A_PowerSearch" ()
Declare Sub APSrch_ClickSearch basiclib "A_PowerSearch" ()
Declare Sub APSrch_ClickDone basiclib "A_PowerSearch" ()
'############################################################################
'# Sub APSrch_SelectView((ViewName as String)
'# DESCRIPTION:
'# [Task] Select view in power search.
'# EXAMPLES:
'# Call APSrch_SelectView("General")
'# Orig Author: XX
'# Orig Date: April 6, 2006
'# History:
'# April 5, 2006 Original Release
'############################################################################
Sub APSrch_SelectView(ViewName as String)
Dim cmbName As String
cmbName=A_GetKeyRC("IDS_DESKTOP_LABEL_SelectView")
Call A_CmbSelect(cmbName, ViewName)
End Sub
3 Wizard的例子
' Wizards:
Declare Sub APSrch_SearchByProperty basiclib "A_PowerSearch" (Property as String, Filter as String, Value as String)
Declare Sub APSrch_SerachByDocContent basiclib "A_PowerSearch" (words() as String, condition() as String)
Declare Sub APSrch_SearchByDate basiclib "A_PowerSearch" (Property as String, Filter as String, DYear as String, Aonth as String, DDay as String)
'############################################################################
'# Sub APSrch_SearchByProperty(Property as String,Filter as String,Value as String)
'# DESCRIPTION:
'# Search by a property in general tab
'# PARAMETERS:
'# [In] Property e.g., "DocumentName"
'# [In] Filter e.g., "Contain"
'# [In] Value e.g., "Test"
'# ERRORS:
'# (none)
'# EXAMPLES:
'# Call APSrch_SearchByProperty("DocumentName","Contain","Test")
'# APSrch_SearchByProperty"DocumentName","Contain","Test"
'# Orig Author: XX
'# Orig Date: May 25, 2005
'# History:
'# May 25, 2005 Original Release
'# April 11, 2006 XX Modified "APSrch_General_ClickAdd" instead of "APSrch_ClickAdd" and
'# "APSrch_General_InputValue" instead of "APSrch_InputValue"
'############################################################################
Sub APSrch_SearchByProperty(Property as String,Filter as String,Value as String)
A_Focus A_GetKeyRC("CPN_DESKTOP")
Call ADesk_ClickTopPowerSearch()
A_Focus A_GetKeyRC("IDD_POWERSEARCH_TEMPLATE.CAPTION")
APSrch_SelectProperty Property
APSrch_SelectFilter Filter
APSrch_General_InputValue Value
Call APSrch_General_ClickAdd()
APSrch_ClickSearch
Call A_Delay(10000)
End Sub
相关推荐
更新发布
功能测试和接口测试的区别
2023/3/23 14:23:39如何写好测试用例文档
2023/3/22 16:17:39常用的选择回归测试的方式有哪些?
2022/6/14 16:14:27测试流程中需要重点把关几个过程?
2021/10/18 15:37:44性能测试的七种方法
2021/9/17 15:19:29全链路压测优化思路
2021/9/14 15:42:25性能测试流程浅谈
2021/5/28 17:25:47常见的APP性能测试指标
2021/5/8 17:01:11