Mensajes

  Disculpe, he entrado pocas veces en este foro, buscare las normas

Estoy usando REG DELETE en un BAT, y en algunas lineas no se aplica, gracias

Código (DOS) [Seleccionar] Expandir


echo on

set extension=lsc

if %extension% == nul exit

REG ADD HKEY_CURRENT_USER\Software\Classes\%extension%_portable\shell\open\command /v "" /t REG_EXPAND_SZ /d "%homedrive%\Portables instalados\LogoSoft\LogoSoft.exe" %1 /F
REG ADD HKEY_CLASSES_ROOT\%extension%_portable\DefaultIcon /v "" /t REG_EXPAND_SZ /d "%homedrive%\Portables instalados\LogoSoft\LogoSoft.exe" /F
REG ADD HKEY_CURRENT_USER\Software\Classes\.%extension% /v "" /t REG_SZ /d %extension%_portable /F

pause>nul

rem borrar

REG DELETE HKEY_CLASSES_ROOT\%extension%_portable\DefaultIcon /F /VA
REG DELETE HKEY_CURRENT_USER\Software\Classes\%extension%_portable\shell\open\command /F /VA
REG DELETE HKEY_CURRENT_USER\Software\Classes\.%extension% /F /VA rem no borra?

REG DELETE HKEY_CLASSES_ROOT\.%extension% /F /VA rem no borra?
REG DELETE HKEY_CLASSES_ROOT\%extension%_portable /F /VA
REG DELETE HKEY_CURRENT_USER\Software\Classes\.%extension% /F /VA

REG DELETE HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.%extension% /F /VA rem no borra?
REG DELETE HKEY_LOCAL_MACHINE\SOFTWARE\Classes\%extension%_portable /F /VA rem no borra?


como podria hacer para cojer el nombre de una carpeta,? gracias

me gustaria saber como hacer una barra de progreso mientras se copian unos archivos, gracias

En Windows Vista/7 la carpeta AppData esta oculta y a partir de aí meda error .VBS

Código (vb) [Seleccionar] Expandir

ObjCopy.CopyFile "festo\programas\*", "C:\Users\"+UserName+"\AppData\Roaming\Microsoft\Windows\Start Menu\Programs", true

Mi idea seria cambiar los atributos antes y despues de esta linea, ¿que me aconsejan? gracias

Código (vb) [Seleccionar] Expandir

Dim objUrl, objUser, objCopy, Ruta

Set objUrl = CreateObject("Scripting.FileSystemObject")
Set objUser = CreateObject("WScript.Network")
Set objCopy = createobject("scripting.filesystemobject")

UserName = objUser.UserName

If Not objUrl.FolderExists("c:\festo") Then
 MsgBox "Instalar", , "Festo"
 ObjCopy.CopyFolder "festo/c", "c:/festo", true

 If objUrl.FolderExists("C:\Users\"+UserName+"\Desktop") Then
   ObjCopy.CopyFile "festo\programas\*", "C:\Users\"+UserName+"\Desktop", true
   MsgBox "Instalado"
 Else
   ObjCopy.CopyFile "festo\archivos\Festo\*.lnk", "C:\Documents and Settings\"+UserName+"\Escritorio", true
   ObjCopy.CopyFolder "festo\archivos", "C:\Documents and Settings\"+UserName+"\Menú Inicio\Programas", true
   MsgBox "Instalado", , "Festo"
 End If

End If


gracias tambien pense en el 555

pero al final lo hice solo con 4 nand
NAND > condensador > NAND -> 6seg
NAND > condensador > NAND -> 3seg
de tal forma que entre el segundo 3 y 6 la carga quede alimentada
re-alimentando el segundo NAND al primero, usando los segundos NAND cono NOT, y usando las dos entradas libres como disparo por pulsador, elpulsador mete negativo, y el interruptor mete positivo mediante resistencia

de todas formas en el pasado programara un pic, me gustaría intentarlo de nuevo, ¿que necesito para intentarlo?

serian dos entradas, un pulsador y un interruptor que para hacer el disparo han de estar ambos cerrados, alimentación y carga a 12V, y pasados 3 segundos que la carga se alimente 3 segundos

a partir de una señal de 5 voltios estoy intentando crear otra señal de 5 voltios, gracias por la ayuda

pulsación en el segundo 0, salida entre el segundo 4 y 7

0 1 2 3  4 5 6 7 8      Segundos
|  |  |  |  |  |  |  |  |
__
|  |____________     Señal de entrada
              _____
_______|         |__    Señal de salida