07/07/19 22:47:38 3AxwVwz50
JOUTAI = SLCTBOX(SLCT_BTN,0,"状態","わからない","やっぱりわからない","それでもわからない")
ifb JOUTAI = 1
EXEC("hh "+GET_UWSC_DIR+"\uwsc.chm")
elseif JOUTAI = 2
SCKey(GetID("【マクロ】 UWSC Part3 【シェアウェア化】"),VK_Ctrl,F)
elseif JOUTAI = 4
SendMsg(GetID("","Shell_TrayWnd"),401)
SendStr(0,"URLﾘﾝｸ(www.google.co.jp))
MouseOrg(GETCTLHND(GetID("ファイル名を指定して実行","#32770"),"ComboBox",1),2)
KBD(VK_Ctrl,1); KBD(VK_V); KBD(VK_Ctrl,2);
MouseOrg(0)
SendMsg(GetID("ファイル名を指定して実行","#32770"),1)
endif
Procedure SendMsg(WID,CID)
DEF_DLL SendMessageA(hwnd, uint, uint, long): long: user32.dll
SendMessageA(IDTOHND(WID), 273, CID, 0)
FEnd