[Func] Réception de données : MsgBox du serveur Personnalisée

Partagez des fonctions et des UDF AutoIt.
Règles du forum
.
Répondre
Avatar du membre
Numeric
Niveau 5
Niveau 5
Messages : 125
Enregistré le : mer. 23 mars 2016 08:17
Status : Hors ligne

[Func] Réception de données : MsgBox du serveur Personnalisée

#1

Message par Numeric »

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 :mrgreen: .
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
De 0 et 1 vers les étoiles , tout part du Binaire, Numeric
Répondre