在WinRunner中识别Delphi控件
从网上找来的.
在WinRunner中识别Delphi控件
袁海松 杨欣源
您的位置：测试工具
在WinRunner中识别Delphi控件
袁海松 杨欣源
# 制作环境：
# WinRunner 7.0 Build 7211
# Delphi 6.0
# 方法发现： 袁海松
# 制 作： 杨欣源
# 使用方法：
# Step 1 拷贝本文档中所有内容
# Step 2 打开WinRunner\lib\vbinit中的script文件
# Step 3 将内容粘贴在段落“
# VisualBasic 4.0 Standart controls”之前
# Step 4 重新运行WinRunner
# Step 5 启动时装载VB Addin
# TBitBtn
set_class_map("tbitbtn", "push_button"); set_record_attr("tbitbtn", "class label x y", "MSW_id", "location");
# TButton
set_class_map("tbutton", "push_button"); set_record_attr("tbutton", "class label x y", "MSW_id", "location");
# TCheckBox
set_class_map("tcheckbox", "check_button"); set_record_attr("tcheckbox", "class label x y", "MSW_id", "location");
# TComboBox
set_class_map("TComboBox", "combobox");db2inst1 set_record_attr("TComboBox", "class attached_text x y", "MSW_id", "location");
# TDateTimePicker
set_class_map("tdatetimepicker", "sysdatetimepick32"); set_record_attr("tdatetimepicker", "class attached_text x y", "MSW_id", "location");
# TEdit
set_class_map("tedit", "edit"); set_record_attr("tedit", "class attached_text x y", "MSW_id", "location");
# TGroupButton
set_class_map("tgroupbutton", "radio_button"); set_record_attr("tgroupbutton", "class label x y", "MSW_id", "location");
# TListBox
set_class_map("TListBox", "listbox"); set_record_attr("TListBox", "class attached_text x y", "MSW_id", "location");
# TListView
set_class_map("TListView", "syslistview32"); set_record_attr("TListView", "class attached_text x y abs_x", "MSW_id", "location");
# TMaskEdit
set_class_map("TMaskEdit", "edit"); set_record_attr("TMaskEdit", "class attached_text x y", "MSW_id", "location");
# TMemo
set_class_map("tmemo", "edit"); set_record_attr("tmemo", "class attached_text x y", "MSW_id", "location");
# TMonthCalendar
set_class_map("TMonthCalendar", "sysmonthcal32"); set_record_attr("TMonthCalendar", "class attached_text x y", "MSW_id", "location");
# TRadioButton
set_class_map("TRadioButton", "radio_button"); set_record_attr("TRadioButton", "class label x y", "MSW_id", "location");
# TRickEdit
set_class_map("TRichEdit", "edit"); set_record_attr("TRichEdit", "class attached_text x y", "MSW_id", "location");
# TPageControl
set_class_map("tpagecontrol", "systabcontrol32"); set_record_attr("tpagecontrol", "class attached_text x y", "MSW_id", "location");
# TStaticText
set_class_map("TStaticText", "object"); set_record_attr("TStaticText", "class regexp_MSW_class label", "attached_text MSW_id MSW_class", "location");
# TTreeView
set_class_map("ttreeview", "systreeview32"); set_record_attr("ttreeview", "class attached_text", "MSW_id", "location");
