Как отправить сообщение Skype нескольким контактам в списке из текстового поля?

Question

Я хотел бы знать, как отправить сообщение Skype нескольким контактам за раз. Например, текстовое поле содержит это:

1. user1
2. user2
3. user3

Прямо сейчас, чтобы отправить сообщение для конкретного контакта я использую:

Skypattach.SendMessage("username", "message") 

Таким образом, вместо того, чтобы do

Skypattach.SendMessage("username1", "message") 
Skypattach.SendMessage("username2", "message") 
Skypattach.SendMessage("username3", "message") 

Я бы хотел, чтобы это было быстрее, чтобы захватить имена пользователей из текстового поля. Спасибо за ваше время.

Answer 1

Чтобы обработать мой комментарий, элемент управления TextBox имеет Lines Property, который вы можете перебирать, чтобы получить каждую отдельную строку. Поэтому, если ваш текст выглядит точно так, как показывает ваш вопрос, вы можете использовать что-то вроде этого. Обратите внимание, что я раскалываюсь на период, вы можете использовать пространство или то, что когда-либо определитель вы принимаете.

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    SendSkype(TextBox1.Lines) 
End Sub 

Private Sub SendSkype(rawUserNameData As String()) 
    Dim x As Integer 
    Dim receipients() As String 
    If rawUserNameData.Count > 0 Then 
     ReDim receipients(rawUserNameData.Count - 1) 
     For x = 0 To rawUserNameData.Count - 1 
      Try 

       receipients(x) = Trim(Split(rawUserNameData(x), ".")(1)) 

      Catch ex As IndexOutOfRangeException 'Catch Unproperly formatted entries 
      End Try 
     Next 
     For Each s As String In receipients 
      Skypattach.SendMessage(s, "Message") 
     Next 
    End If 
End Sub