【转】MaxScript.Net接收本地端口的消息执行

Fn BackgroundTcpListenerDoWork theSender theEvent = 
(
    IPAddress = DotNetClass "System.Net.IPAddress"
    theIPAddress = IPAddress.Parse "127.0.0.1"
    theTcpListener = DotNetObject "System.Net.Sockets.TcpListener" theIPAddress 7457
    theTcpListener.Start()

while not theSender.CancellationPending do
    (
        theSocket = theTcpListener.AcceptSocket()
        theByteStream = DotNetObject "System.Byte[]" 8192
        theSocket.Receive theByteStream

        Encoding = DotnetClass  "System.Text.Encoding"
        theString = Encoding.UTF8.GetString(theByteStream)
        if not theSender.CancellationPending do Execute theString
    )
    theTcpListener.Stop()
)

BackgroundWorker = DotNetObject "System.ComponentModel.BackgroundWorker"
DotNet.AddEventHandler BackgroundWorker "DoWork" BackgroundTcpListenerDoWork 
BackgroundWorker.WorkerSupportsCancellation = true
BackgroundWorker.RunWorkerAsync()


/*
BackgroundWorker.CancelAsync()
BackgroundWorker.Dispose()
*/