#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.6.1
Author:         Azvareth

Script Function:
   try to send a broam to blackbox.

#ce ----------------------------------------------------------------------------

Opt('MustDeclareVars', 1) ;to be sure we use the correct ones...
dim $g_IP = "127.0.0.1" ; we must declare the vars before usage.
dim $socket = -1
dim $rc = 0


; Script Start
TCPStartUp()   ;initialize TCP usage

$socket = TCPConnect( $g_IP, 25225) ;connect to socket

If $socket = -1 Then ;it was an error
   MsgBox(0,"Socket","not available")
   Exit
Else
   bbSendBroam("@bbCore.about") ;try to send a simple bro@m, like them in menus...
EndIf

Func bbSendBroam($broam)
   return TCPSend($Socket, $broam) ;returns amount of chars sent...
EndFunc