Bloquear puerto USB para almacenamiento.

[Julio Cesar Vente Ruiz]

Saludos, nuevamente recurro a ustedes para por favor me ayuden oriente
a como puedo Bloquear el computador desde VFP para que no puedan
guardar nada de información en dispositivos de almacenamiento USB.
pero que si conecto un mouse o una impresora, etc si funcione..

De antemano gracias..

[extremo]

No se si se pueda hacer algo asi desde VFP supongo que debe haber
algun API que haga lo que tu necesitas, pero porque quieres hacer tal
cosa desde VFP?... porque no desde el mismo windows?

Saludos

[juanziur]

la pregunta ahora es, como es hacerlo desde el mismo Windows?

[extremo]

desde Windows es facil se dsabilitan los puertos usb desde el
administrador de dispositivos, ahora si usasun raton con usb, eso es
otra historia, no te funcionaria el raton, se ve dificil.

> > > De antemano gracias..- Ocultar texto de la cita -
>
> - Mostrar texto de la cita -

[Julio Cesar Vente Ruiz]

Bueno googleando encontre que en Windows cambiando un dato del registro se puede conseguir lo que quiero.
El valor que se debe cambiar es "Start" en la rama [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\USBSTOR]
viene por defecto 3 y cambiandolo por 2 o 4 no reconoce las memorias USB, pero si el mouse o impresora.

** SIN BLOQUEO
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\USBSTOR]
"Start"=dword:00000003


** CON BLOQUEO
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\USBSTOR]
"Start"=dword:00000004

Ahora la pregunta es como hacerlo pero desde VisualFoxpro... ??

Saludos..

--


Julio Cesar Vente Ruiz

[Yvan GMail]

Averigua en google como escribir en el reg de Windows,

J

 

Saludos.

Yvan Carranza

[Javier FoxParaguay]

Intentento abandonar la lista enviado un amail para

 

publicesvfoxp...@googlegroups.com

 

Pero no recibo ningun email de confirmacion.

 

 

 

 

----- Original Message -----

[Intel Man]

