Que no se ejecute el auto run

hola, daniel !

Se puede hacer lo siguiente.
1) Una macro que evite que se ejecute el auto run me refiero: al de los CD los USB o cualquier otro dispositivo parecido.
2) que si se inserta un CD un USB o cualquier otro dispositivo que se muestre un userform
y en un label1 se muestre la letra de la unidad Ejemplo:A: , C: ,D:
3) que al cerrar la aplicacion se vuelva a restablecer el auto run es decir que vuelva a funcionar.

si lo que necesitas es administrar los eventos de la shell de windows...
y poner a tu aplicacion por encima del sistema operativo...
espero que algo de lo siguiente (al menos) te apunte en la direccion apropiada ;)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

visita la siguiente secciones en la pagina de Randy Birch:

-> http://vbnet.mvps.org/code/shell/sh...notify.htm
en la seccion de "BAS Module 3 Code" estan las constantes utilizadas para: la notificacion de eventos como:
SHCNE_MEDIAINSERTED = &H20 '(G) Storage media has been inserted into a drive.
SHCNE_MEDIAREMOVED = &H40 '(G) Storage media has been removed from a drive.
SHCNE_DRIVEREMOVED = &H80 '(G) A drive has been removed.
SHCNE_DRIVEADD = &H100 '(G) A drive has been added.
SHCNE_NETSHARE = &H200 'A folder on the local computer is being
' shared via the network.
SHCNE_NETUNSHARE = &H400 'A folder on the local computer is no longer
' being shared via the network.

-> http://vbnet.mvps.org/code/disk/deviolock.htm
encontraras consejos para des/re/bloquear dispositivos desmontables (cd, flash, ...)
ademas de enlaces a otros temas relacionados (al principio de esta pagina)

-> http://vbnet.mvps.org/code/disk/floppyready.htm
con estas rutinas puedes determinar si la unidad de diskettes esta lista/vacia

Hola Hector Miguel que tal?
Siento no haber podido responder a otras respuestas que me diste es que
ultimamente no funciona muy bien el outlook express y no me dejaba entrar en
internet.
tengo unas cuantas dudas.
1)en uno de los enlaces necesito un control que tiene la siguiente macro se
podria hacer sin dicho control
Private Sub tmrFlashMe_Timer()

'initial settings: Interval = 1, Enabled = False

Static nCount As Integer

If nCount = 0 Then tmrFlashMe.Interval = 200

nCount = nCount + 1
Call FlashWindow(hWnd, True)

'Reset everything after 3 flash cycles
If nCount = 6 Then
nCount = 0
tmrFlashMe.Interval = 1
tmrFlashMe = False
End If

End Sub

tambien en la siguiente macro da el siguiente error:
en la segunda linea en el (hWnd) me da el error no se a definido la
variable. cual seria la variable.

Private Sub userForm_activate()
If SubClass(hWnd) Then
If IsIDE Then
Text1.Text = "**IMPORTANT**" & vbCrLf & _
"This window is subclassed. Do not close it from" & vbCrLf & _
"either VB's End button or End menu command," & vbCrLf & _
"or VB will blow up. Close this window only from" & vbCrLf & _
"the system menu above!" & vbCrLf & vbCrLf & Text1
End If

Call SHNotify_Register(hWnd)

Else
Text1.Text = "Well, it is supposed to work."
End If
'position the window in the bottom corner
Me.Move Screen.Width - Width, Screen.Height - Height
End Sub

2)esto es de otra cosa tiene dos partes
a)como se puede hacer lo siguiente:
tengo un userform con un CommandButton4 el cual crea una ventana nueva.
lo que necesito es como poder poner en combobox1 los nombres de las ventanas
y poder seleccionar las poque
tengo que abrir muchas ventanas y quisiera ir rapidamente de una a otra esta
es la macro para crear la nueva ventana.
o poder seleccionar las con el caption si con el nombre no se puede.

Dim NuevaVentana As explorador
Private Sub CommandButton4_Click()
'Creamos una nueva instancia del navegador, es decir del formulario
Set NuevaVentana = New explorador
NuevaVentana.Show 'lo hacemos visible
End Sub

