18/10/24 14:58:56.10 cc35n2Zt0.net
続き
---- 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, "")
---- ここまで ----