Jeg eksperimenterte med noe sånt da "Norges Smarteste Hjem"-serien gikk. Jeg lastet opp statuser via FTP mitt eget domene, og så skulle utviklergjengen hos TU.no lese statusene fra en tekstfil og implementere temperaturmålinger, støvsuger-status og status på postkassen i artikkelen. Men det ble pga. tidsnød aldri ferdig implementert, selv om alt var klart.
Sub Main(ByVal input As Object)
Dim dev As Scheduler.Classes.DeviceClass = hs.GetDeviceByRef(CInt(input.ToString))
Dim lastchange As Date = hs.DeviceLastChangeRef(CInt(input.ToString))
Dim msg As String = "Last change: " & lastchange.ToShortDateString & " " & lastchange.ToShortTimeString
msg += vbNewLine
msg += "Status: " & hs.CAPIGetStatus(CInt(input.ToString)).Status
Dim filename As String = dev.Name(hs).ToLower.Replace(" ", "_") & ".txt"
My.Computer.FileSystem.WriteAllText("c:\" & filename, msg, False)
My.Computer.Network.UploadFile("c:\" & filename, "ftp://dittdomene.com/dinplassering/" & filename, "FTP-BRUKERNAVN", "PASSORD")
End Sub
Da må du riktignok scripte lesing av status-filer, men det burde jo også la seg gjøre.