- 492 名前:名無しさん@お腹いっぱい。 [2018/10/24(水) 14:58:56.10 ID: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, "") ---- ここまで ----
|
|