代码可用,已通过认证。
Dim iPID,temp,sRet,bRet,arrayData,objDatatable,arrRet
iPID = App.Start('''C:\soft\订单管理系统\订单管理系统.exe''', 0, 1)
Keyboard.InputText(@ui"可编辑文本_验证码:","UiBot_123308",true,20,30000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 500, "bSetForeground": true, "sSimulate": "message", "bValidate": false, "bClickBeforeInput": false})
Keyboard.InputText(@ui"可编辑文本","zJEA5B",true,20,30000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 500, "bSetForeground": true, "sSimulate": "message", "bValidate": false, "bClickBeforeInput": false})
bRet = true
Do
sRet = Mage.ScreenOCRVerifyCode(@ui"窗口_密码:",{"x":0,"y":0,"width":0,"height":0},{"Pubkey":"FBfOSUDaruT8cHxxaaK3m5ZJ","Secret":"7RXryWfHh3AWHZtFEd3y2hxUjG5Q9sMh","Url":"https://cloud.laiye.com/idp"},30000,{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200})
Keyboard.InputText(@ui"可编辑文本1",sRet,true,20,10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 500, "bSetForeground": true, "sSimulate": "message", "bValidate": false, "bClickBeforeInput": false})
Mouse.Action(@ui"窗口_登录","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})
bRet = UiElement.Exists(@ui"对话框",{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200})
TracePrint($PrevResult)
If bRet
Mouse.Action(@ui"窗口_确定3","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})
End If
Loop Until bRet = false
Mouse.Action(@ui"框线项目_0","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})
Mouse.Action(@ui"框线项目_1","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})
Mouse.Action(@ui"框线项目_2","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})
Mouse.Action(@ui"窗口_2021年1月1日","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})
Keyboard.Input("1",{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "message"})
Keyboard.Press("Left", "press", [],{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "simulate"})
Keyboard.Input("5",{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "message"})
Keyboard.Press("Left", "press", [],{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "simulate"})
Keyboard.Input("2021",{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "message"})
Mouse.Action(@ui"窗口_2023年10月15日","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})
Keyboard.Input("11",{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "message"})
Keyboard.Press("Left", "press", [],{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "simulate"})
Keyboard.Input("5",{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "message"})
Keyboard.Press("Left", "press", [],{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "simulate"})
Keyboard.Input("2021",{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "message"})
Mouse.Action(@ui"窗口_查询","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})
arrayData = UiElement.DataScrap({"wnd":[{"cls":"WindowsForms*","title":"订单管理系统-(UiBot_123308)","app":"订单管理系统"},{"cls":"WindowsForms*","ctrlname":"panel2","idx":2},{"cls":"WindowsForms*","aaname":"DataGridView","ctrlname":"dgv_order_list","idx":5}],"ctrl":[{"role":"ROLE_SYSTEM_TABLE","name":"DataGridView"}]},{"ExtractTable":1,"Columns":[]},{"objNextLinkElement":{"wnd":[{"cls":"WindowsForms*","title":"订单管理系统-(UiBot_123308)","app":"订单管理系统"},{"cls":"WindowsForms*","ctrlname":"panel2","idx":2},{"cls":"WindowsForms*","title":"下一页","aaname":"下一页","ctrlname":"btn_last"}]},"iMaxNumberOfPage":3,"iMaxNumberOfResult":-1,"iDelayBetweenMS":1000,"bContinueOnError":true})
objDatatable = Datatable.BuildDataTable(arrayData,["客户编号","购买日期","订单编码","购买数量","商品编码"])
objDatatable = Datatable.QueryDataTable(objDatatable,"购买日期.str.contains(\"2021\")")
objDatatable = Datatable.GetDataTableByArray(objDatatable,false)
For Each 数据内容 In objDatatable
Mouse.Action(@ui"框线项目_21","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})
Mage.Click(@ui"窗格_3/3页",{"x":0,"y":0,"width":0,"height":0},{"Pubkey":"YNH8BMCVO45Ees4BGMGFN8me","Secret":"ncfxAtS8Oy97pB0hp9ezHvXjL0cJVk24","Url":"https://cloud.laiye.com/idp"},"客户编号","instr",1,"left","click",50000,{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200,"sCursorPosition":"Center","iCursorOffsetX":90,"iCursorOffsetY":0,"sKeyModifiers":[],"sSimulate":"simulate"})
Keyboard.Input(数据内容[0],{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "message"})
Mage.Click(@ui"窗格_3/3页",{"x":0,"y":0,"width":0,"height":0},{"Pubkey":"YNH8BMCVO45Ees4BGMGFN8me","Secret":"ncfxAtS8Oy97pB0hp9ezHvXjL0cJVk24","Url":"https://cloud.laiye.com/idp"},"订单编码","instr",1,"left","click",50000,{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200,"sCursorPosition":"Center","iCursorOffsetX":90,"iCursorOffsetY":0,"sKeyModifiers":[],"sSimulate":"simulate"})
Keyboard.Input(数据内容[2],{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "message"})
Mage.Click(@ui"窗格_3/3页",{"x":0,"y":0,"width":0,"height":0},{"Pubkey":"YNH8BMCVO45Ees4BGMGFN8me","Secret":"ncfxAtS8Oy97pB0hp9ezHvXjL0cJVk24","Url":"https://cloud.laiye.com/idp"},"购买数量","instr",1,"left","click",50000,{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200,"sCursorPosition":"Center","iCursorOffsetX":90,"iCursorOffsetY":0,"sKeyModifiers":[],"sSimulate":"simulate"})
Keyboard.Input(数据内容[3],{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "message"})
Mage.Click(@ui"窗格_3/3页",{"x":0,"y":0,"width":0,"height":0},{"Pubkey":"YNH8BMCVO45Ees4BGMGFN8me","Secret":"ncfxAtS8Oy97pB0hp9ezHvXjL0cJVk24","Url":"https://cloud.laiye.com/idp"},"商品编码","instr",1,"left","click",50000,{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200,"sCursorPosition":"Center","iCursorOffsetX":90,"iCursorOffsetY":0,"sKeyModifiers":[],"sSimulate":"simulate"})
Keyboard.Input(数据内容[4],{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "message"})
TracePrint(数据内容[1])
日期=Split(数据内容[1],"-")
TracePrint(日期)
Mouse.Action(@ui"窗口_2023年10月15日1","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})
Keyboard.Input(日期[2],{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "message"})
Keyboard.Press("Left", "press", [],{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "simulate"})
Keyboard.Input(日期[1],{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "message"})
Keyboard.Press("Left", "press", [],{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "simulate"})
Keyboard.Input(日期[0],{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "message"})
TracePrint(日期[0])
Mouse.Action(@ui"窗口_提交","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})
Mouse.Action(@ui"窗口_确定1","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})
Next