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

Question

我想知道如何一次向多个联系人发送 Skype 消息。例如，文本框包含：

user1

user2

user3

现在，要向我使用的特定联系人发送消息：

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

所以不必做

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

我希望它更快，从文本框中获取用户名。谢谢你的时间。

Answer 1

为了充实我的评论，TextBox 控件有一个 Lines Property，您可以遍历它以获取每一行。因此，如果您的文本看起来与您的问题所显示的完全一样，您可以使用类似的东西。请注意，我在句号上进行了拆分，您可以使用 space 或您决定的任何描述符。

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

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

How do I send a Skype message to multiple contacts in a list from a textbox?

vb.net

skype4com