writememory.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")

adr = 25000
a = 1970

'Error in this call, type variant not available in wsh
'Device.WriteMemory(adr,a)

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

Set Device = Nothing
Set Application = Nothing