Public Class Form1


    Private Skype As New SKYPE4COMLib.Skype
    Private Const BLANK As String = ""

#Region ".:Set-Up:."


    Private Sub TabPage1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage1.Click

    End Sub

    Private Sub NewButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewButton1.Click
        Skype.Client.Start(True)
    End Sub

    Private Sub NewButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewButton2.Click
        Skype.Attach(5, False)
    End Sub

    Private Sub NewButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewButton3.Click
        Environment.Exit(1)
    End Sub
#End Region

#Region ".:Spammer:."
    Private Function CheckTextValid() As Boolean
        If ((NewTextBox1.Text <> BLANK) And ((RichTextBox1.Text <> BLANK))) Then
            Return True
        End If
        Return False
    End Function



    Private Sub NewButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewButton4.Click
        If CheckTextValid() Then
            Timer1.Enabled = True
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Skype.SendMessage(NewTextBox1.Text, RichTextBox1.Text)
    End Sub

    Private Sub NewButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewButton5.Click
        If Timer1.Enabled = True Then
            Timer1.Enabled = False
        Else
            MessageBox.Show("Spammer was not running!")
        End If
    End Sub
#End Region

#Region ".:Send Message To All:."

    Private Sub NewButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewButton6.Click

        If ((RichTextBox2.Text <> BLANK)) Then
            For Each Contact As SKYPE4COMLib.User In Skype.Friends
                If Skype.User(Contact.Handle()).OnlineStatus = SKYPE4COMLib.TOnlineStatus.olsOnline Then
                    Skype.SendMessage(Contact.Handle(), RichTextBox2.Text)
                End If

            Next
        Else

            MessageBox.Show("Enter Text First!")

        End If
    End Sub


    Private Sub NewButton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewButton7.Click


        If ((RichTextBox2.Text <> BLANK)) Then
            For Each Contact As SKYPE4COMLib.User In Skype.Friends
                Skype.SendMessage(Contact.Handle(), RichTextBox2.Text)
            Next
        Else

            MessageBox.Show("Enter Text First!")
        End If

    End Sub

#End Region

#Region ".:Art:."
    Private Sub NewButton8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewButton8.Click
        Timer2.Enabled = True
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Skype.ChangeUserStatus(SKYPE4COMLib.TUserStatus.cusOffline)
    End Sub

    Private Sub NewButton9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewButton9.Click
        Timer2.Enabled = False
    End Sub

    Private Sub NewButton10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewButton10.Click
        Skype.ChangeUserStatus(SKYPE4COMLib.TUserStatus.cusOnline)
    End Sub

    Private Sub NewButton11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewButton11.Click
        Skype.ChangeUserStatus(SKYPE4COMLib.TUserStatus.cusOffline)
    End Sub

    Private Sub NewButton12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewButton12.Click
        Skype.ChangeUserStatus(SKYPE4COMLib.TUserStatus.cusAway)
    End Sub

    Private Sub NewButton13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewButton13.Click
        Skype.ChangeUserStatus(SKYPE4COMLib.TUserStatus.cusDoNotDisturb)
    End Sub

    Private Sub NewButton15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Skype.SendMessage(NewTextBox2.Text, RichTextBox3.Text)
    End Sub

    Private Sub NewButton14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewButton14.Click
        Skype.SendMessage(NewTextBox2.Text, RichTextBox3.Text)
    End Sub

    Private Sub NewButton15_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewButton15.Click
        Skype.SendMessage(NewTextBox2.Text, RichTextBox4.Text)
    End Sub

    Private Sub NewButton16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewButton16.Click
        Skype.SendMessage(NewTextBox2.Text, RichTextBox5.Text)
    End Sub

    Private Sub NewButton17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewButton17.Click
        Skype.SendMessage(NewTextBox2.Text, RichTextBox6.Text)
    End Sub

    Private Sub NewButton18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewButton18.Click
        Skype.SendMessage(NewTextBox2.Text, RichTextBox7.Text)
    End Sub

    Private Sub NewButton19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewButton19.Click
        Skype.SendMessage(NewTextBox2.Text, RichTextBox8.Text)
    End Sub

    Private Sub NewButton20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewButton20.Click
        Skype.SendMessage(NewTextBox2.Text, RichTextBox9.Text)
    End Sub

    Private Sub NewButton21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewButton21.Click
        Skype.SendMessage(NewTextBox2.Text, RichTextBox10.Text)
    End Sub
#End Region

End Class