Mensajes

Uso 2 scripts, uno un poco diferente del otro , pero bueno, uno de esos scripts es este, por si alguien lo quiere ver antes de descargar o por simple curiosidad:

Código (dos) [Seleccionar] Expandir

@echo off
Title=Enviar por e-mail a...
mode con cols=96 lines=23
Nircmd win center ititle "Enviar por e-mail a..."
color 07

Setlocal enabledelayedexpansion

REM Creamos la variable para cada archivo que se ha arrastrado al .BAT
REM En total 20 variables, para mi son más que suficientes.
set num=0

For /F "tokens=*" %%a in ('type "%temp%\ZetaUploadList.txt"') DO (
Set /a num+=1
Set archivo!num!=%%a)


If not defined archivo1 (goto :error)
If defined archivo10 (mode con lines=24)
If defined archivo11 (mode con lines=25)
If defined archivo12 (mode con lines=26)
If defined archivo13 (mode con lines=27)
If defined archivo14 (mode con lines=28)
If defined archivo15 (mode con lines=29)
If defined archivo16 (mode con lines=30)
If defined archivo17 (mode con lines=31)
If defined archivo18 (mode con lines=32)
If defined archivo19 (mode con lines=33)
If defined archivo20 (mode con lines=34)




REM Comprimimos los archivos/Carpetas.

echo+
Nircmd win center ititle "Enviar por e-mail a..."
Colous writesec "[2]Comprimiendo los archivos, por favor, espere..."
Del /Q /F "%temp%\ZetaUploadList.txt"
If exist "%Temp%\Archivos.zip" (Del /Q /F "%Temp%\Archivos.zip")
7z A "%Temp%\Archivos.zip" %archivo1% %archivo2% %archivo3% %archivo4% %archivo5% %archivo6% %archivo7% %archivo8% %archivo9% %archivo10% %archivo11% %archivo12% %archivo13% %archivo14% %archivo15% %archivo16% %archivo17% %archivo18% %archivo19% %archivo20%

If %errorlevel% GEQ 1 (
cls
echo+
Echo+ Error inesperado al comprimir los archivos
echo+
echo+ Saliendo del programa...
ping -n 5 localhost >nul
exit)




REM Creamos la variable del peso del ZIP.

Ping -n 2 localhost >nul
for /f "tokens=*" %%%% in ('mediainfo "%Temp%\Archivos.zip" "--Inform=General;%%FileSize/String%%"') do (set "Peso=%%~%%")




REM El E-mail de destino.

:Destinatario
setlocal disabledelayedexpansion

Title=Enviar %peso:i=% por e-mail a...
cls
Echo+
Colous writesec "[7]Archivos:"
echo+
Colous writesec "[7]1 [8]"%archivo1:~0,90%"..."
If exist %archivo2% Colous writesec "[7]2 [8]"%archivo2:~0,90%"..."
If exist %archivo3% Colous writesec "[7]3 [8]"%archivo3:~0,90%"..."
If exist %archivo4% Colous writesec "[7]4 [8]"%archivo4:~0,90%"..."
If exist %archivo5% Colous writesec "[7]5 [8]"%archivo5:~0,90%"..."
If exist %archivo6% Colous writesec "[7]6 [8]"%archivo6:~0,90%"..."
If exist %archivo7% Colous writesec "[7]7 [8]"%archivo7:~0,90%"..."
If exist %archivo8% Colous writesec "[7]8 [8]"%archivo8:~0,90%"..."
If exist %archivo9% Colous writesec "[7]9 [8]"%archivo9:~0,90%"..."
If exist %archivo10% Colous writesec "[7]10 [8]"%archivo10:~0,89%"..."
If exist %archivo11% Colous writesec "[7]11 [8]"%archivo11:~0,89%"..."
If exist %archivo12% Colous writesec "[7]12 [8]"%archivo12:~0,89%"..."
If exist %archivo13% Colous writesec "[7]13 [8]"%archivo13:~0,89%"..."
If exist %archivo14% Colous writesec "[7]14 [8]"%archivo14:~0,89%"..."
If exist %archivo15% Colous writesec "[7]15 [8]"%archivo15:~0,89%"..."
If exist %archivo16% Colous writesec "[7]16 [8]"%archivo16:~0,89%"..."
If exist %archivo17% Colous writesec "[7]17 [8]"%archivo17:~0,89%"..."
If exist %archivo18% Colous writesec "[7]18 [8]"%archivo18:~0,89%"..."
If exist %archivo19% Colous writesec "[7]19 [8]"%archivo19:~0,89%"..."
If exist %archivo20% Colous writesec "[7]20 [8]"%archivo20:~0,89%"..."
echo+
Colous writesec "[7]Total [14]%peso:i=%"

