[mnjx]

Hello Guys ✌

Source Code for :



What you need :

Skype API

1x ListView (for the Skype Friends)
7x Labels(Label1 should be <Select from List> !!!)
1x BackgroundWorker
4x Buttons
5x Textboxes
1x NumericUpDown
1x ComboBox (ComboBoxItems : Online , Away , Busy , Show as Offline , Offline)

Source Code :

Form1_Load

Code

Dim Skype As New Skype
        For Each a As SKYPE4COMLib.User In Skype.Friends
            ListView1.Items.Add(a.Handle)
        Next

ListView1_SelectedIndexChanged

Code

Label1.Text = ListView1.SelectedItems(0).SubItems(0).Text
        If Label1.Text = "<Select from List>" Then
            ListView1.Enabled = True
        Else
            ListView1.Enabled = False

        End If

Button1(Spam)

Code

BackgroundWorker1.RunWorkerAsync()

BackgroundWorker

Code

Dim Skype As New Skype
        Dim textnum = NumericUpDown1.Value
        Do Until textnum = 0
            Skype.SendMessage(Label1.Text, TextBox1.Text)
            textnum -= 1
        Loop

ComboBox

Code

Dim Skype As New Skype
        If ComboBox1.Text = "Online" Then
            Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusOnline
        End If
        If ComboBox1.Text = "Away" Then
            Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusAway
        End If
        If ComboBox1.Text = "Busy" Then
            Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusDoNotDisturb
        End If
        If ComboBox1.Text = "Show as Offline" Then
            Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusInvisible
        End If
        If ComboBox1.Text = "Offline" Then
            Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusOffline
        End If

Button to change Name

Code

Dim Skype As New Skype
        Skype.CurrentUserProfile.FullName = (TextBox2.Text)

Button to change Status

Code

Dim Skype As New Skype
        Skype.CurrentUserProfile.MoodText = (TextBox3.Text)

Skype Resolver Button

Code

Dim SkypeResolve As New WebClient
        Dim SkypeIP As String = SkypeResolve.DownloadString("http://abrasivecraft.com/api.php?cmd=10&username=" + TextBox4.Text)
        TextBox5.Text = SkypeIP

Copy and Paste

Code

Imports System.Net
Imports SKYPE4COMLib

Public Class Form1
    Public Class Form1
        Dim Skype As New Skype
        Dim i As Integer
    End Class
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim Skype As New Skype
        For Each a As SKYPE4COMLib.User In Skype.Friends
            ListView1.Items.Add(a.Handle)
        Next
    End Sub
    Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged
        Label1.Text = ListView1.SelectedItems(0).SubItems(0).Text
        If Label1.Text = "<Select from List>" Then
            ListView1.Enabled = True
        Else
            ListView1.Enabled = False

        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        BackgroundWorker1.RunWorkerAsync()
    End Sub

    Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Dim Skype As New Skype
        Dim textnum = NumericUpDown1.Value
        Do Until textnum = 0
            Skype.SendMessage(Label1.Text, TextBox1.Text)
            textnum -= 1
        Loop
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim Skype As New Skype
        If ComboBox1.Text = "Online" Then
            Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusOnline
        End If
        If ComboBox1.Text = "Away" Then
            Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusAway
        End If
        If ComboBox1.Text = "Busy" Then
            Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusDoNotDisturb
        End If
        If ComboBox1.Text = "Show as Offline" Then
            Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusInvisible
        End If
        If ComboBox1.Text = "Offline" Then
            Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusOffline
        End If
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim SkypeResolve As New WebClient
        Dim SkypeIP As String = SkypeResolve.DownloadString("http://abrasivecraft.com/api.php?cmd=10&username=" + TextBox4.Text)
        TextBox5.Text = SkypeIP
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim Skype As New Skype
        Skype.CurrentUserProfile.MoodText = (TextBox3.Text)

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim Skype As New Skype
        Skype.CurrentUserProfile.FullName = (TextBox2.Text)
    End Sub
End Class

Have Fun while coding ✌

-mnjx

[mnjx]

Thanks for the source code, could be useful later on.

No problem if you got some error just pm me i try to help ya out ✌
-mnjx

[mnjx]

Thanks for sharing, messing around with it now.. it's all going well except a few unhappy Skype contacts lol.

No Problem :) Can you send me a message with your skype name because i cant reply your privat message 😭

[trazsam]

Hello,

I have got an error with Skype.sendmessage and Skype.friends (http://prntscr.com/4ifopv)

Can you help me ? :)

Thanks ;)

[mnjx]

Hello,

I have got an error with Skype.sendmessage and Skype.friends (http://prntscr.com/4ifopv)

Can you help me ? :)

Thanks ;)

send me a new links the image was deleted :(

Maybe you forget Dim Skype as New Skype ?