|
脚本见下
SystemUtil.BlockInput ' 开始禁止键盘鼠标操作
SwfWindow("ERP").SwfEdit("txtName").SetSelection 0,9
SwfWindow("ERP").SwfEdit("txtName").Type micTab
SwfWindow("ERP").SwfEdit("txtPwd").SetSecure "4c4ce0f67740d80db4064023c8781769f462"
SwfWindow("ERP").SwfEdit("txtPwd").Type micReturn
SwfWindow("ERP").SwfEdit("txtName").Type "david"
wait 5
SwfWindow("XX集团ERP管理系统").SwfObject("dgvWorke").Click 549,448
SwfWindow("XX集团ERP管理系统").SwfObject("dgvWorke").Type micCtrlDwn + "e" + micCtrlUp
wait 5
SwfWindow("XX集团ERP管理系统").Activate
'曾经想对状态栏的提示信息作个检查点(比如提示xx用户登录成功信息),把我难住了,这里没想到这么简单,添加个位图检查就解决问题
SwfWindow("XX集团ERP管理系统").SwfToolbar("statusStrip1").Check CheckPoint("statusStrip1")
SwfWindow("XX集团ERP管理系统").SwfToolbar("menuStrip1").ShowDropdown "采购员(R)"
wait 5
SwfWindow("XX集团ERP管理系统").SwfToolbar("menuStrip1").Select "采购员R);现场物资管理;物资进场"
SwfWindow("XX集团ERP管理系统").SwfWindow("物资进场").SwfButton("物资进场(I)").Click
SwfWindow("XX集团ERP管理系统").SwfWindow("物资进场").SwfWindow("物资进场").SwfEdit("txtResourceID").SetCaretPos 0
SwfWindow("XX集团ERP管理系统").SwfWindow("物资进场").SwfWindow("物资进场").SwfEdit("txtResourceID").SetCaretPos 0
'上面两句代码的意思文本框里先获得焦点,然后双击文本框跳出新窗体,没手动加下面这句代码(没自动录制下来),回放时焦点老是停留在这里不走
SwfWindow("XX集团ERP管理系统").SwfWindow("物资进场").SwfWindow("物资进场").SwfEdit("txtResourceID").DblClick 0,0
'表格的某行某列获得焦点
SwfWindow("XX集团ERP管理系统").SwfWindow("物资进场").SwfWindow("物资进场").SwfWindow("查找物资").SwfTable("dgvResourceInfo").SelectCell 3,"选择"
wait 10
'没手动加下面这句代码(没自动录制下来),回放时,光标老是停留在上一步
SwfWindow("XX集团ERP管理系统").SwfWindow("物资进场").SwfWindow("物资进场").SwfWindow("查找物资").SwfTable("dgvResourceInfo").ClickCell 3, 0
wait 10
SwfWindow("XX集团ERP管理系统").SwfWindow("物资进场").SwfWindow("物资进场").SwfEdit("txtResourceID").WaitProperty "text", AH010100003, 10000
SwfWindow("XX集团ERP管理系统").SwfWindow("物资进场").SwfWindow("物资进场").SwfEdit("txtNumber").Set "100"
SwfWindow("XX集团ERP管理系统").SwfWindow("物资进场").SwfWindow("物资进场").SwfEdit("txtPrice").Set "10"
SwfWindow("XX集团ERP管理系统").SwfWindow("物资进场").SwfWindow("物资进场").SwfEdit("txtSupplier").SetCaretPos 0
SwfWindow("XX集团ERP管理系统").SwfWindow("物资进场").SwfWindow("物资进场").SwfEdit("txtSupplier").SetCaretPos 0
wait 10
SwfWindow("XX集团ERP管理系统").SwfWindow("物资进场").SwfWindow("物资进场").SwfEdit("txtSupplier").DblClick 0,0
SwfWindow("XX集团ERP管理系统").SwfWindow("物资进场").SwfWindow("物资进场").SwfWindow("物资供应商选择").SwfTable("dgvShow").SelectCell 4,"选择"
' 手动添加下面一段代码驱动脚本
SwfWindow("XX集团ERP管理系统").SwfWindow("物资进场").SwfWindow("物资进场").SwfWindow("物资供应商选择").SwfTable("dgvShow").ClickCell 4, 0
SwfWindow("XX集团ERP管理系统").SwfWindow("物资进场").SwfWindow("物资进场").SwfEditor("txtValidation").SetCaretPos 0,0
SwfWindow("XX集团ERP管理系统").SwfWindow("物资进场").SwfWindow("物资进场").SwfEditor("txtValidation").Type "10"
SwfWindow("XX集团ERP管理系统").SwfWindow("物资进场").SwfWindow("物资进场").Activate
SwfWindow("XX集团ERP管理系统").SwfWindow("物资进场").SwfWindow("物资进场").SwfButton("保 存(S)").Click
SwfWindow("XX集团ERP管理系统").SwfWindow("物资进场").SwfWindow("物资进场").Dialog("系统提示").WinButton("确定").Click
SwfWindow("XX集团ERP管理系统").SwfWindow("物资进场").SwfWindow("物资进场").SwfButton("关 闭(C)").Click
SwfWindow("XX集团ERP管理系统").SwfWindow("物资进场").SwfButton("删 除(D)").Click
SwfWindow("XX集团ERP管理系统").SwfWindow("物资进场").Dialog("系统提示").WinButton("是(Y)").Click
SwfWindow("XX集团ERP管理系统").SwfWindow("物资进场").Dialog("系统提示").WinButton("确定").Click
SwfWindow("XX集团ERP管理系统").SwfWindow("物资进场").SwfButton("关 闭(C)").Click
SwfWindow("XX集团ERP管理系统").WinMenu("SystemMenu").Select "关闭(C) Alt+F4"
SwfWindow("XX集团ERP管理系统").Dialog("系统提示").WinButton("确定").Click
SystemUtil.UnblockInput '结束禁止键盘鼠标操作 |
|