echo+
Colous writesec "[8]::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::"
Colous writesec "[7]Introduce el e-mail de destino (Ej. [2]CSG1986@Hotmail.com[7])"
Colous cursoron
Echo+
Set /p Destino= A Quien se lo quieres enviar?

Echo %destino% | Findstr "...@..."
If %Errorlevel% Equ 1 (
echo+
Colous writesec "[12]PORFAVOR INTRODUZCA UNA DIRECCION VALIDA"
        Ping -n 3 localhost >nul
Goto :Destinatario)




REM El asunto del mensaje.

:Subject
cls
Title=Enviar %peso:i=% por e-mail a %Destino%
echo+
Colous writesec "[7]Destino: [2]%Destino%"
echo+
Colous writesec "[8]::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::"
Colous writesec "[7]Introduce el asunto del e-mail. [8](Dejalo vacio si quieres.)"
Colous cursoron
echo+
Set /p Asunto=Asunto:

If not defined Asunto (Set Asunto=Archivo enviado con .:Zeta Uploader:.)




REM El cuerpo del mensaje.

:Cuerpo
cls
echo+
Colous writesec "[7]Destino: [2]%Destino%"
echo+
Colous writesec "[7]Asunto : [2]%Asunto%"
echo+
Colous writesec "[8]::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::"
Echo Introduce el Texto del cuerpo del mensaje. (Dejalo vacio si quieres.)
colous cursoron
echo+
Set /p mensaje=Texto:

If not defined mensaje (Set mensaje=Archivo enviado con .:Zeta Uploader:.)




REM El usuario verifica si la informacion es correcta

:Verify
cls
echo+
Colous writesec "[7]Destino: [2]%Destino%"
echo+
Colous writesec "[7]Asunto : [2]%Asunto%"
echo+
Colous writesec "[7]Texto  : [2]%mensaje%"
echo+
Colous writesec "[8]::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::"
colous cursoron
Set /p Comprobar=¨Todo Ok? (SI/NO):

If not defined Comprobar (
echo+
Colous writesec "[12]PORFAVOR INTRODUZCA UNA RESPUESTA."
        Ping -n 3 localhost >nul
Goto :verify)

echo %Comprobar% | Find /i "s"
If %Errorlevel% EQU 0 (Goto :Enviar) ELSE (
Set Destino=
Set Asunto=
Set Mensaje=
Set Comprobar=
Goto :destinatario)




REM Enviamos el zip.

:Enviar
cls
mode con cols=46 lines=3
Title=Enviando e-mail a %Destino%
Nircmd win center ititle "Enviando e-mail a %Destino%"
colous cursoroff
echo+ & echo+ Enviando el archivo, porfavor, espere...
Zulc.exe -path="%Temp%\Archivos.zip" -receivers="%Destino%" -remarks="%mensaje%" -language="es" - subject="%Asunto%" >nul 2>&1
Del /Q /F "%Temp%\Archivos.zip"
cls
Title=E-mail enviado!!
echo+ & echo+ El e-mail se ha enviado correctamente :)
pause >nul
exit




REM La pantallita del error (O Créditos xD)

