setvalue.vbs

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

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)
Set Device = Application.Devices("CCPsim")
Call Device.CalibrationObjects.Add("ampl")
Set ampl = Device.CalibrationObjects("ampl")

ampl.value = 1
Call ampl.Write()

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

Set ampl = Nothing
Set Device = Nothing
Set Application = Nothing