Nachrichten verbessert, Bugs beseitigt, ...

Dokumentation/uscntr_SendMSG.vb

@@ -66,9 +66,9 @@
         If SingleUserRec = True Then
             msgfin = String.Format(msg, recuser.NameKurz, recuser.TSServer, TextBox1.Text)
         Else
-            msgfin = String.Format(msg, "*", recserver(0), TextBox1.Text)
+            msgfin = String.Format(msg, "*", ErsterEintragVonListOfString(recserver), TextBox1.Text)
         End If
-        LabelInfo.Text = "msg" & msgfin
+        '  LabelInfo.Text = "msg" & msgfin
     End Sub
 
     Private Sub cmdSenden_Click(sender As Object, e As EventArgs) Handles cmdSenden.Click
@@ -78,8 +78,17 @@
             Else
                 For Each srv As String In recserver
                     Ext_Programme.msgsend(String.Format(msg, "*", srv, TextBox1.Text))
+                    Threading.Thread.Sleep(3000)
                 Next
             End If
         End If
     End Sub
+
+    Function ErsterEintragVonListOfString(liste As List(Of String))
+        If liste.Count > 0 Then
+            Return liste(0)
+        Else
+            Return ""
+        End If
+    End Function
 End Class