b)poder crear una copia de una paguina de un multipage como lo anterior pero
sin crear una nueva ventana.
crear una paguina nueva en el multipage identica a la paguina1.
parecido a esto
http://www.recursosvisualbasic.com....n-tabs.htm

3)Se puede hacer que no se pueda usar el boton derecho del raton dentor del
control weBrowser(el del
menu contextual) Es muy importante por que necesito que los usuarios no
puedan guardar nada.

4)si te acuerdas de una de las conversaciones que me respondiste sobre
inavilitar la tecla windows pasa lo siguiente:
No da ningun error y las teclas cont+tab y las demas teclas escepto la que
mas me interesa.
la tecla de windows habeces si funciona y otras veces no.

un saludo y muchisimas gracias Hector Miguel
Daniel
"Héctor Miguel" escribió en el mensaje
news:O%

hola, daniel !

Se puede hacer lo siguiente.
1) Una macro que evite que se ejecute el auto run me refiero: al de los
CD los USB o cualquier otro dispositivo parecido.
2) que si se inserta un CD un USB o cualquier otro dispositivo que se
muestre un userform
y en un label1 se muestre la letra de la unidad Ejemplo:A: , C:
,D:
3) que al cerrar la aplicacion se vuelva a restablecer el auto run es
decir que vuelva a funcionar.

si lo que necesitas es administrar los eventos de la shell de windows...
y poner a tu aplicacion por encima del sistema operativo...
espero que algo de lo siguiente (al menos) te apunte en la direccion
apropiada ;)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

visita la siguiente secciones en la pagina de Randy Birch:

-> http://vbnet.mvps.org/code/shell/sh...notify.htm
en la seccion de "BAS Module 3 Code" estan las constantes utilizadas para:
la notificacion de eventos como:
SHCNE_MEDIAINSERTED = &H20 '(G) Storage media has been inserted
into a drive.
SHCNE_MEDIAREMOVED = &H40 '(G) Storage media has been removed from
a drive.
SHCNE_DRIVEREMOVED = &H80 '(G) A drive has been removed.
SHCNE_DRIVEADD = &H100 '(G) A drive has been added.
SHCNE_NETSHARE = &H200 'A folder on the local computer is being
' shared via the network.
SHCNE_NETUNSHARE = &H400 'A folder on the local computer is no
longer
' being shared via the network.

-> http://vbnet.mvps.org/code/disk/deviolock.htm
encontraras consejos para des/re/bloquear dispositivos desmontables (cd,
flash, ...)
ademas de enlaces a otros temas relacionados (al principio de esta pagina)

-> http://vbnet.mvps.org/code/disk/floppyready.htm
con estas rutinas puedes determinar si la unidad de diskettes esta
lista/vacia

hola, daniel !

1) para tu consulta en general (espero no lo tomes a mal, y creo que ya te lo comente alguna vez) considera que:
por los temas que tocas (cada vez mas "rebuscados"), sumados a una variedad "considerable" (para una sola consulta)
tu mismo estas "invitando" a que pocos participantes "quieran entrar al ruedo" (al menos, de forma "integral")

2) (al parecer) los temas recientes indican que estas "peleado" con el teclado
(o no quieres que los usuarios de tu aplicacion tengan interaccion con el sistema operativo -windows y sus eventos-)

3) (probablemente) te convendria ir pensando en desarrollar tus propias aplicaciones
usando lenguajes primarios de programacion (como Delphi, C#+, VisualBasic -stand alone- etc.)
este comentario "obedece" a lo siguiente:

4) el tipo de codigos que expones (luego de sugerencias a tus consultas anteriores)
son codigos para VisualBasic -stand alone- y requieren de bastantes "adaptaciones" para poder ser utilizados por VBA
p.e. no todas las aplicaciones y sus objetos "reportan" su "manejador de ventana/instancia" (el hWnd que te da problemas)
(y si no recuerdo mal... "esto" ya tambien te lo habia comentado en ocasion anterior) -?-

5) no se que tan "a prueba de balas" necesites el codigo y los procedimientos que estas desarrolando (en VBA ?)
como para que sea "indispensable" inhabilitar las teclas-windows del teclado donde corra tu aplicacion -?-

