GeraYN
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Добрый день, коллеги! Появилась задача принимать на 5000 порт команды, обрабатывать и возвращать статус или значение. Поискав на просторах интернета, нашлось вот такое решение https://xaegr.wordpress.com/2007/01/07/trace-port/. Далее немного модифицировал, но результат не радует. Порт создаться и к нему можно подключиться по телнет, но команду ввести невозможно. Буду рад любой подсказке, сам в тупике, второй день топчусь на месте. С PowerShell работаю недавно и еще плохо понимаю логику работы языка. function Trace-Port([int]$port=5000, [string]$IPAdress="127.0.0.1", [switch]$Echo=$false){ $listener = new-object System.Net.Sockets.TcpListener([System.Net.IPAddress]::Parse($IPAdress), $port) $listener.start() [byte[]]$bytes = 0..255|%{0} # write-host "Waiting for a connection on port $port..." $client = $listener.AcceptTcpClient() # write-host "Connected from $($client.Client.RemoteEndPoint)" $stream = $client.GetStream() ### Сообщение о программе и версии $sendbytes = ([text.encoding]::ASCII).GetBytes("Remote Panel v1.0`r`n") $stream.Write($sendbytes,0,$sendbytes.Length) $stream.Flush() ### Приглашение ввести команду $sendbytes = ([text.encoding]::ASCII).GetBytes(":") $stream.Write($sendbytes,0,$sendbytes.Length) $stream.Flush() while(($i = $stream.Read($bytes, 0, $bytes.Length)) -ne 0) { #$bytes[0..($i-1)]|%{$_} if ($Echo){$stream.Write($bytes,0,$i)} $EncodedText = New-Object -TypeName System.Text.ASCIIEncoding $data = $EncodedText.GetString($bytes,0, $i) $sendback = ($data 2>&1 | Out-String ) $sendback2 = $sendback + ':' $x = ($error[0] | Out-String) $error.clear() $sendback2 = $sendback2 + $x $sendbyte = ([text.encoding]::ASCII).GetBytes($sendback2) ### Действие на команду hello if ($sendbyte -eq "hello") { Write-Host " wwww test hello `r`n" $sendbytes = ([text.encoding]::ASCII).GetBytes("test hello`r`n") $stream.Write($sendbyte,0,$sendbyte.Length) $stream.Flush() } } $client.Close() $listener.Stop() write-host "Connection closed." } $ip=get-WmiObject Win32_NetworkAdapterConfiguration|Where {$_.Ipaddress.length -gt 1} $port = 5000 write-host(Get-NetIPAddress | ?{ $_.AddressFamily -eq “IPv4” -and !($_.IPAddress -match “169”) -and !($_.IPaddress -match “127”) }).IPAddress write-host telnet $ip.ipaddress[0] $port Trace-Port -ip $ip.ipaddress[0] -port $port |