AutoHotkey Community

#Include AHKsock.ahk
#Persistent
#SingleInstance, Off


Gui,Destroy
Gui,Add,Edit, w800 h400 hwndLogHwnd
Gui,Show,,TEST

AHKsock_Connect("10.10.10.1", 23, "OnEvent")

Return
onEvent(event, socket, name, addr, port, ByRef data, ByRef datalength)
{
   
      If(event = "RECEIVED"){
            UpdateLog(data)
         
       if (data = "ÿýÿý ÿý#ÿý'"){
            sTest = ÿüÿü ÿü#ÿü'
            AHKsock_Send(socket, &sTest, StrLen(sTest))
      }
      
       if (data = "ÿûÿý
ÿýÿûÿý!"){
            sTest = ÿüÿü
ÿüÿü
            AHKsock_Send(socket, &sTest, StrLen(sTest))
      }
      
       if (SubStr(data, -5, 6) = "user:") {
           sTest = root`r`n
            AHKsock_Send(socket, &sTest, StrLen(sTest))
      }
                     
   }
}

updateLog(log) {
   global LogHwnd
   ControlSend,,{end},ahk_id %LogHwnd%
   Control,EditPaste,%log%,,ahk_id %LogHwnd%
   ControlSend,,{end},ahk_id %LogHwnd%
}

F3::
reload
return


GuiClose:
Exitapp
return

data =
(
user: username1
hello
user: joe.bloggs
)

if ( RegExMatch( data, "m).*(user:.*)$", foundstr ) )
  MsgBox, %foundstr1%
Else
  MsgBox, Not found in %foundstr%

ExitApp

iMaxChunk := AHKsock_SockOpt(iSocket, "SO_SNDBUF")

AHKsock_Send(iSocket, ptrData = 0, iLength = 0, bUseBufferLimit = False)

if (data = "ÿýÿý ÿý#ÿý'"){
            sTest =
            AHKsock_Send(socket, &sTest, StrLen(sTest))
      }

;Check if we should limit the length to the send buffer size
If (bUseBufferLimit) {
   If ((iMaxChunk := AHKsock_SockOpt(iSocket, "SO_SNDBUF")) = -1)
      Return -6
   Else iLength := iLength > iMaxChunk ? iMaxChunk - 1 : iLength
}

if data = Users
send Username

data =
(
user: username1
hello
user: joe.bloggs
some text here
user: user2
some unexpected text here
) ; this data is just an example of what you might receive over the socket.

; Note: the first example below will not match because the string "user:"
; is not in the LAST line (which is what you asked for).  If you want to
; match the last occurrence of the string "user:" anywhere in the received
; data (from just the most recent event) then use the second example.


;Example 1: match in the LAST LINE only
RegExMatch( data, "`a).*$", lastline ) ; get the last line in the data received

if ( InStr( lastline, "user:" ) )
  MsgBox, Example 1`nFound string in last line: "%lastline%"`n`nFull data is: `n"%data%"
Else
  MsgBox, Example 1`nString not found in last line: "%lastline%"`n`nFull data is: `n"%data%"
 

;Example 2: find the last match found on any single line anywhere in the last received data chunk (if at all)
Line := "", Num := 0
Loop, parse, data, `n, `r
{
   ; this will keep looping until the last line of the data, so will always find the last matching line (if any)
   If ( InStr( A_LoopField, "user:" ) )
   {
      Line := A_LoopField
      Num := A_Index
   }
}

If ( Line )
   MsgBox, Example 2`nFound string in line %Num%: "%Line%"`n`nFull data is: `n"%data%"
Else
  MsgBox, Example 2`nString not found in data.`n`nFull data is: `n"%data%"