uwsc 定型作業自動マクロ テスト
★アプリ単体で立ち上げたver★
//全角入力の場合は半角入力に直しておく
IF GETKEYSTATE(TGL_IME) THEN KBD(VK_KANJI,CLICK)
//同じタイトルのウィンドウを探して一旦閉じる
FOR i = 0 TO GETALLWIN()-1
IF POS( "MAGI" ,STATUS(ALL_WIN_ID[i],ST_TITLE) ) <> 0 THEN
CTRLWIN(ALL_WIN_ID[i], CLOSE2)
ENDIF
NEXT
//起動するバッチファイル
EXEC("", FALSE)
DIM Get_ID = GETID("MAGI")
CTRLWIN( Get_ID, ACTIVATE)
SENDSTR(Get_ID, "内容", 0)
CLKITEM(Get_ID, "ファイル\名前を付けて保存", CLK_MENU)
ACW(GETID("名前を付けて保存", "#32770"))
KBD(VK_SHIFT, DOWN,100)
KBD(VK_TAB, CLICK,100)
KBD(VK_TAB, CLICK,100)
KBD(VK_SHIFT, UP,100)
★複数アプリを一度に立ち上げたver★
//全角入力の場合は半角入力に直しておく
IF GETKEYSTATE(TGL_IME) THEN KBD(VK_KANJI,CLICK)
//同じタイトルのウィンドウを探して一旦閉じる
FOR i = 0 TO GETALLWIN()-1
IF POS( "タイトル" ,STATUS(ALL_WIN_ID[i],ST_TITLE) ) <> 0 THEN
CTRLWIN(ALL_WIN_ID[i], CLOSE2)
ENDIF
NEXT
DIM Get_ID[GETALLWIN()]
DIM cnt = 0
//起動するバッチファイル
EXEC("notepad")
EXEC("notepad")
FOR i = 0 TO GETALLWIN()-1
IF POS( "タイトル" ,STATUS(ALL_WIN_ID[i],ST_TITLE) ) <> 0 THEN
Get_ID[cnt] = ALL_WIN_ID[i]
cnt = cnt + 1
ENDIF
NEXT
CTRLWIN(Get_ID[0], ACTIVATE)
SCKEY(Get_ID[0], VK_SHIFT, VK_CTRL,VK_S)
KBD(VK_SHIFT,UP,50)
KBD(VK_CTRL,UP,50)
DIM SAVE_winID = GETID("名前を付けて保存", "#32770")
ACW(SAVE_winID)
//アドレスバーを選択
KBD(VK_F4,CLICK,50)
SCKEY(SAVE_winID, VK_CTRL, VK_A)
KBD(VK_CTRL,UP,50)
KBD(VK_DELETE,CLICK,50)
SENDSTR(SAVE_winID, "C:\Users\ya570\Desktop", 0)
KBD(VK_ENTER,CLICK,50)
//ファイル名テキストボックスを選択
SCKEY(SAVE_winID, VK_ALT, VK_N)
KBD(VK_DELETE,CLICK,50)
KBD(VK_ALT,UP,50)
SENDSTR(SAVE_winID, "ファイル名0", 0)
CTRLWIN(Get_ID[1], ACTIVATE)
SCKEY(Get_ID[1], VK_SHIFT, VK_CTRL,VK_S)
KBD(VK_SHIFT,UP,50)
KBD(VK_CTRL,UP,50)
DIM SAVE_winID1 = GETID("名前を付けて保存", "#32770")
ACW(SAVE_winID1)
//アドレスバーを選択
KBD(VK_F4,CLICK,50)
SCKEY(SAVE_winID1, VK_CTRL, VK_A)
KBD(VK_CTRL,UP,50)
KBD(VK_DELETE,CLICK,50)
SENDSTR(SAVE_winID1, "C:\Users\ya570\Desktop\uwsc5302", 0)
KBD(VK_ENTER,CLICK,50)
//ファイル名テキストボックスを選択
SCKEY(SAVE_winID1, VK_ALT, VK_N)
KBD(VK_DELETE,CLICK,50)
KBD(VK_ALT,UP,50)
SENDSTR(SAVE_winID1, "ファイル名1", 0)
この記事が気に入ったらサポートをしてみませんか?