Mensajes

Nooooooooooo  , pensar que me paso todo el día en el foro,y justo me vengo a desconectar en ese momento 
jeje ,bueno,al menos puedo decir que lo fui por 30 mín 

Saludos

[Colaborador]

Bueno,en ese caso.. yo me conformo con un simple Colaborador bajo mi nick  , creo que lo imprimiría y lo encuadraría 

Es verdad, conocía ese método... de esa misma forma vienen comprimidos los archivos en el cd de instalación de windows 
Pero la verdad... ni la recordaba 
Utilizando ese método en el netcat por ejemplo, se comprime de 59392 bytes, a 28377 bytes  , y para descomprimir el archivo...

Código [Seleccionar] Expandir

expand origen destino

Creo que es una muy buena opción que quizás varios conocen, pero nadie recuerda

Saludos

Claro, todos estamos continuamente aprendiendo algo nuevo...

También aclarar... que este post no va en VB, creo que un moderador lo movió sin darse cuenta, o prestando atención a uno de los mensajes anteriores 

Va en http://foro.elhacker.net/scripting-b64.0/... esto es vbscript, y no VB   

Saludos

Si lo encuentras publicalo... así queda un método más 

[select case]

Bueno,.. así lo haría yo (no quiere decir que el tuyo este mal)

Código (vb) [Seleccionar] Expandir

If msgbox("You requested to open Firefox, Password Identification required, Continue?",4+16,"Notice") = 7 then
wscript.quit
end if
password = "elpass"
do
returnvalue = InputBox ("Input Password","Identification","**********")
if returnvalue = password then
msgbox "Correct."
set shl = createobject("wscript.shell")
shl.run "notepad"
wscript.quit
else
msgbox "Incorrect."
end if
loop

He puesto el ejecutable del notepad para que sea más entendible y sobre todo, he sustituido el uso de select case ya que para pocas opciones es mejor el if 

Saludos

[word]

En el primero se agrega un..

Código (vb) [Seleccionar] Expandir

mail.attachments.add("c:\miarchivo.txt")

En el segundo se agrega..

Código (vb) [Seleccionar] Expandir

objcdo.addattachment("c:\miarchivo.txt")

Solamente el primero muestra mensajes de alerta, y no, no esta automatizado lo de responderles, sobre todo porque como dije... si se utiliza sendkeys, no debe de haber nadie en el pc, ya que es como si controlasen tu teclado por unos segundos.
Es decir, que si estas escribiendo en el word, se envíaran teclas y se terminará escribiendo en él, en lugar de puslar los mensajes

Saludos

[antes]

Como te he comentado antes... si es posible hacer eso con vbs... y existen dos maneras...

• Con el objeto outlook.application, para lo que tienes que tener outlook correctamente instalado

Código (vb) [Seleccionar] Expandir

set objout = createobject("outlook.application")
set mapi = objout.getnamespace("mapi")
set mail = objout.createitem(0)
mail.recipients.add("maildestinatario")
mail.subject = "Prueba de envío"
mail.body = "Este es el texto del mail"
mail.send()
msgbox "enviado"

Pero tiene el problema de que salen un par de mensajes de seguridad informando de esto, se podría automatizar la respuesta a estos mensajes, por medio de sendkeys, pero el problema radica en que no debería de haber nadie en el pc 

• La segunda opción es a traves del objecto cdo.message

Código (vb) [Seleccionar] Expandir

set objcdo=createobject("cdo.message")
objcdo.subject="Prueba de envío"
objcdo.from="direccionmail"
objcdo.to="maildestinatario"
objcdo.textbody="Este es el texto del mail"
objcdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objcdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "direccionsmtp"
objcdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = puertosmtp
objcdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objcdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
objcdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "direccionmail"
objcdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "contraseña"
objcdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
objcdo.configuration.fields.update
objcdo.send

En este último caso hay que especificar una cuenta de correo válida, y a su vez, ingresar usuario y contraseña, en mi caso utilizo gmail, ya que no da nigún tipo de problemas 

Espero haya quedado todo claro 

Saludos

P.d: No es necesario que vayas por el foro repitiendo la misma pregunta si no recibes la respuesta de inmediato 

[start]

En que para ejecutar el programa deberías de utilizar start, si no lo haces el cmd queda a la espera de que se cierre el programa, y luego sigue, es como hacer start /wait

Código (dos) [Seleccionar] Expandir

FOR /F "tokens=1-4 delims=/ " %%a in ('date /t') do (set fecha=%%a-%%b-%%c)

date 29-07-2008

start C:\vet\vet.exe

date %fecha%

Saludos 

[Propiedades]

Bueno, veo sigues con problemas 

Lo que debes de hacer es:

• Poner a reproducir el video

• Botón derecho sobre el video... Propiedades

• Copias el link
• Pones el video a descargar en el Streamdown

Yyyy, listo, parece ser que se obtiene una dirección distinta cada vez que se ejecuta, por eso debes de ejecutarlo antes 

Saludos

P.D:Si bien freeksnow tiene este problema desde hace más de un mes, me envío IM porque seguia sin resolverlo