|
楼主 |
发表于 2020-9-26 09:20:21
|
显示全部楼层
本帖最后由 goldsuper7 于 2020-9-26 09:40 编辑
#include <RPA.au3>
#include <GDIPlus.au3>
_GDIPlus_Startup()
$User="Admin"
$Password="PASSWORD"
$Company="01"
run("C:\NT357\NT357.exe")
Opt("WinTitleMatchMode", 4)
Opt("SendKeyDelay", 500)
WinWait("正航系列","註冊")
ControlSetText("正航系列","註冊","TcxCustomCHIInnerTextEdit2",$User)
ControlSetText("正航系列","註冊","TcxCHITextEdit1",$Password)
ControlSetText("正航系列","註冊","TcxCustomCHIComboBoxInnerEdit2",$Company)
ControlClick("正航系列","註冊","TCPlasticButton3")
SearchMouseClick2("圖型選單")
SearchMouseClick2("圖型選單-庫存管理")
SearchMouseClick2("圖型選單-庫存管理-銷貨憑單")
SearchMouseClick2("新增")
ControlClick("[Title:正航系列]", "","[CLASS:TCDBTextEdit;INSTANCE:1]","left",1)
Send("A01001")
ControlClick("[Title:正航系列]", "","[CLASS:TCDBEdit;INSTANCE:28]","left",1)
SearchMouseClick2("產品編號")
SearchMouseClick2("產品編號輸入")
SearchMouseClick2("輸入多選")
Send("SD000138")
Send("{Enter}")
SearchMouseClick2("多選全選")
SearchMouseClick2("多選取回")
SearchMouseClick2("修改數量")
SearchMouseClick2("數量輸入")
Send("5")
Send("{Enter}")
SearchMouseClick2("數量取回")
SearchMouseClick1("修改單數行單價")
Send("129")
Send("{DOWN}");下一筆
Send("SD000001")
SearchMouseClick1("修改雙數行數量1")
Send("2")
SearchMouseClick1("修改雙數行單價")
Send("129")
Send("{DOWN}");下一筆
Send("SD000002")
SearchMouseClick1("修改單數行數量1")
Send("2")
SearchMouseClick1("修改單數行單價")
Send("129")
SearchMouseClick2("存檔")
_GDIPlus_Shutdown()
|
|