RayoE2015 0 Posted January 14, 2016 Hi you guys,I been trying to work on some small chat script to communicate with someone across the hall way form my desk, I downloaded some samples and I managed to get one just the way I want it but I want to include some sort of visual warning so the guys at the other end gets notify when getting a new message so I want to include SplashImageOn (or SplashTextOn) but I really don't know where to put it.Can someone share the light please? Bellow is the code I have so far:expandcollapse popup#include <date.au3> TCPStartup() $serverIP = '127.0.0.1' $serverport = 7660 $srvSocket = TCPListen($serverIP,$serverport) #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Mensajes Pulpito", 625, 160, 700, 200, BitOr($WS_BORDER, $WS_POPUP), BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW)) $Edit1 = GUICtrlCreateEdit("", 16, 16, 593, 140) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $con = TCPAccept($srvSocket) $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch If $con >=0 Then $rev = '' $clientIP = SocketToIP($con) ConsoleWrite(@LF & $clientIP) While True $rev &= TCPRecv($con,2048) If @error Then ExitLoop WEnd If StringLeft($rev,8) = 'MSGPORT#' Then $sp = StringSplit($rev,'#') $cltSocket = TCPConnect($clientIP,$sp[UBound($sp) - 1]) If $clientIP <> -1 Then TCPSend($cltSocket,GUICtrlRead($Edit1)) TCPCloseSocket($cltSocket) EndIf ElseIf $rev <> '' Then $str = GUICtrlRead($Edit1) $str &=_Now() & @TAB & $rev & @CRLF GUICtrlSetData($Edit1,$str) EndIf EndIf Sleep(50) WEnd Func SocketToIP($SHOCKET) Local $sockaddr, $aRet $sockaddr = DllStructCreate("short;ushort;uint;char[8]") $aRet = DllCall("Ws2_32.dll", "int", "getpeername", "int", $SHOCKET, _ "ptr", DllStructGetPtr($sockaddr), "int*", DllStructGetSize($sockaddr)) If Not @error And $aRet[0] = 0 Then $aRet = DllCall("Ws2_32.dll", "str", "inet_ntoa", "int", DllStructGetData($sockaddr, 3)) If Not @error Then $aRet = $aRet[0] Else $aRet = 0 EndIf $sockaddr = 0 Return $aRet EndFuncThanks in advance for any help. Share this post Link to post Share on other sites