Bwired Googlemaps upload data webservice

Post by **Rene** » Sun Mar 15, 2009 12:23 pm

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

Rene.

Post by **Noel** » Sun Mar 15, 2009 12:27 pm

LOL.. I've got BV

--

Post by **Digit** » Sun Mar 15, 2009 12:27 pm

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

Post by **Noel** » Sun Mar 15, 2009 12:32 pm

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

--

Post by **Rene** » Sun Mar 15, 2009 12:33 pm

Chak is covering up his real location;-)

Rene.

Post by **Noel** » Sun Mar 15, 2009 12:34 pm

this is what I have.
<blockquote 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"></blockquote id="quote">

--

Post by **Rene** » Sun Mar 15, 2009 12:40 pm

@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.

Post by **Droezel** » Sun Mar 15, 2009 12:49 pm

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

Post by **Bwired** » Sun Mar 15, 2009 12:51 pm

<blockquote id="quote">quote:<hr height="1" noshade id="quote">Originally posted by wifi
 Hmmm[quote] Error 1 Running script xml2bwired.vb :method not found <hr height="1" noshade 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!

Post by **TANE** » Sun Mar 15, 2009 12:53 pm

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

Post by **Bwired** » Sun Mar 15, 2009 1:01 pm

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

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

Post by **Noel** » Sun Mar 15, 2009 1:45 pm

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.

--

Post by **Bwired** » Sun Mar 15, 2009 1:48 pm

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

)

Post by **Noel** » Sun Mar 15, 2009 1:51 pm

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

--

Post by **Bwired** » Sun Mar 15, 2009 1:55 pm

Welcome Wifi, you're there