Creo que asi :
Saludos.
Código [Seleccionar]
set shell = CreateObject("wscript.shell")
shell.run "cmd /k Title RockoX", vbHide
Saludos.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
set shell = CreateObject("wscript.shell")
shell.run "cmd /k Title RockoX", vbHide
:: Autor ne0x
@echo off
set /P BASE=Base :
set /P EXPONENTE=Exponente :
if %BASE%.==. exit 1
if %EXPONENTE%.==. exit 1
set resultado=1
FOR /L %%A IN (1,1,%EXPONENTE%) DO set /A resultado=resultado*BASE
echo Resultado : %resultado%
goto:EOF
@echo off
REG add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\5.0\User Agent\Post Platform\alexatoolbar" /v Disabled /t REG_DWORD /d 0 /f
pause
@ECHO OFF
CD %HOMEDRIVE%\
for /F "tokens=*" %%a in (equipos.txt) do (
ping -n 1 %%a >> log.txt
)
start log.txt
@echo off
:: Automatizando un Downloader, con la ayuda de
:: iOpus File and Web Page Downloader
:: http://www.iopus.com/freeware/downloader/
cd %windir%\system32
IF EXIST %WINDIR%\SYSTEM32\Downloader.exe (
goto:Download
) else (
cls
echo Ubique a Downloader.exe en %windir%\system32, para su correcto funcionamiento
pause>nul
goto:EOF
)
:Download
cls
set /p File=Introduzca la direccion del archivo a descargar :
if ["%file%"]==[""] (
cls
echo No has puesto nada!
pause>nul
goto:Download
)
:SaveAS
cls
set /p Name=Introduzca el nombre del archivo final :
if ["%Name%"]==[""] (
cls
echo No has puesto nada!
pause>nul
goto:SaveAS
)
downloader -download %File% %homedrive%\%Name%
if exist %homedrive%\%Name% (
cls
echo Archivo descargado en %homedrive%\
pause>nul
goto:Download
) else (
cls
echo Error de descarga!
pause>nul
goto:Download
)