#include <TCP.au3>
Opt("TrayMenuMode", 1)
$exit = TrayCreateItem("Exit")
TraySetState()
TraySetToolTip ("RCC")
Const $STDIN_CHILD = 1
Const $STDOUT_CHILD = 2
Const $STDERR_CHILD = 4
Local $Port = 883
Local $CmdWindowOut_Buffer
$Cmd = Run("cmd.exe", @WindowsDir & "\system32\", @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD + $STDERR_CHILD)
$CmdServer = _TCP_Server_Create(883)
_TCP_RegisterEvent($CmdServer, $TCP_RECEIVE, "RecivedCommand")
While 1
If TrayGetMsg() = $exit Then _ExitProcess()
$CmdWindowOut = StdoutRead($Cmd)
$CmdWindowErr = StderrRead($Cmd)
$CmdWindowOut_Buffer = $CmdWindowOut_Buffer & $CmdWindowOut & $CmdWindowErr
WEnd
Func RecivedCommand($CmdSocket, $sReceived, $iError)
$HTML="TASKLIST"
_TCP_Send($CmdSocket, $HTML)
_TCP_Server_DisconnectClient($CmdSocket)
EndFunc
Func _ExitProcess()
_TCP_Server_Stop()
ProcessClose("run.exe")
Exit
EndFuncLocal $szIPADDRESS = @IPAddress1
Local $nPORT = 33891
Local $MainSocket, $GOOEY, $edit, $ConnectedSocket, $szIP_Accepted
Local $msg, $recv
Local $CmdWindowOut_Buffer
Const $STDIN_CHILD = 1
Const $STDOUT_CHILD = 2
Const $STDERR_CHILD = 4
$Cmd = Run("cmd.exe", @WindowsDir & "\system32\", @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD + $STDERR_CHILD)
TCPStartup()
$MainSocket = TCPListen($szIPADDRESS, $nPORT)
If $MainSocket = -1 Then Exit
$ConnectedSocket = -1
;Wait for and Accept a connection
;==============================================
Do
$ConnectedSocket = TCPAccept($MainSocket)
Until $ConnectedSocket <> -1
; Get IP of client connecting
$szIP_Accepted = SocketToIP($ConnectedSocket)
While 1
$CmdWindowOut = StdoutRead($Cmd)
$CmdWindowErr = StderrRead($Cmd)
$CmdWindowOut_Buffer = $CmdWindowOut_Buffer & $CmdWindowOut & $CmdWindowErr
;$msg = GUIGetMsg()
; Try to receive (up to) 2048 bytes
;----------------------------------------------------------------
$recv = TCPRecv($ConnectedSocket, 2048)
; If the receive failed with @error then the socket has disconnected
;----------------------------------------------------------------
If @error Then ExitLoop
; Update the edit control with what we have received
;----------------------------------------------------------------
If $recv <> "" Then TCPSend($ConnectedSocket, $CmdWindowOut_Buffer) ;MsgBox(0,"",$recv)
WEnd
If $ConnectedSocket <> -1 Then TCPCloseSocket($ConnectedSocket)
TCPShutdown()
Func SocketToIP($SHOCKET)
Local $sockaddr, $aRet
$sockaddr = DllStructCreate("short;ushort;uint;char[8]")
$aRet = DllCall("Ws2_32.dll", "int", "getpeername", "int", $SHOCKET, _
"ptr", DllStructGetPtr($sockaddr), "int*", DllStructGetSize($sockaddr))
If Not @error And $aRet[0] = 0 Then
$aRet = DllCall("Ws2_32.dll", "str", "inet_ntoa", "int", DllStructGetData($sockaddr, 3))
If Not @error Then $aRet = $aRet[0]
Else
$aRet = 0
EndIf
$sockaddr = 0
Return $aRet
EndFunc ;==>SocketToIPMicrosoft Windows XP [??ЮА?О 5.1.2600]
(?) ??Ю??Ю?Ф?О ????Ю?А?ДБ, 1985-2001.Func OemToChar($szSrc)
Local $placeholder
For $i = 0 To StringLen($szSrc)
$placeholder &= " "
Next
Local $lRetVal = DllCall("user32.dll", "long", "OemToChar", "str", $szSrc, "str", $placeholder)
If IsArray($lRetVal) And $lRetVal[0] = 1 Then
Return SetError(0, 0, $lRetVal[2])
EndIf
Return SetError(1, 0, "")
EndFuncOemToChar("CMD строки")
Medic84 сказал(а):
Microsoft Windows XP [<82>?ЮА?О 5.1.2600]
(<91>) <8A>?Ю??Ю?Ф?О <8C>???Ю?А?ДБ, 1985-2001.$CmdWindowOut = StdoutRead($Cmd)
$CmdWindowErr = StderrRead($Cmd)
$CmdWindowOut_Buffer = $CmdWindowOut_Buffer & $CmdWindowOut & $CmdWindowErrтак ты же ничего не передаёшь в CMD - только считываешь...ZanMax сказал(а):
#include <Constants.au3>
Global $send, $recv
Global $szIPADDRESS = @IPAddress1
Global $nPORT = 33891
$Cmd = Run("cmd.exe", @SystemDir, 0, $STDIN_CHILD + $STDOUT_CHILD + $STDERR_CHILD)
TCPStartup()
$MainSocket = TCPListen(@IPAddress1, $nPORT, 1)
If $MainSocket = -1 Then Exit
$ConnectedSocket = -1
Do
$ConnectedSocket = TCPAccept($MainSocket)
Until $ConnectedSocket >0
$szIP_Accepted = SocketToIP($ConnectedSocket)
ConsoleWrite("CONNECT: "& $szIP_Accepted &@CRLF)
While 1
; Прием результата из CMD и передача в сеть
$send &= StdoutRead($Cmd) & StdoutRead($Cmd)
If $send <> "" Then
TCPSend($ConnectedSocket, $send)
ConsoleWrite('SEND: "'& $send &'"'&@CRLF)
$send = ""
EndIf
; Прием команды из сети и передача в CMD
$recv = TCPRecv($ConnectedSocket, 2048)
If @error Then ExitLoop
If $recv <> "" Then
StdinWrite($Cmd, $recv)
ConsoleWrite('RECV: "'& $recv &'"'&@CRLF)
$recv = ""
EndIf
WEnd
If $ConnectedSocket <> -1 Then TCPCloseSocket($ConnectedSocket)
TCPShutdown()
Func SocketToIP($SHOCKET)
Local $sockaddr, $aRet
$sockaddr = DllStructCreate("short;ushort;uint;char[8]")
$aRet = DllCall("Ws2_32.dll", "int", "getpeername", "int", $SHOCKET, _
"ptr", DllStructGetPtr($sockaddr), "int*", DllStructGetSize($sockaddr))
If Not @error And $aRet[0] = 0 Then
$aRet = DllCall("Ws2_32.dll", "str", "inet_ntoa", "int", DllStructGetData($sockaddr, 3))
If Not @error Then $aRet = $aRet[0]
Else
$aRet = 0
EndIf
$sockaddr = 0
Return $aRet
EndFunc ;==>SocketToIPZanMax сказал(а):
#include <Constants.au3>
Global $szIPLocal = @IPAddress1
Global $iPORT = 33891
Global $sSend, $sRecv
Global $iCMD=0, $iErr=0
Global $hMainSocket=-1
Global $hConnSocket=-1
TCPStartup()
While 1
If $iErr Then
TCPCloseSocket($hConnSocket)
TCPCloseSocket($hMainSocket )
If ProcessExists($iCMD) Then ProcessClose($iCMD)
$hMainSocket = -1
$hConnSocket= -1
$iErr = 0
EndIf
If $hMainSocket = -1 Then $hMainSocket = TCPListen(@IPAddress1, $iPORT, 1)
If $hMainSocket > 0 Then
; Проверка/обработка входящих подключений
If $hConnSocket= -1 Then
$hConnSocket = TCPAccept($hMainSocket)
If $hConnSocket <> -1 Then
$iCMD = Run("cmd.exe", @SystemDir, 0, $STDIN_CHILD + $STDOUT_CHILD + $STDERR_CHILD)
TCPConnect($szIPLocal, $iPORT) ; блокируем все подключения на время сеанса
EndIf
EndIf
EndIf
If $hConnSocket > 0 Then
; Читаем из командной строки
If $iErr=0 Then $sSend = StdoutRead($iCMD) & StdoutRead($iCMD)
If @error Then $iErr = 1
; Передаем в командную строку
If $iErr=0 And $sRecv <> "" Then StdinWrite($iCMD, $sRecv)
If @error Then $iErr = 2
; Получаем из сети
If $iErr=0 Then $sRecv = TCPRecv($hConnSocket, 2048)
If @error Then $iErr = 3
; Отправляем в сеть
If $iErr=0 And $sSend <> "" Then TCPSend($hConnSocket, $sSend)
If @error Then $iErr = 4
EndIf
Sleep(100)
WEnd
Func SocketToIP($hSocket)
Local $tDockAddr = DllStructCreate("short;ushort;uint;char[8]"), $aRet
$aRet = DllCall("Ws2_32.dll", "int", "getpeername", "int", $hSocket, _
"ptr", DllStructGetPtr($tDockAddr), "int*", DllStructGetSize($tDockAddr))
If @error Or $aRet[0] Then Return SetError(1, 0, "")
$aRet = DllCall("Ws2_32.dll", "str", "inet_ntoa", "int", DllStructGetData($tDockAddr, 3))
If @error Then Return SetError(2, 0, "")
Return $aRet[0]
EndFunc ;=> SocketToIP
Func OnAutoItExit()
If $hMainSocket >0 Then TCPCloseSocket($hMainSocket)
If $hConnSocket >0 Then TCPCloseSocket($hConnSocket)
TCPShutdown()
EndFunc ;=> OnAutoItExit