executescript.vbs

来自「ccp」· VBS 代码 · 共 16 行

Set Application = CreateObject("CANape.Application")

Set WSHShell = WScript.CreateObject("WScript.Shell")
path = WSHShell.RegRead("HKLM\SOFTWARE\VECTOR\CANape\Path")

Call Application.Open(path+"\CCPsim",1)
Call Application.Devices.Add("CCPsim", "CCPsim.A2L", "CCP", 1)

Call Application.RunScript(path+"\CCPsim\demo.scr")

Call Application.Devices.Clear()
Call Application.Quit()

Set Application = Nothing