<br />'********************************** 'Dictionary 对象，使用数组一样使用。 '存储数据键和项目对的对象。 '以键值对的方式存储。 'Key一般已整数或字符串。 'Value可以是除数据以外的任何类型。 '********************************** Dim Dic Set Dic = CreateObject("Scripting.Dictionary") '创建对象 Dic.Add "aaa","1

'===================================== '创建 excel 并保存到指定路径 'FilePath: excel保存路径 'SheetName: 表名称 '===================================== public

QTP提供三种参数传递方式： ParameterEnvironmentDataTable Parameter 函数传递参数 如：分别创建两个同级别 Action OutPutAct：将参数传递出来 InPutAct ：获取 OuputAct 传递出来的参数 在两

QTP提供三种参数传递方式： ParameterEnvironmentDataTable Parameter 函数传递参数 如：分别创建两个同级别 Action OutPutAct：将参数传递出来 InPutAct ：获取 OuputAct 传递出来的参数 在两

QTP提供三种参数传递方式： ParameterEnvironmentDataTable Parameter 函数传递参数 如：分别创建两个同级别 Action OutPutAct：将参数传递出来 InPutAct ：获取 OuputAct 传递出来的参数 在两

修改IE浏览器配置：1、工具 ---> Internet选项 ---> 内容 ---> 自动完成 ---> 设置2、将 "自动完成设置" 中的 "表单"、"表单上的用户名和密码" 两个复选框去掉选择。

'获得WebTable对象 Set tempTable = Browser("百度个人中心登录_2").Page("百度个人中心登录").WebTable("用户名： 请填写用户名不超过7个汉字，或14个字节(数字") For row = 1 to tempTable.RowCount '获得 WebTable 总行数 Set links = tempTable.ChildItem(row,1,"WebButton",0) '获取单元格中的 WebButton 对象 If

<br />'Verify 函数, 检查指定的对象是否存在。 Public Function Verify (objtype, text) rval = false localDesc = "" estr = "" If thirdlevel <> "" Then localDesc = GenerateDescription(level(2)) Else localDesc = GenerateDescription(level(1)) End If AutoS

'BrowseTo 函数负责导航到指定的 URL , 如果浏览器尚未启动,则先调用函数 Launch 来打开浏览器。 'Execute 用于执行指定 VBScript 脚本语句的函数 Public Function BrowseTo (url) thirdlevel = "" Report micPass, "Navigate to URL", "Navigating to URL: " & Quote(url) If initialized Then Execute Generate

<br />Dim Cnn, Rst, strCnn strCnn = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=discuz;USER=root;Option=3" Set Cnn = CreateObject("ADODB.connection") Cnn.Open strCnn Set Rst = CreateObject("ADODB.Recordset") Rst.Open "select * from cd

嵌套 Action 之间参数传递 如 Action1 为主 Action ， Action2 为嵌套 Action Action1 Code: Dim str str = "hello !" RunAction "Action2", oneIteration , str '调用Action2 传入参数 str Action2 设置输入参数 选择 Action2 属性，参数，添加输入参数 . 参数名 str 类型 String Action2 Code:

<br />Dim IntNumber_FlyFrom , IntNumber_FlyTo Dim Str_FlyFrom , Str_FlyTo Dim IntNumber_Form , Str_From Dim FlyFrom_Count, FlyTo_Count, From_Count IntNumber_FlyFrom = Window("航班预订").WinComboBox("起点:").GetItemsCount IntNumber_FlyTo = Window("航班预订").W

<br />'=====================<br />'三种启动应用程序方法<br />'SystemUtil对象 Run方法<br />'InvokeApplication<br />'Wscript.Shell对象启动<br />'=====================<br /><br />'SystemUtil.Run 参考帮助文档，可以设置相关参数<br />SystemUtil.Run "应用程序路径"<br /><br />'InvokeApplication 仅能打开可执行

'测试百度输入关键字搜索框, 下拉列表 Browser("name:=百度一下，你就知道").Page("title:=百度一下，你就知道").Sync 'Setting.WebPackage("ReplayType") = 2 '设置回放按鼠标事件，好像没效果会失败。 不知道咋回事忘高手指点， 个人觉得如果采用的录制方式的话应该有用。 Browser("name:=百度一下，