:error
mode con cols=86 lines=13
title=ZetaUpload Script
echo+
Colous writesec "[14] ZetaUpload Script                                          [8]Visite"
echo+
Colous writesec "[7] By [14]PiToLoKo"
echo+
Colous writesec "[8]::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::"
echo  Como usar este script:
echo+
echo  1§ - Arrastre un archivo o carpeta hacia                y siga las instrucciones.
echo+
echo  2§ - Tambi,n puede usar la opci¢n                   del men£ contextual.
colous 3 0 43,10 "ZetaUpload.Bat"
colous 3 0 36,12 "Enviar por e-amil"
colous 8 0 68,02 "Foro.ElHacker.Net"
colous cursoroff
Ping -n 3 localhost >nul
colous 14 0 68,02 "Foro.ElHacker.Net"
colous cursoroff
Ping -n 3 localhost >nul
colous 8 0 68,02 "Foro.ElHacker.Net"
colous cursoroff
Ping -n 3 localhost >nul
colous 14 0 68,02 "Foro.ElHacker.Net"
colous cursoroff
Ping -n 3 localhost >nul
colous 8 0 68,02 "Foro.ElHacker.Net"
colous cursoroff
Ping -n 5 localhost >nul
exit

[ZetaUploadScript By PiToLoKo]

ZetaUploadScript By PiToLoKo

En exclusiva para la gente de Elhacker.net   ...Ya se que no es nada del otro mundo el script, pero os lo dedico


Manda emails desde windows con archivos o carpetas adjuntas... ¡con un click desde el menú contextual!, ¡sin restricciones de tipo de archivo! sin limites de tamaño.

Muchisimo mejor que la opción que trae windows integrada.. pues esa opción requiere tener instalado un cliente de correo.

El script es solamente una ayuda para usar el programa zeta uploader, este ya tiene una interfaz gráfica para windows, pero me ha gustado la idea de integrar una opción en el menú y usarlo desde la consola, me parece más fácil así, en 2 simples pasos: Instalar y Usar.

Demo:

[youtube=425,350]http://www.youtube.com/watch?v=Zij2zpFUPS0[/youtube]

Nota: Visualizar en pantalla completa
Nota2: Bajar el volumen xDDDDDD





Modo de empleo:

1º - Click derecho sobre archivos o carpetas > "Enviar por email a..."

2º - Introducir el email de destino.

3º - Introducir asunto del email.

4º - Introducir el texto (Body) del email.

DESCARGA
Espero que os guste el aporte. Cualquier cosa comentarla  

Un saludo!

¿se pueden utilizar juntos? ¿Y el tipo de imagenes que utilizan estos dos programas, son las mismas que utiliza el Rocket Dock (es decir, .png)?

Poder se puede, pero es una burrada lo que te va a consumir, buano, quizás me paso un poco, pero te consume cosa innecesaria...

elige uno, el que más te guste, eso de usar 2 docks es una chorrada.
yo he probado los 3 y más, pero el rocket dock no lo cambio por ninguno aunque no sea multi instancia.

el samurize soporta los mismos skins que el rocket dock (Repito, ese no recuerdo si era multi instancia), los skins del nexus son diferentes.

saludos

Ya, estais en la lista

PD: xD

Saludos

jajajjajajjjajaja


Ryuk Rocks the world!!!

[windows]

Al final he conseguido hacerlo por las malas, ja! windows a mi...  

Primero la clave sería esta:

Código [Seleccionar] Expandir

command=C:\RunZeta.bat "%1"


RunZeta.Bat contiene lo siguiente:

Código (dos) [Seleccionar] Expandir

@echo off
echo %1>>"%temp%\ZetaUploadList.txt"

If NOT exist "%temp%\ZetaUploadDUMMY" (
Copy NUL "%temp%\ZetaUploadDUMMY" >nul 2>&1
ping -n 5 localhost >nul
Del /Q /F "%temp%\ZetaUploadDUMMY"
"C:\ZetaUploadContextMenu.bat"
) ELSE (
exit
)

Y el resto creo que se puede suponer...  


ZetaUploadContextMenu.bat:

Código (dos) [Seleccionar] Expandir

@echo off

Setlocal enabledelayedexpansion

For /F "tokens=*" %%a in ('type "%temp%\ZetaUploadList.txt"') DO (
Set /a num+=1
Set archivo!num!=%%a
)

If not defined archivo1 (goto :error)


este tema está muy hablado en el foro de rocket dock y en muchas partes.

No, no se puede, por el simple echo de que el Rocket Dock no permite 2 instancias al mismo tiempo. Y no hay programa alguno que permita "trucar" eso, al menos yo aún no lo he encontrado.

Saludos.

PD: prueba con el Samurize, o el nexus, ese si que es multi, pero creo que para esa opción hay que comprarlo (Encontrarlo craqueado).

