有沒有開發(fā)過使用pos機(jī)的軟件,自己動(dòng)手用autoit實(shí)現(xiàn)用友NC憑證查詢和下載的RPA機(jī)器人

 新聞資訊  |   2023-05-11 09:14  |  投稿人:pos機(jī)之家

網(wǎng)上有很多關(guān)于有沒有開發(fā)過使用pos機(jī)的軟件,自己動(dòng)手用autoit實(shí)現(xiàn)用友NC憑證查詢和下載的RPA機(jī)器人的知識(shí),也有很多人為大家解答關(guān)于有沒有開發(fā)過使用pos機(jī)的軟件的問題,今天pos機(jī)之家(www.tjfsxbj.com)為大家整理了關(guān)于這方面的知識(shí),讓我們一起來看下吧!

本文目錄一覽:

1、有沒有開發(fā)過使用pos機(jī)的軟件

有沒有開發(fā)過使用pos機(jī)的軟件

類似效果實(shí)例

#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, "財(cái)務(wù)會(huì)計(jì)", "page tab")

Sleep(200)

Send("{DOWN 5}")

Sleep(200)

$base_ac = _JAB_getAccessibleContextByFindAll($vmId, $ac, "基礎(chǔ)檔案及規(guī)則", "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] = ["分錄號(hào)", "摘要", "科目", "輔助核算", "幣種", "原幣", "組織本幣(借方)", "組織本幣(貸方)", "集團(tuán)本幣(借方)", "集團(tuán)本幣(貸方)", "全局本幣(借方)", "全局本幣(貸方)"]

;$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)

以上就是關(guān)于有沒有開發(fā)過使用pos機(jī)的軟件,自己動(dòng)手用autoit實(shí)現(xiàn)用友NC憑證查詢和下載的RPA機(jī)器人的知識(shí),后面我們會(huì)繼續(xù)為大家整理關(guān)于有沒有開發(fā)過使用pos機(jī)的軟件的知識(shí),希望能夠幫助到大家!

轉(zhuǎn)發(fā)請(qǐng)帶上網(wǎng)址:http://www.tjfsxbj.com/news/39761.html

你可能會(huì)喜歡:

版權(quán)聲明:本文內(nèi)容由互聯(lián)網(wǎng)用戶自發(fā)貢獻(xiàn),該文觀點(diǎn)僅代表作者本人。本站僅提供信息存儲(chǔ)空間服務(wù),不擁有所有權(quán),不承擔(dān)相關(guān)法律責(zé)任。如發(fā)現(xiàn)本站有涉嫌抄襲侵權(quán)/違法違規(guī)的內(nèi)容, 請(qǐng)發(fā)送郵件至 babsan@163.com 舉報(bào),一經(jīng)查實(shí),本站將立刻刪除。