break on
;$=setconsole("minimize")

$autoIt=CreateObject("AutoItX3.Control")
? @error
do
	if $AutoIt.IfWinExist("Messenger-service", "")
		$x=$AutoIt.WinActivate("Messenger-service", "")
		$x=$AutoIt.Send("^c")
		$x=$AutoIt.WinClose("Messenger-service", "")
		$Paste=$AutoIt.ClipGet()
		$text=split($paste,@crlf)
		$header	= split($text[3])
		$body = ""
		for $l = 5 to ubound($text) - 4
			$body = $body + @crlf + $text[$l]
		next
		$from	= $header[2]
		$to	= $header[4]
		$date	= $header[6]
		$time	= $header[7] + " " + $header[8]
		$body	= substr($body,3)
		? $from
		? $body
		? "----"
	endif
	sleep 1
until @error

Break ON
$=SetOption("Explicit","ON")
 
Dim $oAutoIT
Dim $sTitle,$sMessageText
Dim $iControlMessage
 
Dim $sFrom,$sTo,$sDate,$sTime
 
$sTitle="Messenger Service"
$iControlMessage=65535
 
$oAutoIT=CreateObject("AutoItX3.Control")
If @ERROR OR VarType($oAutoIT)<>9 "Cannot create AutoIT object - no registered perhaps?"+@CRLF Exit @ERROR EndIf
 
; Set some useful options.
$=$oAutoIT.Opt("MouseCoordMode",0)
$=$oAutoIT.Opt("WinTitleMatchMode",4)
 
While "True"
	"Waiting for "+$sTitle+" window to appear..."+@CRLF
	$=$oAutoIT.WinWait($sTitle)
	$sMessageText=$oAutoIT.ControlGetText("last","",$iControlMessage)
	$=$oAutoIt.WinClose("last")
	; Parse message text
	$sMessageText=split($sMessageText,@CRLF)
	$sFrom=Split($sMessageText[0]+"      ")[2]
	$sTo=Split($sMessageText[0]+"      ")[4]
	$sDate=Split($sMessageText[0]+"      ")[6]
	$sTime=Split($sMessageText[0]+"      ")[7]+" "+Split($sMessageText[0]+"      ")[8]
	$sMessageText[0]=""
	$sMessageText=SubStr(Join($sMessageText,@CRLF),5)
	"From   :"+$sFrom+@CRLF
	"To     :"+$sFrom+@CRLF
	"Body is: "+$sMessageText+@CRLF
	"------------------"+@CRLF
	; Give the window a chance to close...
	Sleep 0.2
Loop

on SockOpen:*:{
  if $socketname = "somesocketnamehere"
    ;do stuff
  endif
}

; GLOBAL SETUP - PLACE AT SCRIPT START----------------------
GLOBAL $oAutoIT, $sMessengerTitle, $iControlMessenger
$sMessengerTitle="Messenger Service"
$iControlMessenger=65535
 
$oAutoIT=CreateObject("AutoItX3.Control")
If @ERROR OR VarType($oAutoIT)<>9 "Cannot create AutoIT object - no registered perhaps?"+@CRLF Exit @ERROR EndIf
 
; Set some useful options.
$=$oAutoIT.Opt("MouseCoordMode",0)
$=$oAutoIT.Opt("WinTitleMatchMode",4)
 
; END OF GLOBAL SETUP---------------------------------------
 
; Check for new message function
Function udfCheckForMessage()
	If $oAutoIT.WinExists($sMessengerTitle)
		$udfCheckForMessage=$oAutoIT.ControlGetText("last","",$iControlMessage)
		$=$oAutoIt.WinClose("last")
	EndIf
EndFunction

$sMessage=udfCheckForMessage()
If $sMessage
   ; Parse and action message
End If

Break On

$System = CreateObject("Kixforms.System")
If Not $System
   $nul= MessageBox("KiXforms.Net Not Initiated. This Script Will Now Close.","Error",16)
   Quit()
