Emblemas

Energizado por OpenSource
Soporta RSS2
Soporta Atom
Soporta Debian Power User
Energizado por Hacker
Soporta Last.FM
Soporta Ubuntu
Energizado por MySQL

Quitter un cliente ligero y discreto de Twitter

Quitter es un cliente ligero de twitter, además es muy discreto para aquellos entornos en los cuales no te dejan tener el "Twitter" abierto en el navegador. Encontré este cliente de pura casualidad y sin estar buscándolo, cuando lo baje me dio algo de lata configurar lo pero luego de configurado funciona de maravilla.

Lo malo

El programa no te deja escribir acentos o Ñ's peeeeeero tengo un parche de 3 centavos para el código fuente que agrega esta pequeña funcionalidad y claro que si aquí está el parche para que se lo apliquen al código y puedan ser felices y comer perdices.

El parche



El Código Fuente

Este proyecto esta muy bien diseñado y prueba de esto es que copiando el Main del código todo esta claro como el agua:
Sub Main()
        Initialize()
        Dim QuitSelected As Boolean = False
        Do
            WriteLine()
            If _CurrentUser.ScreenName <> String.Empty Then
                WriteLine(String.Format("[{0} ({1})]", _CurrentUser.ScreenName, _HitsRemaining))
            End If
            Write(MAIN_PROMPT)
            Dim Choice As String = ReadKey("acdfhlpqrstu?x")
            Select Case Choice
                Case String.Empty
                    Write("Read ")
                    Read()
                Case "A"
                    WriteLine("About Quitter")
                    About()
                Case "C"
                    WriteLine("Configuration")
                    ConfigureMenu()
                Case "D"
                    Write("Direct messages ")
                    DirectMessageMenu()
                Case "F"
                    WriteLine("Follow user")
                    FollowUser()
                Case "L"
                    WriteLine("Open link")
                    OpenLink()
                Case "P"
                    WriteLine("Post")
                    PostUpdate()
                Case "Q"
                    WriteLine("Quit")
                    If ReadYesNo("Are you sure? (Y/N):") Then
                        QuitSelected = True
                    End If
                Case "R"
                    WriteLine("Reply")
                    Reply()
                Case "S"
                    WriteLine("Search")
                    Search()
                Case "T"
                    WriteLine("Re-tweet")
                    ReTweet()
                Case "U"
                    WriteLine("Unfollow user")
                    UnFollowUser()
                Case "?"
                    WriteLine("Help")
                    ShowHelp()
            End Select
        Loop Until QuitSelected
    End Sub
 
Trackback URI: http://blog.ernestohs.com/index.php/trackback/8

Dejar un comentario

Escribe el código Captcha que estás viendo

Fuentes XML de comentario: RSS | Atom