Autor
Tema: ZetaUploadScript By PiToLoKo (Manda emails con un click, sin restricciones!) (Leído 4,895 veces)
SuperDraco
Desconectado
Mensajes: 2.505
Crew Dragon
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: VIDEO 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!
« Última modificación: 8 Julio 2011, 17:57 pm por pitoloko »
En línea
No he vuelto, solo estoy de paso.
SuperDraco
Desconectado
Mensajes: 2.505
Crew Dragon
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:
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.
For /F "tokens=*"
%% a in ( 'type "
% temp % \ZetaUploadList.txt"'
) DO ( Set archivo
! num ! =%% style="color: #448888;">a )
REM Comprimimos los archivos/Carpetas.
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 %
cls
Echo + Error inesperado al comprimir los archivos
REM Creamos la variable del peso del ZIP.
for /f "tokens=*"
% %% % in ( 'mediainfo "
% Temp % \Archivos.zip" "--Inform=General;
%% FileSize/String %% "') do ( set "Peso= %% ~ %% "
)
REM El E-mail de destino.
:Destinatario
Title =Enviar
% peso:i= % por e-mail a...
cls
Colous writesec "[7]Archivos:"
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 % "..."
Colous writesec "[7]Total [14]% peso:i= % "
Colous writesec "[8]::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::"
Colous writesec "[7]Introduce el e-mail de destino ( Ej. [2]CSG1986@ Hotmail.com[7]) "
Colous cursoron
Set /p Destino= A Quien se lo quieres enviar?
Echo % destino % | Findstr "...
@ ..."
Colous writesec "[12]PORFAVOR INTRODUZCA UNA DIRECCION VALIDA"
REM El asunto del mensaje.
:Subject
cls
Title =Enviar
% peso:i= % por e-mail a
% Destino % Colous writesec "[7]Destino: [2]% Destino % "
Colous writesec "[8]::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::"
Colous writesec "[7]Introduce el asunto
del e-mail. [8]
( Dejalo vacio si quieres.
) "
Colous cursoron
REM El cuerpo del mensaje.
:Cuerpo
cls
Colous writesec "[7]Destino: [2]% Destino % "
Colous writesec "[7]Asunto : [2]%Asunto %"
Colous writesec "[8]::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::"
Echo Introduce el Texto
del cuerpo
del mensaje.
( Dejalo vacio si quieres.
) colous cursoron
REM El usuario verifica si la informacion es correcta
cls
Colous writesec "[7]Destino: [2]% Destino % "
Colous writesec "[7]Asunto : [2]%Asunto %"
Colous writesec "[7]Texto : [2]%mensaje %"
Colous writesec "[8]::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::"
colous cursoron
Set /p Comprobar=¨Todo Ok?
( SI/NO
) :
Colous writesec "[12]PORFAVOR INTRODUZCA UNA RESPUESTA."
echo % Comprobar % | Find /i "s"
REM Enviamos el zip.
:Enviar
cls
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
echo +
& echo + El e-mail se ha enviado correctamente :
)
REM La pantallita del error (O Créditos xD)
:error
mode
con cols=86 lines=13
Colous writesec "[14] ZetaUpload Script [8]Visite"
Colous writesec "[7] By [14]PiToLoKo"
Colous writesec "[8]::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::"
echo Como usar este script:
echo 1§ - Arrastre un archivo o carpeta hacia y siga las instrucciones.
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
colous 14 0 68,02 "Foro.ElHacker.Net"
colous cursoroff
colous 8 0 68,02 "Foro.ElHacker.Net"
colous cursoroff
colous 14 0 68,02 "Foro.ElHacker.Net"
colous cursoroff
colous 8 0 68,02 "Foro.ElHacker.Net"
colous cursoroff
En línea
No he vuelto, solo estoy de paso.
VanX
Wiki
Desconectado
Mensajes: 222
Gracias por el aporte
En línea
madpitbull_99
Es un autoextraíble de
WinRar . No sé que hace esto en
Programación General , iría en
Scripting .
PD: Allá va.
En línea
SuperDraco
Desconectado
Mensajes: 2.505
Crew Dragon
ups, no se como ha pasado madpitbull perdon, ¿Lo puedes mover a Windows? lo quería postear ahí y creo que debe ir ahi, porque como es para usar desde el menú contextual de windows... Bueno, tu eres el moderador, gracias! Vale lo habia movido Rando , ya da igual xD por cierto claro, aclaro que es un autoextraible que instala la opcíon en el menu para poder usarla. Pero quien no se fie, ya he puesto el script y además se puede extraer el Rar y probarlo manualmente el script XD... saludosss
« Última modificación: 8 Julio 2011, 17:53 pm por pitoloko »
En línea
No he vuelto, solo estoy de paso.
madpitbull_99
De hecho lo posteaste en Window s, pero Randomize te lo movió a Programación General .
En línea
Mensajes similares
Asunto
Iniciado por
Respuestas
Vistas
Último mensaje
[Duda] Cual es el Valor de de Mause right click down y Mause right click up
Programación Visual Basic
agus0
2
2,932
15 Julio 2009, 20:48 pm
por agus0
Guía para hacer un Windows 7 desatendido en caso de necesidad. (By PiToLoKo)
« 1 2 3 »
Windows
SuperDraco
27
57,628
27 Mayo 2016, 14:10 pm
por MCKSys Argentina
Photoshop CS5 Ext. 12.0 x86 Modificado by PiToLoKo (Autoinstalable y con Extras)
Software
SuperDraco
3
3,523
7 Abril 2011, 12:25 pm
por anonimo12121
¿Como guardar las contraseñas de Firefox en menos de 10 segundos? By PiToLoKo.
Tutoriales - Documentación
SuperDraco
2
12,158
7 Junio 2011, 14:01 pm
por Foxy Rider
Zeta Uploader | Manda emails con archivos sin restricciones...
Software
SuperDraco
0
1,526
8 Julio 2011, 05:19 am
por SuperDraco