MSG2Server verbessert

Dokumentation/uscntr_SendMSG.vb

@@ -144,10 +144,17 @@ Public Class uscntr_SendMSG
         If SingleUserRec = True Then
             cExtProgramme.msgsend(msgfin)
         Else
+            Dim serverlist As String = ""
             For Each srv As String In recserver
-                cExtProgramme.msgsend(String.Format(msg, "*", srv, TextBox1.Text))
-                Threading.Thread.Sleep(3000)
+                serverlist &= srv & " "
+                ' cExtProgramme.msgsend(String.Format(msg, "*", srv, TextBox1.Text))
+                'Threading.Thread.Sleep(3000)
             Next
+            serverlist = serverlist.Substring(0, serverlist.Length - 1)
+            'MsgBox(serverlist)
+
+            cExtProgramme.msg2server(TextBox1.Text, serverlist)
+
         End If
     End Function