 Autor
|
Tema: desactivar y activar el autorun de un pen drive (Leído 14,115 veces)
|
Dessa
 Desconectado
Mensajes: 624
|
Buena Fabricio  , busca como usar "SendNotifyMessage" y te evitas de matar el explorer, hacés lo mismo y no se nota el parpadeo de cerrar el explorer. Saludos PD: Buen dato Seba
|
|
|
|
« Última modificación: 18 Junio 2009, 17:14 pm por Dessa »
|
En línea
|
Adrian Desanti
|
|
|
Fabricio
Desconectado
Mensajes: 115
|
hola estuve mirando info sobre SendNotifyMessage Function en la pagina de microsoft http://msdn.microsoft.com/en-us/library/ms644953.aspx Private Declare Function SendNotifyMessage Lib "user32" Alias "SendNotifyMessageA" (ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
hay cosas que no entiendo ejemplo como hago para obtener el Handle (hwnd) del explorer.exe (ya que no es una ventana no puedo usar Find Windows) y que mensaje debo enviar (msg) saludos
|
|
|
|
« Última modificación: 18 Junio 2009, 18:26 pm por fabricioAngel »
|
En línea
|
|
|
|
Dessa
Desconectado
Mensajes: 624
|
Private Const HWND_BROADCAST = &HFFFF
HWND_BROADCAST te va a servir de hwnd para que el mensaje llegue.
mensaje:
Private Const WM_SETTINGCHANGE = &H1A
|
|
|
|
« Última modificación: 18 Junio 2009, 19:16 pm por Dessa »
|
En línea
|
Adrian Desanti
|
|
|
Dessa
Desconectado
Mensajes: 624
|
Probá así, por lo menos a mí en XP-SP3 y W7 me funciona bien
Option Explicit
'Private Declare Function SendNotifyMessage Lib "user32" Alias "SendNotifyMessageA" (ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function SendNotifyMessage Lib "user32" Alias "SendNotifyMessageA" (ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const HWND_BROADCAST = &HFFFF: Private Const WM_SETTINGCHANGE = &H1A
Private Sub Form_Load()
Command1.Caption = "Autorun si"
Command2.Caption = "Autorun no"
End Sub
Private Sub Command1_Click()
Dim WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDriveTypeAutoRun", 145, "REG_DWORD"
Set WshShell = Nothing
Call SendNotifyMessage(&HFFFF, &H1A, 0, ByVal 0)
End Sub
Private Sub Command2_Click()
Dim WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDriveTypeAutoRun", 181, "REG_DWORD"
Set WshShell = Nothing
Call SendNotifyMessage(&HFFFF, &H1A, 0, ByVal 0)
End Sub
S2 |
|
|
|
|
En línea
|
Adrian Desanti
|
|
|
Fabricio
Desconectado
Mensajes: 115
|
Hola Dessa muchas gracias me funciono d 10  ademas segui leyendo y ya entendi que hacen HWND_BROADCAST (el mensaje llega a todas las ventanas) y WM_SETTINGCHANGE (sirve para que las ventanas tomen los cambios) de nuevo gracias un saludo |
|
|
|
|
En línea
|
|
|
|
Dessa
Desconectado
Mensajes: 624
|
ademas segui leyendo y ya entendi que hacen HWND_BROADCAST (el mensaje llega a todas las ventanas) y WM_SETTINGCHANGE (sirve para que las ventanas tomen los cambios)
Exacto, S2
|
|
|
|
|
En línea
|
Adrian Desanti
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Activar y desactivar Timer con 1 tecla
Programación General
|
BrokerJoker
|
5
|
10,460
|
3 Enero 2012, 19:53 pm
por HdM
|
|
|
|
activar o desactivar filtrado mac con wifyway3.4??
« 1 2 »
Wireless en Linux
|
calvof9
|
15
|
11,827
|
15 Junio 2012, 12:20 pm
por calvof9
|
|
|
|
Activar y desactivar tarjeta de video
GNU/Linux
|
yercaos
|
2
|
5,143
|
12 Julio 2012, 04:29 am
por yercaos
|
|
|
|
Se puede desactivar y activar esto desde mi programa ???
« 1 2 »
.NET (C#, VB.NET, ASP)
|
TrashAmbishion
|
17
|
9,018
|
12 Diciembre 2012, 20:59 pm
por TrashAmbishion
|
|
|
|
Activar/desactivar filtrado por MAC mediante script
Scripting
|
Shadow Reaper
|
2
|
2,915
|
8 Septiembre 2013, 02:48 am
por Shadow Reaper
|
 |
