[Func] Réception de données : MsgBox du serveur Personnalisée
Posté : mer. 15 juin 2016 09:51
Salut ,
Vous avez crée votre programme de tchat et vous voulez rendre la lecture de vos données( niveau serveur) plus authentique(enfin plus originale euh! )
vous pouvez gagner en temps (quelques secondes ) avec cette fonction.
OU du moins si vous voulez tout simplement personnaliser la lecture de vos données reçues depuis le client, Vous pourrez encore gagner en temps .
ATTENTION : lecture des données avec la fonction MsgBox() plus précisément
Vous avez crée votre programme de tchat et vous voulez rendre la lecture de vos données( niveau serveur) plus authentique(enfin plus originale euh! )
vous pouvez gagner en temps (quelques secondes ) avec cette fonction.
OU du moins si vous voulez tout simplement personnaliser la lecture de vos données reçues depuis le client, Vous pourrez encore gagner en temps .
ATTENTION : lecture des données avec la fonction MsgBox() plus précisément
Code : Tout sélectionner
; #FUNCTION# ====================================================================================================================
; Name ..........: ServerRecevedDialSocket
; Description ...: Personnalisez la lecture de vos données récues depuis le client...
; Syntax ........: ServerRecevedDialSocket($RecevedSocket[, $msgDelimiters = '|'[, $DefaultFLAG = 0x0000040[, $DefaultTitle = 'Message']]])
; Parameters ....: $RecevedSocket - an unknown value.
; $msgDelimiters - [optional] a map. Default is '|'.
; $DefaultFLAG - [optional] an unknown value. Default is 0x0000040.
; $DefaultTitle - [optional] an unknown value. Default is 'Message'.
; Return values .:
; Author ........: Numeric
; Modified ......:
; Remarks .......: vous pouvez définir vos options par defaut (delimiters, $DefaultFLAG, $DefaultTitle etc
; Related .......:
; Link ..........:
; Example .......: $RecevedSocket = InputBox('', '')
;................:ServerRecevedDialSocket($RecevedSocket)
; ===============================================================================================================================
Func ServerRecevedDialSocket($RecevedSocket, $msgDelimiters = '|', $DefaultFLAG = 0x0000040, $DefaultTitle = 'Message')
If $RecevedSocket <> '' Then
Local $Error = False
$RegExp = StringSplit($RecevedSocket, $msgDelimiters)
If @error = 1 Then
$Error = True
EndIf
Local $msgParts, $msgShow
For $msgParts In $RegExp
If $Error = False Then
If $RegExp[0] <= 3 Then
$msgShow &= MsgBox(Number(Execute($RegExp[1])), $RegExp[2], $RegExp[3])
Else
$msgShow &= MsgBox($DefaultFLAG, $DefaultTitle, StringReplace($RecevedSocket, $msgDelimiters, @CRLF & StringSplit($RecevedSocket, $msgDelimiters)))
EndIf
ElseIf $Error = True Then
$msgShow &= MsgBox($DefaultFLAG, $DefaultTitle, $RecevedSocket)
EndIf
ExitLoop
Next
EndIf
EndFunc ;==>ServerRecevedDialSocket