Codenstuff.com

Imports System.Text
Imports System.Windows.Forms.VisualStyles.VisualStyleElement
Imports TwitterVB2
Imports System.Net
Imports System.IO
Imports System.Drawing

Public Class UserControl1

    Dim TUser As String = My.Settings.Username
    Dim TPass As String = My.Settings.Password

    Public Update2 As String = "http://@twitter.com/statuses/update.xml"

    Private Sub UserControl1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtStatus.Visible = False
        RTBStatus.Visible = False
        CBCnSBrowser.Visible = False

        LLUpdate.Visible = False

        lblNoUser.Visible = False
        lblNoUser.Location = New System.Drawing.Point(23, 123)

        If txtUsername.Text = "" Or txtPassword.Text = "" Then
            Button1.Enabled = False
        Else
            Button1.Enabled = True
        End If

        PanelNewUser.BackgroundImage = My.Resources.bgclouds
        PanelNewUser.BackgroundImageLayout = Windows.Forms.ImageLayout.None

        PanelIsUser.BackgroundImage = My.Resources.bgclouds
        PanelIsUser.BackgroundImageLayout = Windows.Forms.ImageLayout.None

        ToolTip1.ShowAlways = True
        ToolTip1.ReshowDelay = 10
        ToolTip1.AutomaticDelay = 150
        ToolTip1.IsBalloon = True
        ToolTip1.UseAnimation = True
        ToolTip1.UseFading = True
        ToolTip1.SetToolTip(PBLargeText, "Increase Text Size")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If txtUsername.Text = "" Or txtPassword.Text = "" Then
            MsgBox("Please Fillout your Twitter Information")
        Else
            Try
                GetMyFreinds()
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try
        End If
    End Sub

    Public Sub GetMyFreinds()
        Try
            ' Get an instance of the Twitter class and authenticate
            Dim tw As New TwitterVB.Twitter
            tw.AuthenticateAs(txtUsername.Text, txtPassword.Text)
            ' Create a List of TwitterUser objects
            Dim MyFriends As List(Of TwitterVB.TwitterUser) = tw.UserMethods.Friends
            ' Iterate through the list and add the names to the listbox
            For Each User As TwitterVB.TwitterUser In MyFriends
                Me.lstFollowers.Sorted = True
                Me.lstFollowers.Items.Add(User.ScreenName)
            Next
            GetTLPanel()
            My.Settings.TUser = txtUsername.Text
            My.Settings.TPass = txtPassword.Text
            My.Settings.Save()
        Catch ex As Exception
            txtUsername.Text = ""
            txtPassword.Text = ""
            lblNoUser.Visible = True
        End Try
    End Sub

    Public Sub GetTLPanel()
        PanelNewUser.Visible = False
        PanelNewUser.SendToBack()

        PanelIsUser.Visible = True
        PanelIsUser.BringToFront()
        PanelIsUser.Dock = Windows.Forms.DockStyle.Fill

        lstFollowers.Location = New System.Drawing.Point(17, 17)
        lstFollowers.Size = New System.Drawing.Size(150, 420)
    End Sub

    Private Sub lstFollowers_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstFollowers.SelectedIndexChanged
        lstTimeLine.Items.Clear()
        GetUserTimelineWithParameters()
    End Sub

    Public Sub GetUserTimelineWithParameters()
        Dim tw As New TwitterAPI
        tw.AuthenticateAs(Username, Password) 'OR tw.AuthenticateAs(txtUsername.Text, txtPassword.Text)
        ' Specify that we want 50 statuses instead of the default 20
        Dim tp As New TwitterParameters
        tp.Add(TwitterParameterNames.Count, lstFollowers.SelectedItem)
        tp.Add(TwitterParameterNames.ScreenName, lstFollowers.SelectedItem)
        For Each status As TwitterStatus In tw.UserTimeline(tp)
            lstTimeLine.Items.Add(status.CreatedAt & ": " & status.Text)
            PBUserImage.Load(status.User.ProfileImageUrl.ToString)
            PBUserImage.SizeMode = Windows.Forms.PictureBoxSizeMode.StretchImage
            GroupBox1.Text = status.User.Name & " Twitter Information"
            lblDescription.Text = status.User.Description
            RTBStatus.Tag = status.User.Url
            If RTBStatus.Visible = True Then
                RTBStatus.Visible = False
                CBCnSBrowser.Visible = False
                lblDescription.Visible = True
            End If
        Next
    End Sub

    Public Sub GetMyTimeline()
        Dim tw As New TwitterAPI
        tw.AuthenticateAs(Username, Password) 'OR tw.AuthenticateAs(txtUsername.Text, txtPassword.Text)
        ' Specify that we want 50 statuses instead of the default 20
        Dim tp As New TwitterParameters
        tp.Add(TwitterParameterNames.Count, TUser)
        tp.Add(TwitterParameterNames.ScreenName, TUser)
        For Each status As TwitterStatus In tw.UserTimeline(tp)
            lstTimeLine.Items.Add(status.Text)
            PBUserImage.Load(status.User.ProfileImageUrl.ToString)
            PBUserImage.SizeMode = Windows.Forms.PictureBoxSizeMode.StretchImage
            GroupBox1.Text = status.User.Name & " Twitter Information"
            lblDescription.Text = status.User.Description
        Next
    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        lstTimeLine.Items.Clear()
        If txtStatus.Visible = True Then
            LLUpdate.Visible = False
            txtStatus.Visible = False
        End If
        Try
            GetMyTimeline()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

    Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
        GroupBox1.Text = "Update Status"
        lblDescription.Text = ""
        LLUpdate.Visible = True
        txtStatus.Visible = True
        txtStatus.Location = New System.Drawing.Point(18, 19)
        txtStatus.Size = New System.Drawing.Size(386, 49)
        RTBStatus.Visible = False
        CBCnSBrowser.Visible = False
    End Sub

    Public Function PostStatus(ByVal status As String) As String
        Dim ret As String
        Dim req As WebRequest = HttpWebRequest.Create(Update2)
        System.Net.ServicePointManager.Expect100Continue = False
        req.Credentials = New NetworkCredential(TUser, TPass)

        req.ContentType = "application/x-www-form-urlencoded"
        req.Method = "POST"
        Dim encoding As System.Text.ASCIIEncoding = New System.Text.ASCIIEncoding()
        Dim bt() As Byte = encoding.GetBytes(String.Format("status={0}", status))
        Dim s As Stream
        Try
            req.ContentLength = bt.Length
            s = req.GetRequestStream()
            s.Write(bt, 0, bt.Length)
        Catch ex As Exception
            Throw ex
        End Try
        Try
            'returns raw xml 
            Dim res As WebResponse = req.GetResponse()
            If res Is Nothing Then
                Return Nothing
            End If

            Dim sr As StreamReader = New StreamReader(res.GetResponseStream())
            ret = sr.ReadToEnd().Trim()
            sr.Close()
        Catch ex As Exception
            Throw ex
        End Try

        Return ret
    End Function

    Private Sub LLUpdate_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LLUpdate.LinkClicked
        PostStatus(txtStatus.Text)
        GroupBox1.Text = ""
        lblDescription.Text = "Status has been Updated!"
        LLUpdate.Visible = False
        txtStatus.Visible = False
        Timer1.Enabled = True
        Timer1.Interval = 1500
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        GroupBox1.Text = "Information Center"
        lblDescription.Text = "Description"
        Timer1.Stop()
    End Sub

    Private Sub LinkLabel3_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
        My.Settings.TUser = ""
        My.Settings.TPass = ""
        My.Settings.Save()
        MsgBox("You must restart the CnS Browser for the changes to take effect!")
    End Sub

    Private Sub txtPassword_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtPassword.KeyUp
        If txtUsername.Text = "" Or txtPassword.Text = "" Then
            Button1.Enabled = False
        Else
            Button1.Enabled = True
        End If
    End Sub

    Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PBLargeText.Click
        Dim fnt As Drawing.Font
        fnt = lstTimeLine.Font
        lstTimeLine.Font = New Drawing.Font(fnt.Name, 12, FontStyle.Regular)
    End Sub

    Private Sub lstTimeLine_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstTimeLine.SelectedIndexChanged
        RTBStatus.Visible = True
        RTBStatus.Location = New System.Drawing.Point(18, 19)
        RTBStatus.Size = New System.Drawing.Size(386, 52)
        RTBStatus.Text = lstTimeLine.SelectedItem.ToString()
        CBCnSBrowser.Visible = True
    End Sub

    Private Sub RTBStatus_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkClickedEventArgs) Handles RTBStatus.LinkClicked
        If CBCnSBrowser.Checked = True Then
            SlotAddIn.Interaction.GoURL(RTBStatus.Tag.ToString)
        Else
            System.Diagnostics.Process.Start(e.LinkText)
        End If
    End Sub

End Class