Home Automation Domotica Forum Europe, Bwired Forum

@Wifi: You need to use the vb extension for the script name

Rene.

LOL.. I've got BV

--

<blockquote id="quote"><font size="1" face="Verdana, Arial, Helvetica" id="quote">quote:<hr height="1" noshade id="quote"><i>Originally posted by Bwired</i>
I'm thinking about selling this data to the highest bidder
<hr height="1" noshade id="quote"></font id="quote"></blockquote id="quote">
As long as Nieuwegein is plotted where it is right now, you won't get 1 cent [:D][:D]

Hmmm<blockquote id="quote"><font size="1" face="Verdana, Arial, Helvetica" id="quote">quote:<hr height="1" noshade id="quote"> Error 1 Running script xml2bwired.vb :method not found <hr height="1" noshade id="quote"></font id="quote"></blockquote id="quote">
It's not my day..

--

Chak is covering up his real location;-)

Rene.

this is what I have.
<blockquote id="quote"><font size="1" face="Verdana, Arial, Helvetica" id="quote">quote:<hr height="1" noshade id="quote">Imports System.IO
Imports System.Net
Imports System.Text

sub main(parms As Object)
const url = "http://www.bwired.nl/Bwiredservice/receive.asp"
const screenname="wifi"
const name="wifi"
const passwd="xxxxxxx"
const city="Almere"
const gpslat="52.364463"
const gpslong="5.068431"
const title="Home"
const temp ="[5"
dim myXML
dim xmlhttp

myXML = hs.CreateStringClass
myXML.Add("<?xml version=""1.0"" encoding=""UTF-8"" ?>")
myXML.Add("<BWired>")
myXML.Add("<Init>")
myXML.Add("<DateTime>" & Now() & "</DateTime>")
myXML.Add("<UserName>" & name & "</UserName>")
myXML.Add("<Password>" & passwd & "</Password>")
myXML.Add("<ScreenName>" & screenname & "</ScreenName>")
myXML.Add("<Gpslat>" & gpslat & "</Gpslat>")
myXML.Add("<Gpslong>" & gpslong & "</Gpslong>")
myXML.Add("<City>" & city & "</City>")
myXML.Add("<Website />")
myXML.Add("<WebCamPicUrl />")
myXML.Add("<Title>" & title & "</Title>")
myXML.Add("</Init>")
myXML.Add("<Entry>")
myXML.Add("<Name>Outside Temperature</Name>")
myXML.Add("<ID>1</ID>")
myXML.Add("<Units>C</Units>")
myXML.Add("<Value>" & CStr(hs.DeviceValue(temp) / 10).Replace(",", ".") & "</Value>")
myXML.Add("</Entry>")
myXML.Add("</BWired>")

xmlhttp = WebRequest.Create(url)
xmlhttp.Method = "POST"
Dim byteArray As Byte() = Encoding.UTF8.GetBytes(myXML.Value)
xmlhttp.ContentType = "text/xml"
xmlhttp.ContentLength = byteArray.Length
Dim dataStream As Stream = xmlhttp.GetRequestStream()
dataStream.Write(byteArray, 0, byteArray.Length)
dataStream.Close()
Dim response As WebResponse = xmlhttp.GetResponse()
response.Close()

myXML.Reset
End Sub<hr height="1" noshade id="quote"></font id="quote"></blockquote id="quote">

--

@Wifi: I don't know what is causing this error, seems something to do with .Net

@Chak: You are probably using the coordinates you configured in Homeseer by choosing the Amsterdam presets.

Rene.

Ok, I'm in. Sent a sample for authorisation.

<blockquote id="quote"><font size="1" face="Verdana, Arial, Helvetica" id="quote">quote:<hr height="1" noshade id="quote"><i>Originally posted by wifi</i>
<br />Hmmm[quote] Error 1 Running script xml2bwired.vb :method not found <hr height="1" noshade id="quote"></font id="quote"></blockquote id="quote">Chak Or Rene can you mail wifi the script, perhaps that helps, could be something in the format etc, then we can rule those things out!

52.052846;5.093622
This what I'm using.
did change it few times to see why it was not working

We got out first foreigner (Belgium) on the data service! [:)]
Welcome Droezel!

@chak: you are all set now, Coordinates changed.

Okay.
I redid the script, and it looks like I've got it working (no clue why it did not work 1st)
So.. You should see some stuff comig in from me'. At the moment only one device, but I will be adding more later.

--

Works, saw you coming in!
I authorized you, so if you send again you are on the map (close to Rene )

Data is on it's way.
Re: close to Rene.
Yes I (we) know. Just as well that I have a netfilter

--

Welcome Wifi, you're there