自動化ツールUWSC使いよ集まれ21

**名無しさん＠お腹いっぱい。** · 2018/10/24(水) 14:58:56.10

続き

---- Irvine側 UWSCスクリプト ----
dim data = GETSTR(0)
if !(Pos("＠URL:", data) * Pos("＠FileName:", data))
　SOUND("beep")
　exitexit
endif

ObjJS = CreateOLEObj("ScriptControl")
ObjJS.Language = "JScript"
dim src = "var m='"+data+"'.match(/＠URL:(.*)＠FileName:(.*)/);"
ObjJS.Eval(src)
SENDSTR( 0, trim(ObjJS.Eval("m[1];")) )

irMainID = GETID("Irvine","TfrmMain")
SCKEY(irMainID, VK_INSERT)

irID = GETID("アイテム設定", "TfrmFolder", -1)
SENDSTR( irID, trim(ObjJS.Eval("m[2];")), 8, true )
CLKITEM( irID, "OK", CLK_BTN )

SENDSTR(0, "")
---- ここまで ----