skype tool vb code

Imports System.Net

Public Class Form1
    Dim skype As New SKYPE4COMLib.Skype

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Try
            skype.Attach()
            MessageBox.Show("succès connected", "connected", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Label3.Text = ("connected")
            Label1.Text = ("Welcome: " + skype.CurrentUserProfile.FullName)

        Catch ex As Exception
            MessageBox.Show("Impossible de se connecté", "error!", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Label3.Text = ("déconnected")
            Label1.Text = ("Welcome: bhn3xak")
        End Try
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        skype.CurrentUserProfile.MoodText = TextBox1.Text

    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        skype.CurrentUserProfile.FullName = TextBox2.Text

    End Sub

    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        skype.CurrentUserProfile.RichMoodText = "<blink>" + TextBox3.Text + "</blink>"
    End Sub

    Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
        Me.BackColor = Color.FromArgb(255, 0, 0)
    End Sub

    Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
        Me.BackColor = Color.FromArgb(0, 0, 255)
    End Sub

    Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
        Me.BackColor = Color.FromArgb(0, 255, 0)
    End Sub

    Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
        For Each user As SKYPE4COMLib.User In skype.Friends
            skype.SendMessage(user.Handle, TextBox4.Text)
        Next
    End Sub

    Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click
        skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusOnline

    End Sub

    Private Sub Button10_Click(sender As System.Object, e As System.EventArgs) Handles Button10.Click
        skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusAway

    End Sub

    Private Sub Button11_Click(sender As System.Object, e As System.EventArgs) Handles Button11.Click
        skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusDoNotDisturb

    End Sub

    Private Sub Button12_Click(sender As System.Object, e As System.EventArgs) Handles Button12.Click
        skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusInvisible

    End Sub

    Private Sub Button13_Click(sender As System.Object, e As System.EventArgs) Handles Button13.Click
        skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusOffline

    End Sub

    Private Sub Button19_Click(sender As System.Object, e As System.EventArgs) Handles Button19.Click
        TextBox5.Text = skype.CurrentUserProfile.FullName
        TextBox6.Text = skype.CurrentUserProfile.Birthday
        TextBox7.Text = skype.CurrentUserProfile.Country
        TextBox8.Text = skype.CurrentUserProfile.Timezone
        TextBox9.Text = skype.CurrentUserProfile.PhoneMobile

    End Sub

    Private Sub Button20_Click(sender As System.Object, e As System.EventArgs) Handles Button20.Click
        skype.CurrentUserProfile.FullName = TextBox5.Text
        skype.CurrentUserProfile.Birthday = TextBox6.Text
        skype.CurrentUserProfile.Country = TextBox7.Text
        skype.CurrentUserProfile.Timezone = TextBox8.Text
        skype.CurrentUserProfile.PhoneMobile = TextBox9.Text

    End Sub

    Private Sub Button21_Click(sender As System.Object, e As System.EventArgs) Handles Button21.Click
        WebRequest.Create("http://webresolver.nl/api.php?key=4OENU-8A0V9-7APU6-280Q9&action=resolve&string=" + TextBox10.Text)
        TextBox13.Text = New System.Net.WebClient().DownloadString("http://webresolver.nl/api.php?key=4OENU-8A0V9-7APU6-280Q9&action=resolve&string=" + TextBox10.Text)
    End Sub

    Private Sub Button22_Click(sender As System.Object, e As System.EventArgs) Handles Button22.Click
        WebRequest.Create("http://webresolver.nl/api.php?key=4OENU-8A0V9-7APU6-280Q9&action=ip2skype&string=" + TextBox11.Text)
        TextBox15.Text = New System.Net.WebClient().DownloadString("http://webresolver.nl/api.php?key=4OENU-8A0V9-7APU6-280Q9&action=ip2skype&string=" + TextBox11.Text)
    End Sub

    Private Sub Button23_Click(sender As System.Object, e As System.EventArgs) Handles Button23.Click
        WebRequest.Create("http://webresolver.nl/api.php?key=4OENU-8A0V9-7APU6-280Q9&action=dns&string=" + TextBox12.Text)
        TextBox14.Text = New System.Net.WebClient().DownloadString("http://webresolver.nl/api.php?key=4OENU-8A0V9-7APU6-280Q9&action=dns&string=" + TextBox12.Text)
    End Sub
End Class