6) hablando de las teclas-windows, el segundo enlace al que te dirigia (en la consulta que mencionas)
contiene "sugerencias" (de todo tipo) para este tema en particular (p.e.)
- "NUNCA deshabilites el boton de inicio, es un estandar al que los usuarios necesitan tener acceso SIEMPRE"
- "toma un destornillador y desmonta las teclas que no quieras que utilicen los usuarios de SU teclado"
- "deshabilitando las teclas-windows... que impide las acciones 'a campo libre' de los virus ?????"
- etc. etc. etc.

7) lo mas que he conseguido es "congelar" la barra de tareas de windows...
PERO... en cuanto usas las teclas-windows (o caracteristicas especiales en dispositivos como el mouse)...
el boton de inicio salta de nuevo "tan campante" (como necesario lo considere EL USUARIO) :D (p.e.)

' en un modulo de codigo normal '
Declare Function EnableWindow Lib "user32" ( _
ByVal hwnd As Long, ByVal fEnable As Long) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Sub Deshabilita()
x& = EnableWindow(FindWindow("Shell_TrayWnd", ""), False)
End Sub
Sub Rehabilita()
x& = EnableWindow(FindWindow("Shell_TrayWnd", ""), True)
End Sub

8) insisto (esperando que no lo tomes a mal)... probablemente estas cayendo en procedimientos "come recursos"
que (seguramente) resultarian mas "ligeros" en lenguajes de programacion (y no en vba) -?-

comentas (si hubiera) algun detalle en el tintero ?
saludos,
hector.

__ la consulta original __

tengo unas cuantas dudas.
1) en uno de los enlaces necesito un control que tiene la siguiente macro se podria hacer sin dicho control
Private Sub tmrFlashMe_Timer()
'initial settings: Interval = 1, Enabled = False
Static nCount As Integer
If nCount = 0 Then tmrFlashMe.Interval = 200
nCount = nCount + 1
Call FlashWindow(hWnd, True)
'Reset everything after 3 flash cycles
If nCount = 6 Then
nCount = 0
tmrFlashMe.Interval = 1
tmrFlashMe = False
End If
End Sub
tambien en la siguiente macro da el siguiente error:
en la segunda linea en el (hWnd) me da el error no se a definido la variable. cual seria la variable.
Private Sub userForm_activate()
If SubClass(hWnd) Then
If IsIDE Then
Text1.Text = "**IMPORTANT**" & vbCrLf & _
"This window is subclassed. Do not close it from" & vbCrLf & _
"either VB's End button or End menu command," & vbCrLf & _
"or VB will blow up. Close this window only from" & vbCrLf & _
"the system menu above!" & vbCrLf & vbCrLf & Text1
End If
Call SHNotify_Register(hWnd)
Else
Text1.Text = "Well, it is supposed to work."
End If
'position the window in the bottom corner
Me.Move Screen.Width - Width, Screen.Height - Height
End Sub

2) esto es de otra cosa tiene dos partes

a)como se puede hacer lo siguiente:
tengo un userform con un CommandButton4 el cual crea una ventana nueva.
lo que necesito es como poder poner en combobox1 los nombres de las ventanas y poder seleccionar las
poque tengo que abrir muchas ventanas y quisiera ir rapidamente de una a otra
esta es la macro para crear la nueva ventana.
o poder seleccionar las con el caption si con el nombre no se puede.

Dim NuevaVentana As explorador
Private Sub CommandButton4_Click()
'Creamos una nueva instancia del navegador, es decir del formulario
Set NuevaVentana = New explorador
NuevaVentana.Show 'lo hacemos visible
End Sub


b) poder crear una copia de una paguina de un multipage como lo anterior pero sin crear una nueva ventana.
crear una paguina nueva en el multipage identica a la paguina1. parecido a esto
http://www.recursosvisualbasic.com....n-tabs.htm

3) Se puede hacer que no se pueda usar el boton derecho del raton dentor del control weBrowser (el del menu contextual)
Es muy importante por que necesito que los usuarios no puedan guardar nada.

4) si te acuerdas de una de las conversaciones que me respondiste sobre inavilitar la tecla windows pasa lo siguiente:
No da ningun error y las teclas cont+tab y las demas teclas escepto la que mas me interesa.
la tecla de windows habeces si funciona y otras veces no.