Hola, en realidad si es posible, yo usé hace algunos años un software con esas características, pero en estos momentos no recuerdo el nombre :(

Pero en google encontras mucha infomación:

http://www.google.com/search?q=bloquear+puerto+usb&ie=utf-8&oe=utf-8&aq=t&rls=org.debian:es-ES:unofficial&client=iceweasel-a

Saludos

> Date: Mon, 29 Aug 2011 11:34:05 -0700
> Subject: [vfp] Re: Bloquear puerto USB para almacenamiento.
> From: protech...@gmail.com
> To: publice...@googlegroups.com

[Intel Man]

Hola, aqui hay informacion como accesder al registro de windows desde visual foxpro:

http://www.google.com/search?hl=es&safe=off&client=iceweasel-a&rls=org.debian:es-ES:unofficial&sa=X&ei=l_FbToflL4j3gAeQ0ICvDA&ved=0CBUQBSgA&q=registro+de+windows+visual+foxpro&spell=1

Los 2 primeros me parecen interesantes:

http://www.portalfox.com/index.php?name=News&file=article&sid=2000&mode=nested&order=0&thold=0
http://www.pablin.com.ar/computer/cursos/vfoxpro/vfp_api6.htm

Saludos

---

Date: Mon, 29 Aug 2011 14:15:09 -0500
Subject: Re: [vfp] Re: Bloquear puerto USB para almacenamiento.
From: jvent...@gmail.com
To: publice...@googlegroups.com

[Luis Maria Guayan]

El correo de desuscripción es publicesvfoxp...@googlegroups.com

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

[Arnaldo Toledano]

Excelente aporte.


Arnaldo

--
Arnaldo Toledano Tesys Informática Córdoba Argentina

[Luis Mata]

Bueno VFP no lo puede hacer todo, la forma como lo hice yo fue por medio del antivirus, Nod32 o Kaspaersky, lo 2 que he usado y fuciona muy bien. y lo puedes hacer desde una consola a todas las pcs.

 

---

	Mata Figueroa, Luis A. Procesos, Tecnología de la Información y telecomunicaciones TELF: (00 51 1) 617-4613 RPC : (00 51) 993597297 FAX : (00 51 1) 617-4601 lm...@cclf.com.pe www.cclf.com.pe

 

From: Julio Cesar Vente Ruiz

[Luis Mata]

Politica de seguridad, tratamos de comprar dispositivos que de ser posible no se conecten por USB. Hasra ahor afunciona, mouose y teclado PS2...ETC

 

---

	Mata Figueroa, Luis A. Procesos, Tecnología de la Información y telecomunicaciones TELF: (00 51 1) 617-4613 RPC : (00 51) 993597297 FAX : (00 51 1) 617-4601 lm...@cclf.com.pe www.cclf.com.pe

From: extremo

Sent: Monday, August 29, 2011 1:34 PM

To: Comunidad de Visual Foxpro en Español

[Intel Man]

Hola, pues en este caso estás equivocado, ya que Visual Foxpro puede hacerlo sin problemas, gracias al aporte de otro listero pude crear un programa que haga esto:
 
** SIN BLOQUEO
*[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\USBSTOR]
*"Start"=dword:00000003
*
** CON BLOQUEO
*[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\USBSTOR]
*"Start"=dword:00000004
#define HKEY_CLASSES_ROOT -2147483648
 *** Tipo no definido
 #define REG_NONE 0
 *** Cadena de caracteres
 #define REG_SZ 1
 *** Binario
 #define REG_BINARY 3
 *** Número de 32 bits
 #define REG_DWORD 4
 *** Número de 32 bits
 *** con formato Little-Endian
 #define REG_DWORD_LITTLE_ENDIAN 4
 *** Número de 32 bits
 *** con formato Big-Endian
 #define REG_DWORD_BIG_ENDIAN 5
 **** Enlace simbólico de Unicode
 #define REG_LINK 6
 *** Matriz de cadenas
 #define REG_MULTI_SZ 7
 *** Lista de recursos de dispositivo
 #define REG_RESOURCE_LIST 8
 #define HKEY_CURRENT_USER -2147483647
 #define HKEY_LOCAL_MACHINE -2147483646
 #define HKEY_USERS -2147483645
 #define HKEY_CURRENT_CONFIG -2147483653
 #define HKEY_DYN_DATA -2147483654
 #define KEY_QUERY_VALUE 1
 #define KEY_SET_VALUE 2
 #define KEY_CREATE_SUB_KEY 4
 #define KEY_ENUMERATE_SUB_KEYS 8
 #define KEY_NOTIFY 16
 #define KEY_CREATE_LINK 32
 #define KEY_READ 1+8+16
 #define KEY_WRITE 2+4
 #define KEY_EXECUTE KEY_READ
 #define KEY_ALL_ACCESS 1+2+4+8+16+32
    #define REG_OPTION_NON_VOLATILE 0
 DECLARE ;
   Integer RegCreateKeyEx ;
   IN WIN32API ;
   Integer nKey, ;
   String cSubKey, ;
   Integer nReserved, ;
   String cClass, ;
   Integer nOptions, ;
   Integer nDesired, ;
   String @cSecurityAttributes, ;
   Integer @nResult, ;
   Integer @nDisposition
 
 DECLARE ;
   Integer RegSetValueEx ;
   IN WIN32API ;
   Integer nKey, ;
   String cValueName, ;
   Integer nReserved, ;
   Integer nType, ;
   String cData, ;
   Integer nSizeData
 nKey = 0
 nResult = 0

 =RegCreateKeyEx( HKEY_LOCAL_MACHINE, ;
   "SYSTEM\CurrentControlSet\services\USBSTOR", ;
   0, ;
   0, ;
   REG_OPTION_NON_VOLATILE, ;
   KEY_ALL_ACCESS, ;
   0,;
   @nKey, ;
   @nResult )
= RegSetValueEx( nKey, "Start", ;
   0, REG_DWORD, wordtoc(4), 4)
 = RegCloseKey( nKey )
 
*** Combierte un número en un buffer
 PROCEDURE WORDTOC
 LPARAMETER nNumber
 RETURN CHR(BITAND(255,nNumber))+;
   CHR(BITAND(65280,nNumber)%255)+;
   CHR(BITAND(16711680,nNumber)%255)+;
   CHR( BITAND(4278190080,nNumber)%255)
 *** Combierte un buffer en un número
 PROCEDURE CTOWORD
 LPARAMETER cBuffer
 RETURN ASC(SUBSTR(cBuffer,1,1))+;
   ASC(SUBSTR(cBuffer,2,1))*256+;
   ASC(SUBSTR(cBuffer,3,1))*65536+;
   ASC(SUBSTR(cBuffer,4,1))*16777216

 
Solo es cuestión de leer y usar lo que tiene el VISUAL FOXPRO y no usar herramientas de terceros si VISUAL FOXPRO lo puede hacer mejor y a nuestro gusto.
 
Ya lo he dicho antes, como los que se empeñan a usar el "copy tu archivo.txt > lpt1" o "buscar programas para pasar dbf a mysql (cualquier base de datos), si eso muy bien lo puede hacer Visual Foxpro.
 
Saludos

 

---

From: lm...@cclf.com.pe
To: publice...@googlegroups.com
Subject: Re: [vfp] Bloquear puerto USB para almacenamiento.
Date: Mon, 29 Aug 2011 14:36:34 -0500

[Miguel Castillo]

no se como se hace pero aca moneexangue  todos los ordenadores no aceptan nda por usb


saludos



miguel castillo

---

From: lm...@cclf.com.pe
To: publice...@googlegroups.com

Subject: Re: [vfp] Re: Bloquear puerto USB para almacenamiento.
Date: Mon, 29 Aug 2011 16:18:33 -0500

[Luis Mata]

Bueno de poder lo puede hacer, pero zapatero a tus zapatos, no es garantía al 100% como seguridad informática, y los USB son un riesgo en potencia de ataques de virus, por mas que sea fanático de VFP ni de broma lo  propondría como seguridad, para eso están los terceros que se dedican a este negocio y los antivirus son las mas eficientes.

aparte de que de N equipos no todos usan el sistema hecho en VFP.  y si de toda una red solo vas a proteger a unos cuantos equipos y dejar otros desprotegidos, mejor no hagas nada, por esos desprotegidos te van a fulminar todos los equipos de la red.

---

	Mata Figueroa, Luis A. Procesos, Tecnología de la Información y telecomunicaciones TELF: (00 51 1) 617-4613 RPC : (00 51) 993597297 FAX : (00 51 1) 617-4601 lm...@cclf.com.pe www.cclf.com.pe

[Julio Cesar Vente Ruiz]

Bueno Intel_Man se me adelanto... je je
Pero funciona perfecto,  ahora puedo desde VFP bloquear o desbloquear los puertos USB..
Saludos

Larga Vida y Prosperidad para VFP.

[Edgar Acevedo]

Hola Julio César:

Como yo vengo de tiempos de Foxpro 2.6 para DOS; desde tiempos remotos aprendí a hacer este tipo de arreglos de forma un "tanto primitiva".  Afortunadamente VFP 9 me ha permitido seguir haciéndolo así, con "código de las eras oscuras" y de esta forma, yo lo solucioné como te lo expongo a continuación:

Para Bloquear acceso a puertos  USB, hice el siguiente código:

* Primero, desactivo el eco en la ventana activa
  SET CONSOLE OFF
* Luego, defino un archivo tipo TEXTO para escribir un archivo tipo .REG
  SET TEXTMERGE TO BLOCKUSB.REG
  SET TEXTMERGE ON
* Seguidamente, "escribo" un archivo tipo .REG
  \\Windows Registry Editor Version 5.00
  \
  \[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Servic es\USBSTOR]
  \"Start"=dword:00000004
  \
* Cierro y guardo el archivo tipo .REG recien creado
  SET TEXTMERGE OFF
  SET TEXTMERGE TO
* Devuelvo el eco en la ventana activa
  SET CONSOLE ON
* Chequeo si realmente se creó el archivo tipo .REG
  IF FILE('BLOCKUSB.REG')
   * Si se creó el archivo, lo ejecuto
     RUN /N7 REGEDIT.EXE  /S  BLOCKUSB.REG
   * Borro el archivo tipo .REG recien creado
     ERASE BLOCKUSB.REG
  ENDIF

Para Des-Bloquear acceso a puertos  USB, hice el siguiente código:

* Primero, desactivo el eco en la ventana activa
  SET CONSOLE OFF
* Luego, defino un archivo tipo TEXTO para escribir un archivo tipo .REG
  SET TEXTMERGE TO LIBRAUSB.REG
  SET TEXTMERGE ON
* Seguidamente, "escribo" un archivo tipo .REG
  \\Windows Registry Editor Version 5.00
  \
  \[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Servic es\USBSTOR]
  \"Start"=dword:00000003
  \
* Cierro y guardo el archivo tipo .REG recien creado
  SET TEXTMERGE OFF
  SET TEXTMERGE TO
* Devuelvo el eco en la ventana activa
  SET CONSOLE ON
* Chequeo si realmente se creó el archivo tipo .REG
  IF FILE('LIBRAUSB.REG')
   * Si se creó el archivo, lo ejecuto
     RUN /N7 REGEDIT.EXE  /S  LIBRAUSB.REG
   * Borro el archivo tipo .REG recien creado
     ERASE LIBRAUSB.REG
  ENDIF

[Yvan GMail]

Hola Edgar,

Hasta que S.O. funciona este código? No he probado en Windows 7, pero para tenerlo en cuenta.

 

Gracias

Yvan Carranza

[Edgar Acevedo]

Hola Yvan:

Pues la verdad no se si funciona en Windows 7.  Yo lo he probado hasta Windows XP.
Se me ocurre que hagas una prueba con "algo inocente" en Windows 7 de la siguiente manera:

1.  Busca con el REGEDIT  la siguiente llave:
     [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\WOW]

2.  Notarás que entre algunas otras cosas, tiene los siguientes valores:
     "LPT_timeout"="45"
     "DefaultSeparateVDM"="No"

3. Para que programas hechos en FoxPro para DOS funcionen bien, debes cambiar estos valores.
    No temas cambiarlos, que si no usas nada de FoxPro para DOS, tu Windows Registry no se verá dañado.
    Mas bien, te quedará listo para correr proramas en FoxPro para DOS.
    Intuyo...  que debes tener derechos de Administrador en Windows Vista o en Windows 7 para poder hacer
    cambios al Registry (o que el UAC esta deshabilitado o por lo menos al "minimo")

4. Procedamos pues a hacer un pequeño programa que cambia estos valores del Windows Registry:
  
  SET CONSOLE OFF
  SET TEXTMERGE TO FOXDOS.REG
  SET TEXTMERGE ON

  \\Windows Registry Editor Version 5.00
  \

  \[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\WOW]
  \"LPT_timeout"="1"
  \"DefaultSeparateVDM"="Yes"
  \

  SET TEXTMERGE OFF
  SET TEXTMERGE TO

  SET CONSOLE ON
  IF FILE('FOXDOS.REG')
     RUN /N7 REGEDIT.EXE /S FOXDOS.REG
     ERASE FOXDOS.REG
  ENDIF

5. Nuevamente con el  REGEDIT, entra a chequear a llave
   [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\WOW]
    para ver si efectivamente fueron grabados los nuevos valores:
   "LPT_timeout"="1"
  "DefaultSeparateVDM"="Yes"

Yo con mucho gusto haría la prueba, pero no tengo Windows 7 a la mano por el momento. 
Nos cuentas que pasa...!!!

Salu2,



Edgar

[Edgar Acevedo]

IMPORANTE:

No se porqué al guardar el mensage  GMAIL le metió espacios en blanco en donde yo NO LOS PUSE.
Te repito el código, espero que GMAIL no ponga espacios en blanco esta vez...

[Yvan GMail]

Hola Edgar,

WOW no lo encontré..

Bueno entonces me fui a otro programa que no lo uso

Ejecute el prg pero obtuve un error en esta línea.

     RUN /N7 REGEDIT.EXE /S FOXDOS.REG

Asi que le quite /N7 y ya no me arrojo el error

Pero no hizo el cambio.

Y claro.. me salió que si aceptaba “abrir el regedit” por el tema de seguridad de Windows.

 

SET CONSOLE OFF

  SET TEXTMERGE TO FOXDOS.REG

  SET TEXTMERGE ON

  \\Windows Registry Editor Version 5.00

  \

  \[HKEY_CURRENT_USER\Software\Softonic\Universal Downloader]

  \"UUID"="F7F9"

  \

  SET TEXTMERGE OFF

  SET TEXTMERGE TO

  SET CONSOLE ON

  IF FILE('FOXDOS.REG')

     RUN REGEDIT.EXE /S FOXDOS.REG

     ERASE FOXDOS.REG

  ENDIF

 

*  \"UUID"="DC45D948-EDDB-4982-A6AD-718CE0CB1A27"

 

 

 

 

 

 

 

Saludos.

Yvan Carranza

285-7627

[Edgar Acevedo]

Hola Yvan:

Gracias por hacer la prueba.  en los próximos días tendré acceso a un equipo con Windows 7
y trataré de encontrarle una salida a este problema.  Claramente es que no te deja correr el
REGEDIT, pero se me ocurre...

¿Que tal si se corre el REGEDIT con "credenciales" de Administrador...?

Si encuentro algo positivo a este respecto, te aviso...

Gracias por tus pruebas...

Salu2,



Edgar

[Yvan GMail]

Edgar,

Ahora procedi a ejecutar el archivo.reg  que generó el fox, pero directamente desde Windows y  obtuve este mensaje adicional.

 

 

Asi si funciona..

 

Pero con Fox no me mostro esta ventana adicional.

 

Saludos.

[Edgar Acevedo]

Yvan:

Suena a una restricción del UAC o a que el usuario no tiene derechos de "Administrador".  Pero estoy seguro que tiene arreglo.
En cuanto tenga acceso a una estación con Windows 7 me voy a poner a "jugar" un poco con este asunto.

Gracias por tus informes...!

Salu2,


Edgar

[Julio Cesar Vente Ruiz]

Hola, si funciona en W7, de echo yo no tengo windows anteriores todo lo hago en w7...

[José Luis Díaz]

Edgar el programa para bloquear funciona perfecto. Pero para
desbloquear no. Lo ejecuté en Windows Server 2003 R2 con Service Pack
2 y quedó bloqueado de por vida el puerto USB

Gracias

JOSE LUIS

El 29/08/11, Julio Cesar Vente Ruiz <jvent...@gmail.com> escribió:

> Hola, si funciona en W7, de echo yo no tengo windows anteriores todo lo hago
> en w7...
>
>
> El 29 de agosto de 2011 19:08, Edgar Acevedo <aper...@gmail.com> escribió:
>
>> Yvan:
>>
>> Suena a una restricción del UAC o a que el usuario no tiene derechos de
>> "Administrador". Pero estoy seguro que tiene arreglo.
>> En cuanto tenga acceso a una estación con Windows 7 me voy a poner a
>> "jugar" un poco con este asunto.
>>
>> Gracias por tus informes...!
>>
>> Salu2,
>>
>>
>> Edgar
>>
>>
>>
>> El 29 de agosto de 2011 17:57, Yvan GMail
>> <yvan.c...@gmail.com>escribió:
>>

>> Edgar,****

>>>
>>> Ahora procedi a ejecutar el archivo.reg que generó el fox, pero

>>> directamente desde Windows y obtuve este mensaje adicional.****
>>>
>>> ** **
>>>
>>> ****
>>>
>>> ** **
>>>
>>> Asi si funciona..****
>>>
>>> ** **
>>>
>>> Pero con Fox no me mostro esta ventana adicional.****
>>>
>>> ** **
>>>
>>> Saludos.****
>>>
>>> Yvan Carranza****
>>>
>>> ** **
>>>
>>> *De:* publice...@googlegroups.com [mailto:
>>> publice...@googlegroups.com] *En nombre de *Edgar Acevedo
>>> *Enviado el:* lunes, 29 de agosto de 2011 18:45
>>>
>>> *Para:* publice...@googlegroups.com
>>> *Asunto:* Re: [vfp] Bloquear puerto USB para almacenamiento.****
>>>
>>> ** **

>>>
>>> Hola Yvan:
>>>
>>> Gracias por hacer la prueba. en los próximos días tendré acceso a un
>>> equipo con Windows 7
>>> y trataré de encontrarle una salida a este problema. Claramente es que
>>> no
>>> te deja correr el
>>> REGEDIT, pero se me ocurre...
>>>
>>> ¿Que tal si se corre el REGEDIT con "credenciales" de Administrador...?
>>>
>>> Si encuentro algo positivo a este respecto, te aviso...
>>>
>>> Gracias por tus pruebas...
>>>
>>> Salu2,
>>>
>>>
>>>
>>> Edgar
>>>

>>> ****

>>>
>>> El 29 de agosto de 2011 17:39, Yvan GMail <yvan.c...@gmail.com>

>>> escribió:****
>>>
>>> Hola Edgar,****
>>>
>>> WOW no lo encontré..****
>>>
>>> Bueno entonces me fui a otro programa que no lo uso****
>>>
>>> Ejecute el prg pero obtuve un error en esta línea.****
>>>
>>> * RUN /N7 REGEDIT.EXE /S FOXDOS.REG*****
>>>
>>> Asi que le quite /N7 y ya no me arrojo el error****
>>>
>>> Pero no hizo el cambio.****

>>>
>>> Y claro.. me salió que si aceptaba “abrir el regedit” por el tema de

>>> seguridad de Windows.****
>>>
>>> ****
>>>
>>> SET CONSOLE OFF****
>>>
>>> SET TEXTMERGE TO FOXDOS.REG****
>>>
>>> SET TEXTMERGE ON****
>>>
>>> \\Windows Registry Editor Version 5.00****
>>>
>>> \****
>>>
>>> \[HKEY_CURRENT_USER\Software\Softonic\Universal Downloader]****
>>>
>>> \"UUID"="F7F9"****
>>>
>>> \****
>>>
>>> SET TEXTMERGE OFF****
>>>
>>> SET TEXTMERGE TO****
>>>
>>> SET CONSOLE ON****
>>>
>>> IF FILE('FOXDOS.REG')****
>>>
>>> RUN REGEDIT.EXE /S FOXDOS.REG****
>>>
>>> ERASE FOXDOS.REG****
>>>
>>> ENDIF****
>>>
>>> ****
>>>
>>> * \"UUID"="DC45D948-EDDB-4982-A6AD-718CE0CB1A27"****
>>>
>>> ****
>>>
>>> ****
>>>
>>> ****
>>>
>>> ****
>>>
>>> ****
>>>
>>> ****
>>>
>>> ****
>>>
>>> ****
>>>
>>> Saludos.****
>>>
>>> Yvan Carranza****
>>>
>>> 285-7627****
>>>
>>> ****
>>>
>>> *De:* publice...@googlegroups.com [mailto:
>>> publice...@googlegroups.com] *En nombre de *Edgar Acevedo
>>> *Enviado el:* lunes, 29 de agosto de 2011 18:25****
>>>
>>>
>>> *Para:* publice...@googlegroups.com
>>> *Asunto:* Re: [vfp] Bloquear puerto USB para almacenamiento.****
>>>
>>> ****

>>>
>>> Hola Yvan:
>>>
>>> Pues la verdad no se si funciona en Windows 7. Yo lo he probado hasta
>>> Windows XP.
>>> Se me ocurre que hagas una prueba con "algo inocente" en Windows 7 de la
>>> siguiente manera:
>>>
>>> 1. Busca con el REGEDIT la siguiente llave:
>>> [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\WOW]
>>>
>>> 2. Notarás que entre algunas otras cosas, tiene los siguientes valores:
>>> "LPT_timeout"="45"
>>> "DefaultSeparateVDM"="No"
>>>
>>> 3. Para que programas hechos en FoxPro para DOS funcionen bien, debes
>>> cambiar estos valores.
>>> No temas cambiarlos, que si no usas nada de FoxPro para DOS, tu
>>> Windows Registry no se verá dañado.
>>> Mas bien, te quedará listo para correr proramas en FoxPro para DOS.
>>> Intuyo... que debes tener derechos de Administrador en Windows Vista
>>> o en Windows 7 para poder hacer
>>> cambios al Registry (o que el UAC esta deshabilitado o por lo menos
>>> al
>>> "minimo")
>>>
>>> 4. Procedamos pues a hacer un pequeño programa que cambia estos valores
>>> del Windows Registry:
>>>

>>> * SET CONSOLE OFF

>>> SET TEXTMERGE TO FOXDOS.REG
>>> SET TEXTMERGE ON
>>> \\Windows Registry Editor Version 5.00
>>> \
>>> \[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\WOW]
>>> \"LPT_timeout"="1"
>>> \"DefaultSeparateVDM"="Yes"
>>> \
>>> SET TEXTMERGE OFF
>>> SET TEXTMERGE TO
>>> SET CONSOLE ON
>>> IF FILE('FOXDOS.REG')
>>> RUN /N7 REGEDIT.EXE /S FOXDOS.REG
>>> ERASE FOXDOS.REG
>>> ENDIF

>>> *

>>> 5. Nuevamente con el REGEDIT, entra a chequear a llave

>>> *[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\WOW]*

>>> para ver si efectivamente fueron grabados los nuevos valores:

>>> * "LPT_timeout"="1"
>>> "DefaultSeparateVDM"="Yes"
>>> *

>>> Yo con mucho gusto haría la prueba, pero no tengo Windows 7 a la mano por
>>> el momento.
>>> Nos cuentas que pasa...!!!
>>>
>>> Salu2,
>>>
>>>
>>>

>>> Edgar****

>>>
>>> El 29 de agosto de 2011 17:12, Yvan GMail <yvan.c...@gmail.com>

>>> escribió:****
>>>
>>> Hola Edgar,****

>>>
>>> Hasta que S.O. funciona este código? No he probado en Windows 7, pero
>>> para

>>> tenerlo en cuenta.****
>>>
>>> ****
>>>
>>> Gracias****
>>>
>>> Yvan Carranza****
>>>
>>> ****
>>>
>>> *De:* publice...@googlegroups.com [mailto:
>>> publice...@googlegroups.com] *En nombre de *Edgar Acevedo
>>> *Enviado el:* lunes, 29 de agosto de 2011 18:07
>>> *Para:* publice...@googlegroups.com
>>> *Asunto:* Re: [vfp] Bloquear puerto USB para almacenamiento.****
>>>
>>> ****

>>>
>>> Hola Julio César:
>>>
>>> Como yo vengo de tiempos de Foxpro 2.6 para DOS; desde tiempos remotos
>>> aprendí a hacer este tipo de arreglos de forma un "tanto primitiva".
>>> Afortunadamente VFP 9 me ha permitido seguir haciéndolo así, con "código
>>> de
>>> las eras oscuras" y de esta forma, yo lo solucioné como te lo expongo a
>>> continuación:
>>>
>>> Para Bloquear acceso a puertos USB, hice el siguiente código:
>>>

>>> ** Primero, desactivo el eco en la ventana activa**
>>> SET CONSOLE OFF
>>> *** Luego, defino un archivo tipo TEXTO para escribir un archivo tipo
>>> .REG**

>>> SET TEXTMERGE TO BLOCKUSB.REG
>>> SET TEXTMERGE ON

>>> *** Seguidamente, "escribo" un archivo tipo .REG**

>>> \\Windows Registry Editor Version 5.00
>>> \
>>> \[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Servic es\USBSTOR]
>>> \"Start"=dword:00000004
>>> \

>>> *** Cierro y guardo el archivo tipo .REG recien creado
>>> ** SET TEXTMERGE OFF
>>> SET TEXTMERGE TO
>>> *** Devuelvo el eco en la ventana activa
>>> ** SET CONSOLE ON
>>> *** Chequeo si realmente se creó el archivo tipo .REG
>>> ** IF FILE('BLOCKUSB.REG')
>>> ** * Si se creó el archivo, lo ejecuto
>>> ** RUN /N7 REGEDIT.EXE /S BLOCKUSB.REG
>>> ** * Borro el archivo tipo .REG recien creado**
>>> ** ** ERASE BLOCKUSB.REG
>>> ENDIF*****

>>>
>>> Para Des-Bloquear acceso a puertos USB, hice el siguiente código:
>>>

>>> ** Primero, desactivo el eco en la ventana activa**
>>> SET CONSOLE OFF
>>> *** Luego, defino un archivo tipo TEXTO para escribir un archivo tipo
>>> .REG**

>>> SET TEXTMERGE TO LIBRAUSB.REG
>>> SET TEXTMERGE ON

>>> *** Seguidamente, "escribo" un archivo tipo .REG**

>>> \\Windows Registry Editor Version 5.00
>>> \
>>> \[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Servic es\USBSTOR]
>>> \"Start"=dword:00000003
>>> \

>>> *** Cierro y guardo el archivo tipo .REG recien creado
>>> ** SET TEXTMERGE OFF
>>> SET TEXTMERGE TO
>>> *** Devuelvo el eco en la ventana activa
>>> ** SET CONSOLE ON
>>> *** Chequeo si realmente se creó el archivo tipo .REG
>>> ** IF FILE('LIBRAUSB.REG')
>>> ** * Si se creó el archivo, lo ejecuto
>>> ** RUN /N7 REGEDIT.EXE /S LIBRAUSB.REG
>>> ** * Borro el archivo tipo .REG recien creado**
>>> ** ** ERASE LIBRAUSB.REG
>>> ENDIF
>>> **
>>> *

>>>
>>> El 29 de agosto de 2011 16:46, Julio Cesar Vente Ruiz <

>>> jvent...@gmail.com> escribió:****

>>>
>>> Bueno Intel_Man se me adelanto... je je
>>> Pero funciona perfecto, ahora puedo desde VFP bloquear o desbloquear los
>>> puertos USB..
>>> Saludos
>>>

>>> Larga Vida y Prosperidad para VFP.****
>>>
>>> El 29 de agosto de 2011 17:28, Luis Mata <lm...@cclf.com.pe> escribió:***
>>> *
>>>
>>> ****

>>>
>>> Bueno de poder lo puede hacer, pero zapatero a tus zapatos, no es
>>> garantía

>>> al 100% como seguridad informática, y *los USB son un riesgo en potencia
>>> de ataques de virus*, por mas que sea fanático de VFP ni de broma lo

>>> propondría como seguridad, para eso están los terceros que se dedican a
>>> este

>>> negocio y los antivirus son las mas eficientes.****

>>>
>>> aparte de que de N equipos no todos usan el sistema hecho en VFP. y si
>>> de
>>> toda una red solo vas a proteger a unos cuantos equipos y dejar otros
>>> desprotegidos, mejor no hagas nada, por esos desprotegidos te van a
>>> fulminar

>>> todos los equipos de la red.****
>>>
>>> ****
>>> ------------------------------
>>>
>>> [image: logo2]****
>>>
>>> *Mata Figueroa, Luis A. *

>>> Procesos, Tecnología de la Información y telecomunicaciones
>>> TELF: (00 51 1) 617-4613
>>> RPC : (00 51) 993597297
>>> FAX : (00 51 1) 617-4601
>>> lm...@cclf.com.pe

>>> www.cclf.com.pe ****
>>>
>>> [image: imgfrm][image:
>>> siguenos-fb]<http://www.facebook.com/pages/Hipermercado-Cer%C3%A1mico/198287550195289#%21/pages/Hipermercado-Cer%C3%A1mico/198287550195289?sk=wall>
>>> ****
>>>
>>> ****
>>>
>>> *From:* Intel Man <intel_m...@hotmail.com> ****
>>>
>>> *Sent:* Monday, August 29, 2011 5:04 PM****
>>>
>>> *To:* publice...@googlegroups.com ****
>>>
>>> *Subject:* RE: [vfp] Bloquear puerto USB para almacenamiento.****
>>>
>>> ****

>>> ****
>>> ------------------------------

>>>
>>> From: lm...@cclf.com.pe
>>> To: publice...@googlegroups.com
>>> Subject: Re: [vfp] Bloquear puerto USB para almacenamiento.
>>> Date: Mon, 29 Aug 2011 14:36:34 -0500****
>>>
>>> Bueno VFP no lo puede hacer todo, la forma como lo hice yo fue por medio
>>> del antivirus, Nod32 o Kaspaersky, lo 2 que he usado y fuciona muy bien.
>>> y

>>> lo puedes hacer desde una consola a todas las pcs.****
>>>
>>> ****
>>>
>>> ****
>>> ------------------------------
>>>
>>> [image: logo2]****
>>>
>>> *Mata Figueroa, Luis A. *

>>> Procesos, Tecnología de la Información y telecomunicaciones
>>> TELF: (00 51 1) 617-4613
>>> RPC : (00 51) 993597297
>>> FAX : (00 51 1) 617-4601

>>> lm...@cclf.com.pe <http://lmata%40cclf.com.pe/>
>>> www.cclf.com.pe ****
>>>
>>> [image: imgfrm][image:
>>> siguenos-fb]<http://www.facebook.com/pages/Hipermercado-Cer%C3%A1mico/198287550195289#%21/pages/Hipermercado-Cer%C3%A1mico/198287550195289%3fsk%3dwall>
>>> ****
>>>
>>> ****
>>>
>>> *From:* Julio Cesar Vente Ruiz <jvent...@gmail.com> ****
>>>
>>> *Sent:* Monday, August 29, 2011 12:46 PM****
>>>
>>> *To:* Comunidad de Visual Foxpro en
>>> Español<publice...@googlegroups.com>
>>> ****
>>>
>>> *Subject:* [vfp] Bloquear puerto USB para almacenamiento.****
>>>
>>> ****

>>>
>>> Saludos, nuevamente recurro a ustedes para por favor me ayuden oriente
>>> a como puedo Bloquear el computador desde VFP para que no puedan
>>> guardar nada de información en dispositivos de almacenamiento USB.
>>> pero que si conecto un mouse o una impresora, etc si funcione..
>>>

>>> De antemano gracias..****
>>>
>>>
>>>
>>>
>>> --
>>>
>>>
>>> Julio Cesar Vente Ruiz****
>>>
>>> ****
>>>
>>> ****
>>>
>>> ** **

[José Luis Díaz]

Problema corregido

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\USBSTOR]