[el-boss]

http://foro.elhacker.net/sugerencias_y_dudas_sobre_el_foro/iquestque_paso_con_el_foroelhackernet_el_dia_8_julio_del_2011_a_las_5_horas-t332840.0.html


el-boss lo está investigando xD

LOL !! xDDDD

si tan bueno es ya me lo bajaré!

saludosss

[Rando]

Rando me pasas este tema a scripting plz??? aunque aún no estoy seguro de si la solución es más de batch que de windows... gracias...


Alguien me puede ayudar con esta clave?

Tengo una opción en el menú contextual, la clave importante es esta:

Código [Seleccionar] Expandir

Command="C:\ZetaUpload.bat" "%1"

Obviamente el argumento %1 es el archivo al que se hace click derecho.

Entonces se ejecuta el bat y trabaja el archivo al que hemos clickado.

Lo malo de esto es que al elegir varios archivos a la vez > click derecho > ZetaUpload, pues se abre el .bat para cada uno de los archivos elegidos... osea, si eliges 9 archivos, se abre el BAT 9 veces. Y es una putada porque dentro del bat si que tengo la posibilidad de trabajar hasta con 20 argumentos (20 archivos, al mismo tiempo) así que que se abra el bat 9 veces es un paso atrás, no hacia delante, porque se supone que ya lo tenía echo...  

¿Como puedo hacer para elegir varios archivos a la vez y que se ejecuten en el mismo .bat, sin necesidad de abrir varías instancias de la consola?

He probado lo único que se me ha ocurrido, probar la clave con varios argumentos:

Código [Seleccionar] Expandir

command="C:\ZetaUpload.bat" "%1" "%2" "%3"

Pero no da resultado...


EDITO:Pienso que debe existir algun argumento, o caracter especial, o algo en el regedit que permita hacer lo que quiero, porque por ejemplo en el programa Winamp, puedes elegir varios archivos click derecho y se agregan a la lista... voy a revisar las claves del winamp a ver si doy con la solución... :/

EDITO2: Pufff....

Código [Seleccionar] Expandir

"C:\Program Files (x86)\Winamp\winamp.exe" "%1"

-.- Esto no me lo esperaba.

Entonces el problema debe estar en mi bat... ¿Alguna idea?

El principio de mi bat es así:

Código (dos) [Seleccionar] Expandir

@echo off
Title=Enviar por e-mail a...
mode con cols=96 lines=23
Nircmd win center ititle "Enviar por e-mail a..."
color 07

REM Creamos la variable para cada archivo que se ha arrastrado al .BAT
REM En total 20 variables, para mi son más que suficientes.

Set Archivo1=%1
Set Archivo2=%2
Set Archivo3=%3
Set Archivo4=%4
Set Archivo5=%5
Set Archivo6=%6
Set Archivo7=%7
Set Archivo8=%8
Set Archivo9=%9

shift /2
shift /2
shift /2
shift /2
shift /2
shift /2
shift /2
shift /2

Set Archivo10=%2
Set Archivo11=%3
Set Archivo12=%4
Set Archivo13=%5
Set Archivo14=%6
Set Archivo15=%7
Set Archivo16=%8
shift /2
Set Archivo17=%8
shift /2
Set Archivo18=%8
shift /2
Set Archivo19=%8
shift /2
Set Archivo20=%8

Esta es la diferencia:

Si eligo 2 archivos al mismo tiempo, la opción desde el menú contextual:



Y así es como debería ser, si arrastro esos 2 archivos al .BAT:

   

En definitiva, lo que intento es que ese script me funcione de la misma manera tanto usando la opcion desde el menú contextual, como arrastrando archivos... no se porque no lo hace al elegir la opcion en el menú...

EDITO3:
Además si lo hago desde la consola directamente, así:

Código [Seleccionar] Expandir

zetaupload.bat earth.ico log4net.dll

También funciona, y eso es lo mismo que hace la clave del registro

Código [Seleccionar] Expandir

"command=c:\ZetaUpload.bat" "%1" "%2"

pero la maldita clave no funciona, solo me coje el primer parametro!! porque claro, se abren 2 instancias en vez de una...

NO LO ENTIENDO!!!!!