Hola Hector Miguel
Como siempre tienes razon.
Si lo que quiero +o- es camuflar windowsxp al usuario.
Pero bueno es una tarea un poco dificil a lo mejor me lo voy a pensar un
poco.
de donde podria conseguir el programa VisualBasic -stand alone- de forma
gratuita.
Lo siento pero lo del error que me explicaste no lo encuentro podias volver
a decirme lo (el hWnd que te da problemas)
(y si no recuerdo mal... "esto" ya tambien te lo habia comentado en
ocasion anterior) -?-


AHORA EL TEMA QUE MAS ME PREOCUPA ES LO SIGUIENTE:perdon por poner lo en
mayusculas es que es muy importante.

1)esto es de otra cosa tiene dos partes
a)como se puede hacer lo siguiente:
tengo un userform con un CommandButton4 el cual crea una ventana nueva.
lo que necesito es como poder poner en combobox1 los nombres de las ventanas
y poder seleccionar las poque
tengo que abrir muchas ventanas y quisiera ir rapidamente de una a otra esta
es la macro para crear la nueva ventana.
o poder seleccionar las con el caption si con el nombre no se puede.

Dim NuevaVentana As explorador
Private Sub CommandButton4_Click()
'Creamos una nueva instancia del navegador, es decir del formulario
Set NuevaVentana = New explorador
NuevaVentana.Show 'lo hacemos visible
End Sub

b)poder crear una copia de una paguina de un multipage como lo anterior pero
sin crear una nueva ventana.
crear una paguina nueva en el multipage identica a la paguina1.
parecido a esto
http://www.recursosvisualbasic.com....n-tabs.htm

2)y esto que e puesto en un post anterior al que no e tenido respuesta creo
q esta bien explicado no se.
tengo un listbox y el cual le relleno con datos mediante macros.
como puedo poner un boton para que me ponga a la derecha del todo una
columna
y en esta los numeros (1,2,3.) pero solo asta los que hay en la
propiedad (ListBox1.ListCount).
y que al seleccionar un dato del listbox1 en el label1 me de el numero y en
el label2 el dato de la columna2.
Ejemplo:
listbox1 es asi como lo tengo al principio
columna1
presupuesto
gasto
gasto mes
gasto
año 2007

es asi como deberia quedar el listbox al pulsar el boton
columna1
1 presupuesto
2 gasto
3 gasto mes
4 gasto año 2007



espero que nada se me halla quedado en el tintero cualquier cosa mas que
necesites saber comentas.
un saludo y muchas graciasDaniel
perdon mi ortografia


"Héctor Miguel" escribió en el mensaje
news:

hola, daniel !

1) para tu consulta en general (espero no lo tomes a mal, y creo que ya te
lo comente alguna vez) considera que:
por los temas que tocas (cada vez mas "rebuscados"), sumados a una
variedad "considerable" (para una sola consulta)
tu mismo estas "invitando" a que pocos participantes "quieran entrar al
ruedo" (al menos, de forma "integral")

2) (al parecer) los temas recientes indican que estas "peleado" con el
teclado
(o no quieres que los usuarios de tu aplicacion tengan interaccion con
el sistema operativo -windows y sus eventos-)

3) (probablemente) te convendria ir pensando en desarrollar tus propias
aplicaciones
usando lenguajes primarios de programacion (como Delphi, C#+,
VisualBasic -stand alone- etc.)
este comentario "obedece" a lo siguiente:

4) el tipo de codigos que expones (luego de sugerencias a tus consultas
anteriores)
son codigos para VisualBasic -stand alone- y requieren de bastantes
"adaptaciones" para poder ser utilizados por VBA
p.e. no todas las aplicaciones y sus objetos "reportan" su "manejador
de ventana/instancia" (el hWnd que te da problemas)
(y si no recuerdo mal... "esto" ya tambien te lo habia comentado en
ocasion anterior) -?-

5) no se que tan "a prueba de balas" necesites el codigo y los
procedimientos que estas desarrolando (en VBA ?)
como para que sea "indispensable" inhabilitar las teclas-windows del
teclado donde corra tu aplicacion -?-

