Mensajes

[ver el mensaje]

Buenas...

Simplemente la idea se me ha ocurrido al ver el mensaje de Dirpok, en el que se intenta crear un cronometro en batch....pero como a mi me gusta más vbscript, porque me parece que da más posibilidades, he creado el mio en este lenguaje 

El cronometro pide un nombre de usuario, sin el que no se pude comenzar, luego de eso queda a la espera de que se presione aceptar en un mensaje, una vez que se acepta, comienza el conteo  , al terminar avisa de cuanto tiempo se ha demorado (igualmente lo va haciendo a medida que van pasando los segundos)
Al dar aceptar nuevamente termina de contar, y guarde registro de la fecha y hora actual, así como el usuario, y su tiempo en un registro (C:\ranking.txt), y abre el archivo que contiene el ranking para que pueda verse 

A ver que les parece....

Código (vb) [Seleccionar] Expandir

set objshell = createobject("wscript.shell")
set objfso = createobject("scripting.filesystemobject")
set ranking = objfso.opentextfile("C:\ranking.txt",8,true)
do
usuario = inputbox("Ingresa tu nombre por favor...")
if usuario <> "" then
exit do
else
msgbox "Debes de ingresar un nombre de usuario para continuar..."
end if
loop
msgbox "Presiona aceptar para comenzar el conteo..."
empieza = time()
mensaje = -1
do while mensaje = -1
tiempo = datediff("s",empieza,time())
mensaje =  objshell.popup(tiempo,1,"Cronometro")
loop

ranking.writeline now() & chr(9) & usuario & chr(9) & "...." & tiempo & "seg."
ranking.close

msgbox "El tiempo insumido a sido de " & tiempo & " segundos"
objshell.run "C:\ranking.txt"

Creo que me ha quedado bastante bien 

Mensaje original de donde saqué la idea

Cronometro en BATCH

Saludos

[HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders]

De nada...

Te recomiendo revisar la clave HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders ya que encontrarás varias carpetas interesantes 

Saludos

Me había faltado esta parte 

tales como Configuración Local, Mi Música, etc

Si miras el listado de valores para specialfolders, verás que no están las carpetas que mencionas, me paso a mi también en su momento el no encontrar las dichosas carpetas, es por eso que esta fue la única solución que se me ocurrió....

Las rutas a esas carpetas se guardan en el registro de windows, así que lo único que hay que hacer es leer la clave correspondiente  , aquí va el code

Código (vb) [Seleccionar] Expandir

Set wshshell = createobject("wscript.shell")

imagenes = wshshell.regread("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\My Pictures")
musica = wshshell.regread("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\My Music")

msgbox "Mis imagenes ---> " & imagenes& chr(13) & "Mi musica ---> " & musica
Saludos otra vez

[specialfolders]

Para obtener las rutas especiales de las carpetas de windows debes de utilizar specialfolders, ej:

Código (vb) [Seleccionar] Expandir

set wshshell = createobject("wscript.shell")
escritorio = wshshell.specialfolders("desktop")
msgbox escritorio
Como ves, con "desktop"(escritorio) obtengo la ruta del escritorio.

Los valores posibles para specialfolders son;

• AllUsersDesktop
• AllUsersStartMenu
• AllUsersPrograms
• AllUsersStartup
• Desktop
• Favorites
• Fonts
• MyDocuments
• NetHood
• PrintHood
• Programs
• Recent
• SendTo
• StartMenu
• Startup
• Templates

Saludos 

[ShyDow]

No lo quería poner como ejemplo, pero como ShyDow lo ha comentado, recientemente han posteado el source de este virus...

Source: Virus I Love You

Saludos

[c:\origen.txt]

Buenas.....

Aquí te dejo un ejemplo de como se puede cifrar un texto, es realmente sencillo, y cifra el texto en base a la longitud del mismo (número de caracteres)

Código (vb) [Seleccionar] Expandir

set fso = createobject("scripting.filesystemobject")
set archivo = fso.opentextfile("c:\origen.txt",1)

cadena = archivo.readall

set destino = fso.opentextfile("c:\destino.txt",8,True)

For i = 1 to len(cadena)
texto = mid(cadena,i,1)
codificado = chr(Asc(texto) Xor Asc(len(cadena)))
destino.write codificado
Next

Como verás, este script, obtiene todo el texto del archivo c:\origen.txt, lo codifica caracter a caracter, y lo escribe en el archivo c:\destino.txt

Es decir, que para ver este ejemplo, debes de tener el archivo c:\origen.txt con algún texto dentro (porque no hace ningún tipo de comprobación de si el texto es nulo )

Espero te sirva de ayuda 
Sigue preguntando por *.vbs que lo prefiero al *.bat, y todo el mundo pregunta por *.bat XD

Saludos

Tal vez este post sea borrado... pero respondo a mi pregunta...

Seria bueno que especificaras.  No puedes ir acusando por ahi sin tener o mostrar pruebas.

Justamente por respeto es que no he nombrado a los usuarios, simplemente he comentado el comportamiento de estos y si alguien se da por aludido, lo siento, pero la realidad es esa

Saludos

[http://udk.openoffice.org/common/man/tutorial/office_automation.html]

Es que por lo que vi, la base es la misma, e incluso, el propio link esta en la web de Openoffice, mira esto... así llegue

http://udk.openoffice.org/common/man/tutorial/office_automation.html

Saludos

[Openoffice]

Fijate si encuentras algo en la documentación de Openoffice, solo le he dado una ojeada ya que no estoy en mi pc, no tengo la suite, ni tengo el vb  , así que no puedo hacer pruebas

Tutorial(Inglés)

Saludos

Eso es porque el nc es detectado por los AV

Igualmente no quita que el que tienes pude tener regalito 

Saludos