"Start"=dword:00000003

y no

\[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Servic es\USBSTOR]
\"Start"=dword:00000003

Muchas gracias muy útil la rutina

JOSE LUIS

El 12/09/11, José Luis Díaz <sej...@gmail.com> escribió:

[Martin´S Consultora Informatica]

Me sirvio a mi tambien y lo hice de esta forma

 

DO CASE

CASE

ACCIONUSB = 0

CASE ACCIONUSB = 1

*Para Bloquear acceso a puertos USB, hice el siguiente código:

* Primero, desactivo el eco en la ventana activa

SET CONSOLE OFF

* Luego, defino un archivo tipo TEXTO para escribir un archivo tipo .REG

SET TEXTMERGE TO BLOCKUSB.REG

SET TEXTMERGE ON

* Seguidamente, "escribo" un archivo tipo .REG

\\Windows Registry Editor Version 5.00

\

\[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR]

\"Start"=dword:00000004

\

* Cierro y guardo el archivo tipo .REG recien creado

SET TEXTMERGE OFF

SET TEXTMERGE TO

* Devuelvo el eco en la ventana activa

SET CONSOLE ON

* Chequeo si realmente se creó el archivo tipo .REG

IF FILE('BLOCKUSB.REG')

oShell =

CREATEOBJECT("Wscript.Shell")

