Menú

Mostrar Mensajes

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ú

Mensajes - Novlucker

#3811
Y aquí lo que te ahorrará muchas líneas  ::)

Código (vb) [Seleccionar]
msgbox objfolder.parentfolder.self.path

parentfolder se utiliza justo para lo que buscas, mostrar la carpeta dentro de la cual esta una carpeta o archivo

Saludos
#3812
Es verdad, es que lo había probado sin ese if, eso se me ocurrio despues

No debería de haber problemas para ejecutar el ".lnk", pero no entendí lo de la carpeta y demás XD

Saludos
#3813
Como poder se puede.

Para abrir archivos de texto, modificar algo y ya debería de ser sencillo, y alcanza con el objeto FSO, y quizás el objshell, son los dos primeros capitulos del tuto de vbs que has bajado.

Con respecto a los de los formularios, en vbs no puedes crear formularios, si HTA's, que son muy similares a las páginas webs, pero que se vuelven algo así como un ejecutable (solo poniendoles extensión HTA), pero sin lugar a dudas, en VB o VB.NET lo tendías muy pero muy fácil, ya que el enfoque que tienen va más a esto.

Saludos
#3814
Puedes probar algo como esto

Código (vb) [Seleccionar]
set objshell = createobject("Wscript.shell")

Selecthora = "5.30,7.30,9.30,11.30,13.30,15.30,16.30"
comando = "miarchivo.bat"

horas = split(selecthora,",")
task_event = -1

Do
wscript.sleep 30000
new_task_event = match_hour(hour(now()),minute(now()))
if new_task_event > task_event then
task_event = new_task_event
objshell.run comando, vbhide
if task_event=ubound(horas) then
wscript.quit
end if
end if
Loop

Function match_hour(hs,min)
match_hour = -1
for i = 0 to ubound(horas)
shs = cint(split(horas(i),".")(0))
smin = cint(split(horas(i),".")(1))
if hs=shs and min=smin then
match_hour= i
exit Function
end if
next
End Function


Para configurar el script debes de poner las horas a las que se ejecutará (Selecthora), separando hora y hora entre coma, y hora y minuto con punto (como aparece en el propio script).

Si te fijas ya he puesto las horas a las que dices se debe de ejecutar

El script revisa cada 30 segundos a ver si coincide hora y minuto actual con uno de los que aparece en la lista, si coincide revisa que no se haya ejecutado antes, y si esta todo ok ejecuta un comando, en este caso he puesto que se ejecute un bat en modo oculto. Por otra parte, si el script ejecuta un comando y coincide con que es el último horario de ejecución, se detiene (cierra)

Para probarlo podrías cambiar las horas de ejecución y poner por ejemplo a ejecutar la calculadora (calc)

Saludos
#3815
Citarvas mal, si no existe dicho recurso no existe dicho aporte, ademas no hay forma de relacionarlo, hay mas de 100 hilos de sql y no existe el foro XD
Eso tampoco dice nada .. alguien ha dicho que esta vez tampoco se va a crear? :rolleyes:

La paciencia es una de las virtudes de la que muchos carecen  :rolleyes:
#3816
Te serviría un vbs?

Si te fijas aquí alguien ya ha preguntado algo similar

https://foro.elhacker.net/scripting/borrar_archivos_segun_su_fecha_en_bat-t223860.0.html

En este caso quería eliminar los archivos de más de un mes, pero podría modificarse para que sean 15 días y no archivos, sino carpetas.

Saludos
#3817
Me lo he bajado pero aún no lo leo, pero por lo que vi ligeramente esta entretenido  :D
Por cierto .. los de easy-share deben de vender el tema de los captchas ... debí de esperar los 500 segundos 4 veces! es decir, un total de media hora, me lo validaba, y volvía a empezar  :¬¬

Saludos
#3818
Es el mismo del que habla tonilogar, y de hecho lo tienes aquí, pero de cualquier manera eso no permite abrir directorios, solo archivos, podrías usar el objeto Shell.application y la función browseforfolder

Código (vb) [Seleccionar]
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, "Selecciona una carpeta:", 0, 0)

If objFolder Is Nothing Then
Wscript.Quit
End If

Msgbox objFolder.self.path


Saludos
#3819
Si, este objeto justamente lo que hace es controlar el iexplorer, sirve entre otras cosas para automatizar una navegación, y la ventaja que tiene es que puedes escribir lo que quieras y en cualquier formato (dentro de las posibilidades del HTML) :P

Saludos
#3820
Código binario para generar el keyboard.exe y el clip.exe  :P

Saludos