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)