Re: I cant set the target for my xAP packet in VB.NET

["jimfranklin63" <jimfranklin63@xxxxxxxxxxx>]

--- In xap_automation@xxxxxxx, "jimfranklin63"
<jimfranklin63@...> wrote:
>
> Hi,
> I am new to this xAP stuff, but I have got a simple vb6 app talking
> to the X10 connector, and I can turn stuff on and off ok.
>
> Ideally I'd like to write it all in VB.NET but i cant figure out
the  syntax to set the target address.


This is the fix in case anyone needs it (new to .net?)

Private Sub SendMessage(ByVal Device As String, ByVal Command As
String)
Dim xsender As New xAPSender
Dim add As New xAPTargetAddress  ' This is the target object
Dim Message As xAPMessage
Dim block As xAPMessageBlock

Message = New xAPMessage()
Message.Header = New xAPHeader()
Message.Header.Class.FullName = "xAP-X10.Request"

add.Vendor = "ERSP"    ' Set the stuff in here
add.Device = "X10"
add.Instance = "DEVPC"
Message.Header.Target = add

block = New xAPMessageBlock("xAP-X10.Request")
block.Add("command", Command)     ' <--- ON/OFF etc
block.Add("device", Device)       ' <--- A1 A2 etc

Message.AddMessageBlock(block)

xsender.Connect()
xsender.Send(Message)
xsender.Close()

-- Now that is very sad, I am even talking to myself on the
newsgroups now.