1° Forum di Astronomia Amatoriale Italiano

'***********************attivo skype*********************************
        Try
            If Not skype.Client.IsRunning Then
                skype.Client.Start()
                skype.Attach(8, False)
            End If
            For Each a As SKYPE4COMLib.User In skype.Friends
                cmb_NomeSkype.Items.Add(a.Handle)
                LocalNomeSkype = a.Handle
                If LocalNomeSkype.ToString.Contains("xxxxxx") = True Then
                    IdSkype = LoaclID
                    Exit For
                End If
                LoaclID = LoaclID + 1
            Next

        Catch ex As Exception
            txt_log.Text = txt_log.Text & vbCrLf & DateTime.Now & UCase(" :Servizio Skype non disponibile...")
            chk_ChiamaSkype.Enabled = False
            chk_ChiamaSkype.Checked = False
        End Try

'************************************************************************************************

 Private Sub ChimataSkype(chiama As Boolean, messaggio As String)   
        Dim NomeAmico As String
        Try
            For Each contact As SKYPE4COMLib.User In skype.Friends
                NomeAmico = contact.Handle
                If NomeAmico.Contains("xxxxxxx") Then
                    skype.SendMessage(contact.Handle(), contact.Handle() & " - " & messaggio)
                    If chiama = True Then
                        skype.PlaceCall(contact.Handle)
                    End If
                    Exit Sub
                End If
            Next
        Catch ex As Exception

        End Try
    End Sub