6) hablando de las teclas-windows, el segundo enlace al que te dirigia (en
la consulta que mencionas)
contiene "sugerencias" (de todo tipo) para este tema en particular
(p.e.)
- "NUNCA deshabilites el boton de inicio, es un estandar al que los
usuarios necesitan tener acceso SIEMPRE"
- "toma un destornillador y desmonta las teclas que no quieras que
utilicen los usuarios de SU teclado"
- "deshabilitando las teclas-windows... que impide las acciones 'a
campo libre' de los virus ?????"
- etc. etc. etc.

7) lo mas que he conseguido es "congelar" la barra de tareas de windows...
PERO... en cuanto usas las teclas-windows (o caracteristicas especiales
en dispositivos como el mouse)...
el boton de inicio salta de nuevo "tan campante" (como necesario lo
considere EL USUARIO) :D (p.e.)

' en un modulo de codigo normal '
Declare Function EnableWindow Lib "user32" ( _
ByVal hwnd As Long, ByVal fEnable As Long) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
ByVal lpClassName As String, ByVal lpWindowName As String) As
Long
Sub Deshabilita()
x& = EnableWindow(FindWindow("Shell_TrayWnd", ""), False)
End Sub
Sub Rehabilita()
x& = EnableWindow(FindWindow("Shell_TrayWnd", ""), True)
End Sub

8) insisto (esperando que no lo tomes a mal)... probablemente estas
cayendo en procedimientos "come recursos"
que (seguramente) resultarian mas "ligeros" en lenguajes de
programacion (y no en vba) -?-

comentas (si hubiera) algun detalle en el tintero ?
saludos,
hector.

__ la consulta original __

tengo unas cuantas dudas.
1) en uno de los enlaces necesito un control que tiene la siguiente macro
se podria hacer sin dicho control
Private Sub tmrFlashMe_Timer()
'initial settings: Interval = 1, Enabled = False
Static nCount As Integer
If nCount = 0 Then tmrFlashMe.Interval = 200
nCount = nCount + 1
Call FlashWindow(hWnd, True)
'Reset everything after 3 flash cycles
If nCount = 6 Then
nCount = 0
tmrFlashMe.Interval = 1
tmrFlashMe = False
End If
End Sub
tambien en la siguiente macro da el siguiente error:
en la segunda linea en el (hWnd) me da el error no se a definido la
variable. cual seria la variable.
Private Sub userForm_activate()
If SubClass(hWnd) Then
If IsIDE Then
Text1.Text = "**IMPORTANT**" & vbCrLf & _
"This window is subclassed. Do not close it from" & vbCrLf &
_
"either VB's End button or End menu command," & vbCrLf & _
"or VB will blow up. Close this window only from" & vbCrLf &
_
"the system menu above!" & vbCrLf & vbCrLf & Text1
End If
Call SHNotify_Register(hWnd)
Else
Text1.Text = "Well, it is supposed to work."
End If
'position the window in the bottom corner
Me.Move Screen.Width - Width, Screen.Height - Height
End Sub

2) esto es de otra cosa tiene dos partes

a)como se puede hacer lo siguiente:
tengo un userform con un CommandButton4 el cual crea una ventana nueva.
lo que necesito es como poder poner en combobox1 los nombres de las
ventanas y poder seleccionar las
poque tengo que abrir muchas ventanas y quisiera ir rapidamente de una a
otra
esta es la macro para crear la nueva ventana.
o poder seleccionar las con el caption si con el nombre no se puede.

Dim NuevaVentana As explorador
Private Sub CommandButton4_Click()
'Creamos una nueva instancia del navegador, es decir del formulario
Set NuevaVentana = New explorador
NuevaVentana.Show 'lo hacemos visible
End Sub

b) poder crear una copia de una paguina de un multipage como lo anterior
pero sin crear una nueva ventana.
crear una paguina nueva en el multipage identica a la paguina1. parecido
a esto
http://www.recursosvisualbasic.com....n-tabs.htm

3) Se puede hacer que no se pueda usar el boton derecho del raton dentor
del control weBrowser (el del menu contextual)
Es muy importante por que necesito que los usuarios no puedan guardar
nada.

4) si te acuerdas de una de las conversaciones que me respondiste sobre
inavilitar la tecla windows pasa lo siguiente:
No da ningun error y las teclas cont+tab y las demas teclas escepto la
que mas me interesa.
la tecla de windows habeces si funciona y otras veces no.