oShell.

Run(("REGEDIT.EXE /S BLOCKUSB.REG"),0,.t.)

ERASE BLOCKUSB.REG

ENDIF

CASE

ACCIONUSB = 2

*Para Des-Bloquear acceso a puertos USB, hice el siguiente código:

* Primero, desactivo el eco en la ventana activa

SET CONSOLE OFF

* Luego, defino un archivo tipo TEXTO para escribir un archivo tipo .REG

SET TEXTMERGE TO LIBRAUSB.REG

SET TEXTMERGE ON

* Seguidamente, "escribo" un archivo tipo .REG

\\Windows Registry Editor Version 5.00

\

\[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR]

\"Start"=dword:00000003

\

* Cierro y guardo el archivo tipo .REG recien creado

SET TEXTMERGE OFF

SET TEXTMERGE TO

* Devuelvo el eco en la ventana activa

SET CONSOLE ON

* Chequeo si realmente se creó el archivo tipo .REG

IF FILE('LIBRAUSB.REG')

* Si se creó el archivo, lo ejecuto

oShell = CREATEOBJECT("Wscript.Shell")

oShell.

Run(("REGEDIT.EXE /S LIBRAUSB.REG"),0,.t.)

ERASE LIBRAUSB.REG

ENDIF

ENDCASE