EndIf
$nul = $System.Application.EnableVisualStyles

; GLOBAL SETUP - PLACE AT SCRIPT START----------------------
GLOBAL $oAutoIT, $sMessengerTitle, $iControlMessenger
$sMessengerTitle="Messenger-service"
$iControlMessenger=65535
 
$oAutoIT=CreateObject("AutoItX3.Control")
If @ERROR OR VarType($oAutoIT)<>9 "Cannot create AutoIT object - no registered perhaps?"+@CRLF Exit @ERROR EndIf
 
; Set some useful options.
$=$oAutoIT.Opt("MouseCoordMode",0)
$=$oAutoIT.Opt("WinTitleMatchMode",4)
 
; END OF GLOBAL SETUP---------------------------------------

$Form1 = $System.Form()
$Form1.Left = 368
$Form1.StartPosition = 0  ;FormStartPosition_Manual
$Form1.Size = $System.Size(240,358) ;(Width,Height)
$Form1.Text = "LAN Messenger"
$Form1.Top = 0

$Label1 = $System.Label()
$Label1.BorderStyle = 0  ;FixedSingle
$Label1.Left = 24
$Label1.Text = "Gebruiker"
$Label1.TextAlign = 16  ;MiddleLeft
$Label1.Top = 19
$Label1.Width = 55
$nul = $Form1.Controls.Add($Label1)

$ComboBox1 = $System.ComboBox()
$ComboBox1.Height = 21
$ComboBox1.ItemHeight = 13
$ComboBox1.Left = 89
$ComboBox1.Text = "Select..."
$ComboBox1.Top = 20
$nul = $Form1.Controls.Add($ComboBox1)

$RichTextBox1 = $System.RichTextBox()
$RichTextBox1.Height = 171
$RichTextBox1.Left = 13
$RichTextBox1.Text = ""
$RichTextBox1.Top = 68
$RichTextBox1.Width = 209
$nul = $Form1.Controls.Add($RichTextBox1)

$TextBox1 = $System.TextBox()
$TextBox1.Height = 61
$TextBox1.Left = 13
$TextBox1.Text = ""
$TextBox1.Top = 258
$TextBox1.Width = 125
$TextBox1.Multiline = -1
$nul = $Form1.Controls.Add($TextBox1)

$Button1 = $System.Button()
$Button1.Height = 61
$Button1.Left = 152
$Button1.Text = "Send!"
$Button1.Top = 258
$Button1.Width = 70
$Button1.Click = "SendMSG()"
$nul = $Form1.Controls.Add($Button1)

$Form1.Show  ;Displays the Form
Init()
While $Form1.Visible
   $Nul = Execute($Form1.DoEvents())
   $RichTextBox1.Text = $RichTextBox1.Text + @CRLF + CatchMSG()
Loop
Exit 0

Function SendMSG()
  Dim $msg, $rcpt, $x
  $msg = $TextBox1.Text
  $rcpt = $ComboBox1.Text
  If $rcpt = "Select..."
    $x = MessageBox("You have to select a user first!","Info",0)
    Goto "end"
  EndIf
  $log = $log + @CRLF + "Jij zegt tegen " + $rcpt + ":" + @CRLF + $msg + @CRLF
  $RichTextBox1.Text = $log
  $TextBox1.Text = ""
  :end
EndFunction

Function CatchMSG()
  If $oAutoIT.WinExists($sMessengerTitle)
    $CatchMSG=$oAutoIT.ControlGetText("last","",$iControlMessage)
    $=$oAutoIt.WinClose("last")
;    $log = $log + @CRLF + $oAutoIT.ControlGetText("last","",$iControlMessage) + @CRLF
;    $RichTextBox1.Text = $log
  EndIf
EndFunction

Function Init()
	;ComboBoxbox 1 Info
	$Users = GetObject("WinNT://@ldomain")
	$Users.filter = "User",""
	For Each $User In $Users
	  $x = $ComboBox1.Items.Add($User.Name)
	Next
EndFunction