用友软件正版查询(用友产品防伪查询官网)
#include "Swing.au3"
#include <Excel.au3>
#include <Array.au3>
shellexecute("C:\Users\Admin\AppData\Local\UClient\apps\121c9f01-b00e-366b-ae6b-52e4cdd0d056\Launcher.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:\test.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)
相关内容
相关资讯
-
用友财务报表生成(如何用用友软件生成财务报表)
这是在线使用的云会计财务软件,财务报表自动生成,只需录入凭证后,资产负债表、利润表、现金流量表就会自动计算,实时生成,还有总账、明细账、科目余额表等各类账簿也会实时生成,对于广大会计人员和小企业来说,
-
证券投资中的数学(证券投资中的数学结题报告ppt)
经济学:重理论轻实践,本科很难就业,适合性情沉稳、爱研究、数学、英语功底较好的同学,未来就业方向对院校层次有较高的要求
-
ASD币是哪个交易所的平台币?一文了解AscendEX
被称为「2020最火」的AscendEX不断取得突破,相继为机构启动专线接入服务、上线Staking产品和DeFi挖矿产品、开启BitMax「大航海计划」与100多个头部全球加密社区建立合作关系,并上
-
正规虚拟币平台?正规虚拟币平台排名
虚拟货币投资交易正规平台,国内都有哪些中国最大的虚拟货币交易平台是比特币交易平台,知名度最高的三家是比特币中国、okcoin、火币网
-
方正中期期货if合约多少钱,方正中期期货app下载
方正言文祥E356开机总要按F1怎么办开机需要按下F1键才能进入,主要是因为BIOS中设置与真实硬件数据不符引起的,可以分为以下几种情况:1、实际上没有软驱或者软驱坏了,而BIOS里却设置有软驱,这样
实时快讯
-
2023-09-08虚拟货币差别太大(有什么本质区别吗?)
-
2023-09-08社保基金投资哪些股票了(社保基金投资的股票有哪些)
-
2023-09-08黄金强支撑位(黄金支撑线和压力线的确定)
-
2023-09-08虚拟货币2022牛市行情 什么方向最挣钱?
-
2023-09-08用友代理商 安徽(代理用友软件太难了吧)
-
2023-09-08广西社保年审软件(广西社保认证一年认证几回)
-
2023-09-08庞庄(庞庄小学)
-
2023-09-08北京万达信息股份有限公司(北京万达集团股份有限公司)