[Edgar Acevedo]

Fabuloso...!!! 

Mil gracias por compartir, me gusta mucho mas tu idea de usar el Shell, es mucho "mas limpia"...

Salu2,


Edgar

[Marco Plaza]

Hola, ando corto de tiempo, pero no se maten para editar el registro:

oEditarRegistro =Newobject('registry','C:\Program Files\Microsoft
Visual FoxPro 9\Ffc\registry.vcx')

luego pueden usar los métodos para leer llaves, cambiarlas,
borrarlas , listarlas etc.

en la ayuda busquen 'Registry Access Foundation Class'

Saludos.

Marco Plaza

On Aug 29, 8:08 pm, Edgar Acevedo <aperso...@gmail.com> wrote:
> Yvan:
>
> Suena a una restricción del UAC o a que el usuario no tiene derechos de
> "Administrador".  Pero estoy seguro que tiene arreglo.
> En cuanto tenga acceso a una estación con Windows 7 me voy a poner a "jugar"
> un poco con este asunto.
>
> Gracias por tus informes...!
>
> Salu2,
>
> Edgar
>

> El 29 de agosto de 2011 17:57, Yvan GMail <yvan.carra...@gmail.com>escribió:
>
>
>
>
>
>
>
> >  Edgar,****

>
> > Ahora procedi a ejecutar el archivo.reg  que generó el fox, pero

> > directamente desde Windows y  obtuve este mensaje adicional.****
>
> > ** **
>
> > ****
>
> > ** **
>
> > Asi si funciona..****
>
> > ** **
>
> > Pero con Fox no me mostro esta ventana adicional.****
>
> > ** **
>
> > Saludos.****
>
> > Yvan Carranza****
>
> > ** **
>

> > *De:*publice...@googlegroups.com[mailto:>publice...@googlegroups.com]*En nombre de *Edgar Acevedo
> > *Enviado el:* lunes, 29 de agosto de 2011 18:45
>
> > *Para:*publice...@googlegroups.com
> > *Asunto:* Re: [vfp] Bloquear puerto USB para almacenamiento.****
>
> >  ** **

>
> > Hola Yvan:
>
> > Gracias por hacer la prueba.  en los próximos días tendré acceso a un
> > equipo con Windows 7
> > y trataré de encontrarle una salida a este problema.  Claramente es que no
> > te deja correr el
> > REGEDIT, pero se me ocurre...
>
> > ¿Que tal si se corre el REGEDIT con "credenciales" de Administrador...?
>
> > Si encuentro algo positivo a este respecto, te aviso...
>
> > Gracias por tus pruebas...
>
> > Salu2,
>
> > Edgar
>

> > ****
>
> > El 29 de agosto de 2011 17:39, Yvan GMail <yvan.carra...@gmail.com>

> > escribió:****
>
> > Hola Edgar,****
>
> > WOW no lo encontré..****
>

> > Bueno entonces me fui a otro programa que no lo uso****

>
> > Ejecute el prg pero obtuve un error en esta línea.****
>
> > *     RUN /N7 REGEDIT.EXE /S FOXDOS.REG*****
>
> > Asi que le quite /N7 y ya no me arrojo el error****
>
> > Pero no hizo el cambio.****
>

> > Y claro.. me salió que si aceptaba “abrir el regedit” por el tema de

> > *De:*publice...@googlegroups.com[mailto:>publice...@googlegroups.com]*En nombre de *Edgar Acevedo
> > *Enviado el:* lunes, 29 de agosto de 2011 18:25****
>
> > *Para:*publice...@googlegroups.com
> > *Asunto:* Re: [vfp] Bloquear puerto USB para almacenamiento.****
>
> >  ****

>
> > Hola Yvan:
>
> > Pues la verdad no se si funciona en Windows 7.  Yo lo he probado hasta
> > Windows XP.
> > Se me ocurre que hagas una prueba con "algo inocente" en Windows 7 de la
> > siguiente manera:
>
> > 1.  Busca con el REGEDIT  la siguiente llave:
> >      [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\WOW]
>
> > 2.  Notarás que entre algunas otras cosas, tiene los siguientes valores:
> >      "LPT_timeout"="45"
> >      "DefaultSeparateVDM"="No"
>
> > 3. Para que programas hechos en FoxPro para DOS funcionen bien, debes
> > cambiar estos valores.
> >     No temas cambiarlos, que si no usas nada de FoxPro para DOS, tu Windows
> > Registry no se verá dañado.
> >     Mas bien, te quedará listo para correr proramas en FoxPro para DOS.
> >     Intuyo...  que debes tener derechos de Administrador en Windows Vista
> > o en Windows 7 para poder hacer
> >     cambios al Registry (o que el UAC esta deshabilitado o por lo menos al
> > "minimo")
>
> > 4. Procedamos pues a hacer un pequeño programa que cambia estos valores del
> > Windows Registry:
>

> > *  SET CONSOLE OFF

> >   SET TEXTMERGE TO FOXDOS.REG
> >   SET TEXTMERGE ON
> >   \\Windows Registry Editor Version 5.00
> >   \
> >   \[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\WOW]
> >   \"LPT_timeout"="1"
> >   \"DefaultSeparateVDM"="Yes"
> >   \
> >   SET TEXTMERGE OFF
> >   SET TEXTMERGE TO
> >   SET CONSOLE ON
> >   IF FILE('FOXDOS.REG')
> >      RUN /N7 REGEDIT.EXE /S FOXDOS.REG
> >      ERASE FOXDOS.REG
> >   ENDIF

> > *

> > 5. Nuevamente con el  REGEDIT, entra a chequear a llave

> >    *[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\WOW]*

> >     para ver si efectivamente fueron grabados los nuevos valores:

> >   * "LPT_timeout"="1"
> >   "DefaultSeparateVDM"="Yes"
> > *

> > Yo con mucho gusto haría la prueba, pero no tengo Windows 7 a la mano por
> > el momento.
> > Nos cuentas que pasa...!!!
>
> > Salu2,
>

> > Edgar****
>
> > El 29 de agosto de 2011 17:12, Yvan GMail <yvan.carra...@gmail.com>
> > escribió:****
>
> > Hola Edgar,****

>
> > Hasta que S.O. funciona este código? No he probado en Windows 7, pero para

> > tenerlo en cuenta.****
>
> >  ****
>
> > Gracias****
>
> > Yvan Carranza****
>
> >  ****
>

> > *De:*publice...@googlegroups.com[mailto:>publice...@googlegroups.com]*En nombre de *Edgar Acevedo
> > *Enviado el:* lunes, 29 de agosto de 2011 18:07> *Para:*publice...@googlegroups.com
> > *Asunto:* Re: [vfp] Bloquear puerto USB para almacenamiento.****
>
> >  ****

>
> > Hola Julio César:
>
> > Como yo vengo de tiempos de Foxpro 2.6 para DOS; desde tiempos remotos
> > aprendí a hacer este tipo de arreglos de forma un "tanto primitiva".
> > Afortunadamente VFP 9 me ha permitido seguir haciéndolo así, con "código de
> > las eras oscuras" y de esta forma, yo lo solucioné como te lo expongo a
> > continuación:
>
> > Para Bloquear acceso a puertos  USB, hice el siguiente código:
>

> > ** Primero, desactivo el eco en la ventana activa**
> >   SET CONSOLE OFF

> > *** Luego, defino un archivo tipo TEXTO para escribir un archivo tipo .REG
> > **

> >   SET TEXTMERGE TO BLOCKUSB.REG
> >   SET TEXTMERGE ON

> > *** Seguidamente, "escribo" un archivo tipo .REG**

> >   \\Windows Registry Editor Version 5.00
> >   \
> >   \[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Servic es\USBSTOR]
> >   \"Start"=dword:00000004
> >   \

> > *** Cierro y guardo el archivo tipo .REG recien creado
> > **  SET TEXTMERGE OFF
> >   SET TEXTMERGE TO
> > *** Devuelvo el eco en la ventana activa
> > **  SET CONSOLE ON
> > *** Chequeo si realmente se creó el archivo tipo .REG

> > **  IF FILE('BLOCKUSB.REG')

> > **   * Si se creó el archivo, lo ejecuto
> > **     RUN /N7 REGEDIT.EXE  /S  BLOCKUSB.REG

> >  **  * Borro el archivo tipo .REG recien creado**
> > ** **    ERASE BLOCKUSB.REG
> >   ENDIF*****
>

> > Para Des-Bloquear acceso a puertos  USB, hice el siguiente código:
>

> > ** Primero, desactivo el eco en la ventana activa**
> >   SET CONSOLE OFF

> > *** Luego, defino un archivo tipo TEXTO para escribir un archivo tipo .REG
> > **

> >   SET TEXTMERGE TO LIBRAUSB.REG
> >   SET TEXTMERGE ON

> > *** Seguidamente, "escribo" un archivo tipo .REG**

> >   \\Windows Registry Editor Version 5.00
> >   \
> >   \[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Servic es\USBSTOR]
> >   \"Start"=dword:00000003
> >   \

> > *** Cierro y guardo el archivo tipo .REG recien creado
> > **  SET TEXTMERGE OFF
> >   SET TEXTMERGE TO
> > *** Devuelvo el eco en la ventana activa
> > **  SET CONSOLE ON
> > *** Chequeo si realmente se creó el archivo tipo .REG

> > **  IF FILE('LIBRAUSB.REG')

> > **   * Si se creó el archivo, lo ejecuto
> > **     RUN /N7 REGEDIT.EXE  /S  LIBRAUSB.REG

> >  **  * Borro el archivo tipo .REG recien creado**
> > ** **    ERASE LIBRAUSB.REG
> >   ENDIF
> > **
> > *
>

> > El 29 de agosto de 2011 16:46, Julio Cesar Vente Ruiz <

> > jventer...@gmail.com> escribió:****

>
> > Bueno Intel_Man se me adelanto... je je
> > Pero funciona perfecto,  ahora puedo desde VFP bloquear o desbloquear los
> > puertos USB..
> > Saludos
>

> > Larga Vida y Prosperidad para VFP.****
>
> > El 29 de agosto de 2011 17:28, Luis Mata <lm...@cclf.com.pe> escribió:****
>
> >  ****

>
> > Bueno de poder lo puede hacer, pero zapatero a tus zapatos, no es garantía

> > al 100% como seguridad informática, y *los USB son un riesgo en potencia
> > de ataques de virus*, por mas que sea fanático de VFP ni de broma lo

> > propondría como seguridad, para eso están los terceros que se dedican a este

> > negocio y los antivirus son las mas eficientes.****

>
> > aparte de que de N equipos no todos usan el sistema hecho en VFP.  y si de
> > toda una red solo vas a proteger a unos cuantos equipos y dejar otros
> > desprotegidos, mejor no hagas nada, por esos desprotegidos te van a fulminar

> > todos los equipos de la red.****
>
> >  ****
> >  ------------------------------
>
> > [image: logo2]****
>
> > *Mata Figueroa, Luis A. *

> > Procesos, Tecnología de la Información y telecomunicaciones
> > TELF: (00 51 1) 617-4613
> > RPC : (00 51) 993597297
> > FAX : (00 51 1) 617-4601
> > lm...@cclf.com.pe

> >www.cclf.com.pe****
>
> > [image: imgfrm][image: siguenos-fb]<http://www.facebook.com/pages/Hipermercado-Cer%C3%A1mico/198287550195...>
> > ****
>
> >  ****
>
> > *From:* Intel Man <intel_man_in...@hotmail.com> ****
>
> > *Sent:* Monday, August 29, 2011 5:04 PM****
>
> > *To:*publice...@googlegroups.com****
>
> > *Subject:* RE: [vfp] Bloquear puerto USB para almacenamiento.****
>
> >  ****

>
> > Hola, pues en este caso estás equivocado, ya que Visual Foxpro puede
> > hacerlo sin problemas, gracias al aporte de otro listero pude crear un
> > programa que haga esto:
>
> > ** SIN BLOQUEO
> > *[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\USBSTOR]
> > *"Start"=dword:00000003
> > *
> > ** CON BLOQUEO
> > *[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\USBSTOR]
> > *"Start"=dword:00000004
> > #define HKEY_CLASSES_ROOT -2147483648
> > *** Tipo no definido
> > #define REG_NONE 0
> > *** Cadena de caracteres
> > #define REG_SZ 1
> > *** Binario
> > #define REG_BINARY 3
> > *** Número de 32 bits
> > #define REG_DWORD 4
> > *** Número de 32 bits
> > *** con formato Little-Endian
> > #define REG_DWORD_LITTLE_ENDIAN 4
> > *** Número de 32 bits
> > *** con formato Big-Endian
>

> ...
>
> read more »
>
>  image001.png
> 15KViewDownload
>
>  image007.png
> 16KViewDownload
>
>  image008.png
> 59KViewDownload
>
>  image006.png
> 60KViewDownload
>
>  image009.gif
> 2KViewDownload

[Ing.Daniel Bojorge]

Para el que le de problemas esta instrucción (por cualquier motivo, como a mi que uso un portable jejejeje), mejor poner así:

oEditarRegistro =Newobject('registry',SYS(2004)+'Ffc\registry.vcx')

Dios L@s Bendiga

Saludos,

Daniel (Con 1 Estrella DCE de Microsoft)
www.debsconsultores.com

Nicaragua

"Si ustedes permanecen unidos a mí, y si permanecen fieles a mis enseñanzas, pidan lo que quieran y se les dará.
(Juan 15:7 DHH)
Bendito el varón que se fía en el SEÑOR, y cuya confianza es el SEÑOR.
(Jeremías 17:7 RV2000)

[Edgar Acevedo]

Hola Daniel:

Tienes algún lugar donde pueda ver ejemplos claros de como leer, borrar, modificar y agregar valores al registro utilizando  REGISTRY.VCX ?

Encontré uno que menciona el HELP de VFP, pero ese habla de  un  REGISTRY.PRG  y no  de un REGISTRY.VCX.

Por otro lado, el help de VFP no muestra ejemplos, así que se me re hace confuso entender los términos en los que el HELP pretende explicar el uso del  REGISTRY.VCX

Salu2 y mil gracias....!!



Edgar

[Marco Plaza]

Hola , aqui les tengo las funciones para modificar una clave, crearla
o recorrerlas:
( hay mas funciones.. estas son las que he usado ) esto funciona al
pelo, pero recuerden
hacer una copia del registro antes de hacer cualquier prueba ok!

Ejemplo con lo del USB:

#Define HKEY_LOCAL_MACHINE -2147483646

cLlave = 'Start'
cValorAsignar = '00000003'
cDonde='SYSTEM\CurrentControlSet\Services\USBSTOR'
nSeccion=HKEY_LOCAL_MACHINE

oReg = Newobject('registry','C:\Program Files\Microsoft Visual FoxPro
9\Ffc\registry.vcx')

nerror = oReg.setRegKey(cLlave,cValorAsignar,cDonde,nSeccion)

siempre si nerror = 0 todo ok, no he buscado que indican otros
valores, pero podemos buscarlos.

para borrar el valor ( no la llave ) es igual, pero no se usa el
parámetro del valor:

oReg.DeleteKeyValue(cLlave,cDonde,nSeccion)

para borrar una llave:
oreg.deleteKey(nSeccion,cLlave)

Ahora para otros casos ( como borrar llaves completas ) debemos
navegar por el registro.

Aqui les mando una función para borrar todas las llaves debajo de una
llave buscada:

=borrar(cDonde+'\'+cLlave,HKEY_LOCAL_MACHINE)


*---------------------------------------------------------------------------------------
Function borrar( cLlave As Character , nSeccion As Integer )
*---------------------------------------------------------------------------------------

? 'abrir '+cLlave,oreg.openkey(cLlave,nSeccion) && abrir la llave
solicitada

Declare llaves(1) && crear un array para traernos todas las llaves que
pertenezcan a la llave que abrimos

oreg.Enumkeys(@llaves)

IF !empty(llaves(1))

nllaves = ALEN(llaves)

For clborr = nllaves TO 1 STEP -1 && hay que borrar de abajo hacia
arriba!!

llaveaborr = cLlave+'\'+llaves(clborr)

? oreg.deletekey(llaveaborr),llaveaborr

Endfor

ENDIF

? oreg.deletekey(nSeccion,cLlave) & borramos la llave principal

endfunction
**********************************************************


Saludos

Marco Plaza

se debe ejecutar vfp como administrador!

( a mi en win7 me modifica el registro, pero no hace nada, igual puedo
usar el pendrive... buscaré la causa..)

[Edgar Acevedo]

Estupendo....!!!!

Definitivamente eres muy ingenioso.  Yo pasé horas jugando con esto mismo sin poder lograr ningún resultado. En fin, esa es la historia de mi vida:  "La inteligencia siempre me ha perseguido pero yo voy un paso adelante..."
Gracias por compartir.  Un par de preguntas:

1- ¿ Sabes si el  SetRegKey   también puede "agregar nuevos" valores al Registry o solo puede modificar los ya existentes ?

2- ¿ Cómo haces solamente para "consultar" un determinado valor, sin cambiarlo ?

Salu2 y nuevamente mil gracias por tus ejemplos.


Edgar

[Edgar Acevedo]

Por cierto, por allí encontré los otros valores:

#DEFINE HKEY_CLASSES_ROOT     -2147483648 
#DEFINE HKEY_CURRENT_USER     -2147483647 
#DEFINE HKEY_LOCAL_MACHINE   -2147483646 
#DEFINE HKEY_USERS         -2147483645 

Salu2,


Edgar

El 12 de septiembre de 2011 17:44, Marco Plaza <stma...@gmail.com> escribió:

[Marco Plaza]

Uff para nada Edgar, no te creas que me divertí mucho con esto.. me
tomó horas también... la ayuda no ayuda mucho..
para consultar un valor usa:

cLlave = 'Start'
cRutaReg='SYSTEM\CurrentControlSet\Services\USBSTOR'
cSeccion=-2147483646 &&hkey_local_machine
lcValor='' && se pasa como parametro con @

oReg.getRegKey(cLlave,@lcValor,cRutaReg,cSeccion)

=messagebox(cRutaReg+'\'+cLlave+'='+lcValor,0)

Saludos

Marco Plaza

On Sep 12, 8:08 pm, Edgar Acevedo <aperso...@gmail.com> wrote:
> Por cierto, por allí encontré los otros valores:
>

> *#DEFINE HKEY_CLASSES_ROOT     -2147483648

> #DEFINE HKEY_CURRENT_USER     -2147483647
> #DEFINE HKEY_LOCAL_MACHINE   -2147483646
> #DEFINE HKEY_USERS         -2147483645

> *
> Salu2,
>
> Edgar

[Ernesto Ruiz Lopez]

Excelente, veo que es un post viejo, pero alguien sabe hacerle para que el puerto usb deje de mandar voltaje?
lo que necesito es dejar de mandar voltaje y volver a mandar cuando lo desee.

...