Looking for Visual Basic code that will allow me to send and receive instant messages over Skype?

you will need to add a refrence to SKYPE4COMLib

if you want the full project just comment on here and il send it or ftp over or somthing (i never used SKYPE4COMLib before 10 mins ago and havent used vb for over 10 years so little rusty)

just to warn you skype will ask the users permission to access this via this method as in if its running in back ground when the user logs in will say request access by xxxx.exe to access skypeapi


then code is


Imports SKYPE4COMLib
Imports Enumerable = System.Linq.Enumerable

Public Class Form1
Dim SkypeApi As SKYPE4COMLib.Skype
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
SkypeApi = New SKYPE4COMLib.Skype()
Dim personName As String = "Friendly name"
Dim chats As List(Of String) = New List(Of String)()


' all chat messages from that contact in linq
chats = Enumerable.ToList(Of String)((From chat As Chat In SkypeApi.Chats Where chat.FriendlyName = personName From message As ChatMessage In chat.Messages Select message.Body))

' all chat messages from that contact readable bit more readable
For Each chat As SKYPE4COMLib.Chat In SkypeApi.Chats
If chat.FriendlyName = personName Then
Dim messageCollection = chat.Messages

For Each message As SKYPE4COMLib.ChatMessage In messageCollection
chats.Add(message.Body)
Next
End If
Next

'send message
SkypeApi.SendMessage("username", "messageToSend")
End Sub
End Class...Show more