Vb.net 如何从文本框向列表中的多个联系人发送Skype消息?

Vb.net 如何从文本框向列表中的多个联系人发送Skype消息?,vb.net,skype4com,Vb.net,Skype4com,我想知道如何一次向多个联系人发送Skype消息。例如,文本框包含以下内容: 用户1 用户2 用户3 现在,要向特定联系人发送消息,我使用: Skypattach.SendMessage("username", "message") 因此,与其做 Skypattach.SendMessage("username1", "message") Skypattach.SendMessage("username2", "message") Skypattach.SendMessage("username

我想知道如何一次向多个联系人发送Skype消息。例如,文本框包含以下内容:

  • 用户1
  • 用户2
  • 用户3
  • 现在,要向特定联系人发送消息,我使用:

    Skypattach.SendMessage("username", "message")
    
    因此,与其做

    Skypattach.SendMessage("username1", "message")
    Skypattach.SendMessage("username2", "message")
    Skypattach.SendMessage("username3", "message")
    
    我希望它能更快,从文本框中抓取用户名。
    谢谢您的时间。

    为了充实我的评论,TextBox控件有一个可供您反复查看以获得每一行的控件。所以,如果你的文本看起来和你的问题所显示的一模一样,你可以使用这样的东西。请注意,我在周期上拆分,您可以使用空间或您决定的任何轮廓

    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
    

    这个例子就是文本框中的文本的样子吗?如果是这样,请使用Textboxes Lines集合,在空格上迭代拆分以提取用户名。@MarkHall你能给我举个例子吗?它工作得很好!谢谢你抽出时间,祝你今天愉快。