hola, daniel !

1) no se si algun lenguaje de programacion (como VB-stand alone-) se pueda obtener de manera gratuira -?-
prueba decargando la version express desde la siguiente pagina:
Visual Basic Express Edition
http://www.microsoft.com/spanish/ms...fault.mspx

2) los controles en VBA no exponen su manejador de ventana (hWnd), y depende de la version de excel donde ejecutes el codigo
ademas de que se requiere buscar su numero de vantana por llamadas a las API's de windows (p.e.)
la "clase" de objeto que se busca para un formulario es "ThunderDFrame" a partir de excel 2000 o "ThunderXFrame" (xl 97)
y la llamada a las API's es la siguiente:

Private Declare Function BuscarVentana _
Lib "user32" Alias "FindWindowA" ( _
ByVal Clase As String, ByVal Ventana As String) As Long

despues utilizas (p.e.) el evento '_initialize' o el '_activate' del formulario para establecer su "manejador" con algo +/- como:

Dim hWnd As Long
If Val(Application.Version) < 9 _
Then hWnd = BuscarVentana("ThunderXFrame", Me.Caption) _
Else hWnd = BuscarVentana("ThunderDFrame", Me.Caption)

luego de lo anterior, ya estas en condiciones de utilizar el "identificador" (hWnd) aplicado a la ventana de tu formulario ;)

(nota): existen otros "terminos" de VB que requieren adaptaciones para VBA en los codigos que comentas (pero)...
seria conveniente si expones cualquier adaptacion que tu les hubieras ya efectuado -?-

3) el poner los dados de las paginas agregadas a un combo en tu formulario, ya esta contemplado en el enlace de tu ejemplo:
revisa los procedimientos:
-> "Private Sub cboURL_KeyPress(KeyAscii As Integer)" y
-> "Private Sub AgregarURL(ByVal strURL As String)"

4) no me queda claro lo de crear una copia de un multipage SIN crear una "nueva ventana" -???-

5) revisa propuestas en "el otro post" :))

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ la consulta original __
__ 1 __

Si lo que quiero +o- es camuflar windowsxp al usuario.
Pero bueno es una tarea un poco dificil a lo mejor me lo voy a pensar un poco.
de donde podria conseguir el programa VisualBasic -stand alone- de forma gratuita.

__ 2 __

Lo siento pero lo del error que me explicaste no lo encuentro podias volver a decirme lo (el hWnd que te da problemas)
(y si no recuerdo mal... "esto" ya tambien te lo habia comentado en ocasion anterior) -?-

__ 3 __

AHORA EL TEMA QUE MAS ME PREOCUPA ES LO SIGUIENTE:
perdon por poner lo en mayusculas es que es muy importante.
1) esto es de otra cosa tiene dos partes
a) como se puede hacer lo siguiente:
tengo un userform con un CommandButton4 el cual crea una ventana nueva.
lo que necesito es como poder poner en combobox1 los nombres de las ventanasy poder seleccionar las poque
tengo que abrir muchas ventanas y quisiera ir rapidamente de una a otra estaes la macro para crear la nueva ventana.
o poder seleccionar las con el caption si con el nombre no se puede.
Dim NuevaVentana As explorador
Private Sub CommandButton4_Click()
'Creamos una nueva instancia del navegador, es decir del formulario
Set NuevaVentana = New explorador
NuevaVentana.Show 'lo hacemos visible
End Sub

__ 4 __

b) poder crear una copia de una paguina de un multipage como lo anterior pero sin crear una nueva ventana.
crear una paguina nueva en el multipage identica a la paguina1. parecido a esto
http://www.recursosvisualbasic.com....n-tabs.htm

__ 5 __

2) y esto que e puesto en un post anterior al que no e tenido respuesta creo q esta bien explicado no se.
tengo un listbox y el cual le relleno con datos mediante macros.
como puedo poner un boton para que me ponga a la derecha del todo una columna
y en esta los numeros (1,2,3.) pero solo asta los que hay en la propiedad (ListBox1.ListCount).
y que al seleccionar un dato del listbox1 en el label1 me de el numero y en el label2 el dato de la columna2...