自己动手用autoit实现用友NC凭证查询和下载的RPA机器人

类似效果实例

#include “Swing.au3”

#include

#include

shellexecute(“C:UsersAdminAppDataLocalUClientapps121c9f01-b00e-366b-ae6b-52e4cdd0d056Launcher.exe”, “121c9f01-b00e-366b-ae6b-52e4cdd0d056”)

Sleep(5000)

Opt(“MouseCoordMode”, 0)

Opt(“SendKeyDelay”, 20)

global $wintitle = “Yonyou NC – nc65:8080”

$winHandle = WinActivate($wintitle)

WinSetState($wintitle, “”, @SW_MAXIMIZE)

$result = __isJavaWindow($winHandle)

Global $vmId

Global $ac

global $sName = “用户”

global $sRole = “label”

__getAccessibleContextFromHWND($winHandle, $vmID, $ac)

Sleep(500)

$re_ac = _JAB_getAccessibleContextByFindAll($vmId, $ac, $sName, $sRole)

_JAB_getIndexInParent($vmId, $re_ac)

$indexObject = __getAccessibleParentFromContext($vmId, $re_ac)

$username = __getAccessibleChildFromContext($vmId, $indexObject, 3)

$passwd = __getAccessibleChildFromContext($vmId, $indexObject, 5)

$loginBtn = __getAccessibleChildFromContext($vmId, $indexObject, 7)

__setTextContents($vmId, $username, “slwql”)

__setTextContents($vmId, $passwd, “@365”)

_JAB_singleAction($vmId, $loginBtn)

Sleep(600)

If WinExists(“提示”) Then

$hWnd=WinGetHandle(“[ACTIVE]”);

$ret=DllCall(“user32.dll”,”long”,”LoadKeyboardLayout”,”str”,”08040804″,”int”,1+0);

DllCall(“user32.dll”,”ptr”,”SendMessage”,”hwnd”,$hWnd,”int”,0x50,”int”,1,”int”,$ret[0]);

Sleep(400)

WinActivate(“提示”)

Sleep(400)

Send(“{Y}”)

Sleep(400)

EndIf

Sleep(200)

$function_ac = _JAB_getAccessibleContextByFindAll($vmId, $ac, “财务会计”, “page tab”)

Sleep(200)

Send(“{DOWN 5}”)

Sleep(200)

$base_ac = _JAB_getAccessibleContextByFindAll($vmId, $ac, “基础档案及规则”, “label”)

Sleep(200)

$indexList = __getAccessibleParentFromContext($vmId, $base_ac)

Sleep(200)

$clickLabel = __getAccessibleChildFromContext($vmId, $indexList, 1)

Sleep(200)

_JAB_singleAction($vmId, $clickLabel)

Sleep(300)

$infoX = _JAB_getX($vmId, $clickLabel)

$infoY = _JAB_getY($vmId, $clickLabel)

Sleep(20)

$posx = $infoX + 280

Sleep(20)

$posy = $infoY + 20

Sleep(20)

MouseClick(“left”,$posx,$posy,1)

Sleep(200)

Send(“{DOWN 10}”)

Sleep(200)

Send(“{ENTER}”)

Sleep(100)

$searchBtn = _JAB_getAccessibleContextByFindAll($vmId, $ac, “查询”, “push button”)

Sleep(100)

Send(“{F3}”)

Sleep(600)

If WinExists(“凭证查询”) Then

$searchDialog = WinActivate(“凭证查询”)

Sleep(200)

$result = __isJavaWindow($searchDialog)

__getAccessibleContextFromHWND($searchDialog, $vmId, $ac)

Sleep(100)

$accountLabel = _JAB_getAccessibleContextByFindAll($vmId, $ac, “核算账簿”, “label”)

Sleep(40)

$accoutBtn = _JAB_getNextSibling($vmId, $accountLabel, 1)

Sleep(40)

$btn = __getAccessibleChildFromContext($vmId, $accoutBtn, 1)

Sleep(40)

_JAB_singleAction($vmId, $btn)

Sleep(100)

Send(“{DOWN 2}”)

Sleep(40)

Send(“{RIGHT}”)

Sleep(40)

Send(“{DOWN}”)

Sleep(40)

Send(“{ENTER}”)

Sleep(40)

$confirmBtn = _JAB_getAccessibleContextByFindAll($vmId, $ac, “确定”, “push button”)

Sleep(40)

_JAB_singleAction($vmId, $confirmBtn)

Sleep(600)

WinFlash(“凭证查询”)

EndIf

Sleep(100)

Send(“{TAB 2}”)

Sleep(100)

$result = __isJavaWindow($winHandle)

Sleep(40)

__getAccessibleContextFromHWND($winHandle, $vmId, $ac)

Sleep(40)

$page_tab = _JAB_getAccessibleContextByFindAll($vmId, $ac, “查询”, “page tab”)

Sleep(40)

$table_header = _JAB_getAccessibleContextByFindAll($vmId, $page_tab, “出纳”, “label”)

Sleep(40)

$table = _JAB_getTableFromColumn($vmId, $table_header)

Sleep(40)

$count = _JAB_getTableRowCount($vmId, $table)

Sleep(300)

Send(“{DOWN 20}”)

Sleep(200)

$cardBtn = _JAB_getAccessibleContextByFindAll($vmId, $page_tab, “卡片显示”, “push button”)

Sleep(200)

_JAB_singleAction($vmId, $cardBtn)

Sleep(400)

Send(“{TAB 1}”)

Sleep(400)

$backBtn = _JAB_getAccessibleContextByFindAll($vmId, $page_tab, “返回”, “push button”)

Sleep(400)

MouseMove(16, 249, 10)

