Recentemente ho letto un articolo dove si parlava di come far interagire la propria casa con la tecnologia attuale, scambiando dati anche tramite Internet. Si parlava della possibilità di far “parlare” la casa tramite un account Twitter. Quindi se si è fuori, e si è messo a cuocere nel forno il pollo con le patate, la nostra casa ci avviserà con un Twitt della fine cottura del nostro pranzo o cena che sia. E cosi via per gli altri ambiti che riguardano la sicurezza, manutenzione e programmazione della nostra casa. Affascinato da ciò, decido di scrivere un codice in VB.Net che permettesse di aggiornare lo stato di Twitter.
Try
Dim client As Net.WebClient = New Net.WebClient()
Dim message As Byte() = System.Text.Encoding.UTF8.GetBytes("status=" + "Prova invio twitt tramite vb.net")
client.Credentials = New Net.NetworkCredential(username,password)
System.Net.ServicePointManager.Expect100Continue = False
client.UploadData("http://twitter.com/statuses/update.xml", message)
Catch ex As Exception
MsgBox("Invio non effettuato. Errore: " & ex.ToString)
End Try
End Sub
Non dimenticate di importare la libreria .Net
Imports System.Net
Una possibile variante, è quella di creare una funzione che accetti come paramentri l’account, la password, ed il messaggio
SendTwitt(username,password,message)
Public Sub SendTwitt (ByVal username As String, ByVal password As String, ByVal message As String)
Try
Dim client As Net.WebClient = New Net.WebClient()
Dim post_message As Byte() = System.Text.Encoding.UTF8.GetBytes("status=" + message)
client.Credentials = New Net.NetworkCredential(username,password)
System.Net.ServicePointManager.Expect100Continue = False
client.UploadData("http://twitter.com/statuses/update.xml",post_ message)
Catch ex As Exception
MsgBox("Invio non effettuato. Errore: " & ex.ToString)
End Try
End Sub
Ora dovrò trovare il modo di “collegare”, e di scegliere cosa collegare, la mia casa al mio server principale, cosi da essere sempre informato quando sto fuori. Ricordo che il codice è adattabile anche in C#.Net.
