Macro: Send Message with incrementing ID

[H31nZ]

Hi,
i want to write a macro that lets me send a CAN-message with an incrementing ID, something like:

while i < 799h
Send 1 i 2 12h 34h
Wait 10
i++
wend

As i don't know anything about VBS i am having trouble bringing this to life!
Can anyone please help me?
Thanks and Greetings

[K.Wolf]

Hi,
this VBS macro should do it:

Code: Select all

Sub IncrementID()
  Dim msg, id
  Set msg = Connections.TransmitMessages.Add
  Set msg.Connection = Connections(1)
  msg.DLC = 2
  msg.Data(0) = &H12
  msg.Data(1) = &H34
  For id = 0 To &H799
    msg.ID = id
    msg.Write 0
    Wait 10
  Next
End Sub

[H31nZ]

Works like a charm!
Thank you