Passaram-me recentemente os albuns destes senhores e sem dúvida recomendo totalmente

Podem ouvi-los no myspace ou no last.fm

Aproveitem Tentem aproveitar alguma destas promoções na FNAC.

Lembrei-me de andar a brincar um bocadinho com a API do Twitter e nada melhor que um exemplo prático para testar

O que o código abaixo faz é o seguinte:

1º – Usa o site http://checkip.dyndns.org/ para extrair o IP público actual.

2º – Saca o arquivo de estados da conta do Twitter e vai buscar o último IP (ultimo estado)

3º – Actualiza o estado da conta do Twitter com o novo IP no caso de ser diferente do devolvido no ponto 2.

        '###############################################
        ' update your ip address to a twitter account
        '###############################################

        Dim c As CredentialCache = New CredentialCache
        Dim w As WebClient = New WebClient
        Dim newIP As String = ""
        Dim oldIP As String = ""

        Try
            ' get external ip address
            newIP = w.DownloadString("http://checkip.dyndns.org/")
            Dim regex As New Regex("<[^>]*>")
            newIP = regex.Replace(newIP, "")
            newIP = newIP.Substring(newIP.IndexOf(":") + 1).Trim

            'carrega as credenciais
            c.Add(New Uri("http://twitter.com"), "Basic",
New NetworkCredential("NomeUtilizador", "Password"))
            w.Credentials = c

            ' load archive to get last ip address
            Dim archive As String =
w.DownloadString("http://twitter.com/account/archive.xml")
            Dim _archive As New XmlDocument
            _archive.LoadXml(archive)

            'get ip address from first childnode (last update node)
            oldIP = _archive.SelectSingleNode("statuses").
FirstChild("text").InnerText.Trim

            ' compare new and old ip address and update if <>
            If Not String.Equals(newIP, oldIP) Then
                ' prepare postvar
                Dim pd As String = "status=" + newIP.ToString
                Dim pdArray As Byte() = Encoding.ASCII.GetBytes(pd)
                Dim responseArray As Byte() =
w.UploadData("http://twitter.com/statuses/update.xml", "POST", pdArray)

                Dim _status As New XmlDocument
                'load into xmldocument the http response
                _status.LoadXml(Encoding.ASCII.GetString(responseArray))
                'update successful ?
                If String.Equals(_status.SelectSingleNode("status/text").
InnerText.Trim, newIP) Then
                    ' yeah o/ i've done it !!!
                End If
            Else
                ' no update necessary ...
            End If

        Catch ex As Exception
            Debug.Print(ex.ToString)
        End Try

Para isto funcionar, cria uma conta no Twitter só para ter os IPs actualizados e depois na conta principal vai a esta conta e faz o Follow ( activar a opção “Device Updates” e associar o nº de telemovel à conta ).

Podem fazer o download da solução com este código na página de projectos.

Hoje reparei que o acesso por webmail era diferente. Estão em fase de mudanças e pelo que parece para bem melhor. Apesar de não ter razão de queixa com o serviço acho que já era mais que hora de mudarem a imagem para algo mais “wow”

Está prestes a sair, mas já o podem ouvir gratuitamente aqui.

Já tinha referido aqui que também iriamos ter a possibilidade de ver o U23D. Quem tiver interessado, dia 2 de Abril será a antestreia nos cinemas Lusomundo.

nota: se quiserem um convite duplo para a antestreia, adiram ao cartão Fnac que recebem automáticamente

Já há bastante tempo que andava para trocar o velhinho CRT de 17” por um com maior área de trabalho e por sua vez TFT. A escolha foi o Samsung 226BW e faz amanhã 1 semana que o tenho e ainda não encontrei nada de mau neste monitor. Garantidamente é um monitor recomendado.

+ info

As redes sociais vieram mesmo para ficar. Agora até já existe uma para o maior prazer a seguir a uma bela refeição e antes do licor beirão que é, o CAFÉ !! Esta rede chama-se Coffeenatic e tem o que normalmente se encontra num sitio deste tipo, além de um espaço onde partilham as receitas para fazer vários tipos de café

Apesar de não dar qualquer tipo de importância a este dia, desejo a todos uma boa páscoa

Já está aí o SP1 para o Windows Vista. Façam o download para 32bits aqui ou para 64bits aqui (ambos em inglês).