A simple script that demonstrates controlling Zoom Player via TCP

;simple AutoIt script for controlling Zoom Player via TCP
 
HotKeySet("{ESC}", "Terminate") ;ESC to bail out
 
;these will be used when I open the TCP socket
$ip = "127.0.0.1"
$port = "4769"
 
;start TCP service
TCPStartup()
 
;open TCP socket and see if it was successful
$socket = TCPConnect( $ip, $port )
 
If $Socket = -1 Then
      MsgBox(4096,"Error","Failed to connect to ZP via TCP on localhost at port 4769.")
      Terminate()
EndIf
 
;now loop, presenting Text Input prompt for user to enter a ZP function and optional parameters.
while 1
 
    ;text entry prompt with Cancel button
    $msg = InputBox("ZP TCP Controller","Enter text to send via TCP (default is play). Or Cancel to exit.): ", "5100 fnPlay" & @CRLF)
    if @error = 1 then Terminate()
 
    ;@CRLF needed at end of text to be sent!
    $msg = $msg & @CRLF
 
    ;the rubber meets the road here
    $send = TCPSend($socket, $msg)
 
WEnd
 
Terminate()
 
Func Terminate() ;process ESC key and close TCP
 
    TCPCloseSocket($socket)
    TCPShutdown()
    Exit 0
 
EndFunc