|  | 
 
 楼主|
发表于 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()
 
 
 
 
 | 
 |