Vb.net 如何从文本框向列表中的多个联系人发送Skype消息?
我想知道如何一次向多个联系人发送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
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你能给我举个例子吗?它工作得很好!谢谢你抽出时间,祝你今天愉快。