Sleep(40)

__getAccessibleContextWithFocus($winHandle, $vmId, $ac)

Sleep(40)

$iTableHeadCount = _JAB_getTableColumnCount($vmId, $ac)

$iTableRowCount = _JAB_getTableRowCount($vmId, $ac)

Sleep(400)

Local $oExcel = _Excel_Open()

Local $sFilePath = “D:est.xls”

Local $oWorkbook = _Excel_BookOpen($oExcel, $sFilePath)

Local $oSheet = $oWorkbook.Sheets(1)

Sleep(400)

;Local $tableHeads[12] = [“分录号”, “摘要”, “科目”, “辅助核算”, “币种”, “原币”, “组织本币借方)”, “组织本币(贷方)”, “集团本币(借方)”, “集团本币(贷方)”, “全局本币(借方)”, “全局本币(贷方)”]

;$file = FileOpen(“C:data.txt”, 1)

For $i = 0 To $iTableRowCount – 1

Local $tableData[12]

For $j = 0 To $iTableHeadCount – 1

Local $tableCell = _JAB_getTableCellTextValue($vmId, $ac, $i, $j)

Local $cellValue = StringRegExpReplace($tableCell, ”, ”)

Sleep(20)

;_ArrayAdd($tableData, $tableCell)

$oSheet.Range(“A2”).Offset($i, $j).Value = $cellValue

$oSheet.Range(“A:L”).Columns.AutoFit

;FileWriteL ine($file, $tableHeads[$j] &@TAB &”:” & $tableCell & @CRLF)

;If $j = 11 Then

; FileWriteLine($file, $tableCell & @CRLF & “===================================================================”)

;EndIf

Next

Next

Sleep(400)

_Excel_BookSave($oWorkbook)

Sleep(400)

_Excel_BookClose($oWorkbook)

_Excel_Close($oExcel)

;FileClose($file)

Sleep(400)

WinClose($wintitle)

郑重声明:本文内容及图片均整理自互联网,不代表本站立场,版权归原作者所有,如有侵权请联系管理员(admin#wlmqw.com)删除。
(0)
用户投稿
上一篇 2022年6月12日
下一篇 2022年6月12日

相关推荐

  • 吴亚军财富缩水百亿,杨惠妍重回中国女首富

    房财经讯 仅仅过了一周,中国女首富又变了,杨惠妍取代吴亚军。 吴亚军财富缩水百亿,杨惠妍重回中国女首富 房财经 · 2022/08/11 08:56 阅读: 3142 评论: 0 …

    2022年8月12日
  • 王思聪已退出万达集团董事职务 这意味着什么?

    王思聪,是万达集团董事长王健林的独子。据天眼查信息,近日,王思聪已退出万达集团董事职务。此消息一经报道,立刻引发舆论不小的关注。这意味着什么?下面,我们一起来具体了解一下吧。 信息…

    2022年8月30日
  • 中电建四川设计咨询公司数据治理工作首战告捷

    数据治理是公司实现数据贯通、业务协同的必经之路。自5月20日召开数据治理实施项目启动会以来,信息中心与中翰软件组成的项目组战高温,斗酷暑,抢进度,保质量,全力推进数据治理体系落地。…

    2022年8月8日
  • 吉利集团的收购之路-全球买买买

    吉利集团的全称为浙江吉利控股集团有限公司,始建于1986年,1997年进军汽车制造业,一直专注实业。现资产总值超5100亿元,员工总数超过12万人,连续十一年进入《财富》世界500…

    2022年9月5日
  • 字节跳动更新集团LOGO 此前已正式更名为抖音集团

    据悉,字节跳动官方账号在抖音、微信公众号等平台更新了集团LOGO,新LOGO摘除了“字节跳动”的汉字元素,配色与飞书LOGO相似。 今年5月,香港公司注册处网站显示,字节跳动(香港…

    2022年10月13日
  • 这35项“卡脖子”问题只是冰山一角,除了核心技术,我们还缺什么

    作者系《科技日报》原总编辑刘亚东 去年夏天,刘亚东在中国科技会堂的科学传播沙龙上,做题为“除了那些核心技术,我们还缺什么”的即席演讲,介绍了《科技日报》推出“亟待攻克的核心技术”栏…

    2022年6月16日
  • 展望下半年:“机器人”行业投资展望及深度解析(附龙头公司)

    保本、守心、求突破,每天思考一点,且行且珍惜[玫瑰] 随着经济高质量的发展,新兴行业在A股的权重大幅增加,像光伏、风电、军工、5G、医药医疗、元宇宙、智能驾驶、大数据与云计算、高端…

    2022年7月7日
  • 北上资金,增持前50股和减持前50股

    详细可查看下面图片表格 股票简称 陆股通卖出22.08.05 股票简称 陆股通买入22.08.05 排名 三花智控 -8.07 亿 伊利股份 3.90 亿 1 通威股份 -5.54…

    2022年8月7日
  • 博州促进旅游市场全面复苏十条措施

    1、全面开放27家A级旅游景区。优化组合州内及周边游产品,指导各县市、赛管委,旅行社推出40余条休闲游、度假游、康养游、体验游、乡村游等“一日游、多日游”精品旅游线路消费套餐和产品…

    2022年8月31日
  • 工信部:医疗领域机器人应用优秀场景名单公示

    6月13日,工业和信息化部网站公示了拟入选的农业、建筑、医疗、矿山领域机器人应用优秀场景名单。 其中,医疗领域机器人应用优秀场景公示名单包括辅助诊断机器人、康复机器人、配送转运机器…

    2022年6月21日

联系我们

联系邮箱:admin#wlmqw.com
工作时间:周一至周五,10:30-18:30,节假日休息