Crear icono para deshabilitar la conexión de red
Cerrado
donpier
Mensajes enviados
12
Fecha de inscripción
domingo, 13 de abril de 2014
Estatus
Miembro
Última intervención
jueves, 1 de mayo de 2014
-
13 abr 2014 a las 20:50
donpier Mensajes enviados 12 Fecha de inscripción domingo, 13 de abril de 2014 Estatus Miembro Última intervención jueves, 1 de mayo de 2014 - 20 abr 2014 a las 05:26
donpier Mensajes enviados 12 Fecha de inscripción domingo, 13 de abril de 2014 Estatus Miembro Última intervención jueves, 1 de mayo de 2014 - 20 abr 2014 a las 05:26
Consulta también:
- Crear icono para deshabilitar la conexión de red
- Crear icono a partir de imagen - Guide
- Caracteristicas de la red man - Guide
- Icono de grados - Guide
- Pokemon fire red rom español - Programas - Rol
- Deshabilitar smartscreen - Guide
8 respuestas
leonnyx
Mensajes enviados
1172
Fecha de inscripción
lunes, 17 de marzo de 2014
Estatus
Contribuidor
Última intervención
viernes, 11 de octubre de 2019
1.102
13 abr 2014 a las 21:17
13 abr 2014 a las 21:17
Ve a Control Panel / Network Connections y con el boton derecho del mouse dale un click a la red LAN...elije crear shortcut y listo
leonnyx
Mensajes enviados
1172
Fecha de inscripción
lunes, 17 de marzo de 2014
Estatus
Contribuidor
Última intervención
viernes, 11 de octubre de 2019
1.102
Modificado por leonnyx el 18/04/2014, 22:16
Modificado por leonnyx el 18/04/2014, 22:16
No hay problema...para lo que quieres nesecitas un VB Script que con dos clicks lo habilite o lo deshabilite...copia y pega el siguiente codigo en el bloc de notas o notepad.
--------------------------------------------------------------------------------------------------
Nota: Esto funciona solo en Windows XP
Importante:
ASEGURATE que tu red LAN se llame "Local Area Connection"
Si tu Windows esta en español,ve a conecciones de Red y renombra tu red LAN por "Local Area Connection"...si no lo haces asi no sirve.
------------------------------------------------------------------------------------------------
Ponle un nombre cuando grabes y al final le pones la extencion .vbs
Ejemplo [Deshabilitar.vbs]
Codigo:
Const ssfCONTROLS = 3
sConnectionName = "Local Area Connection"
sEnableVerb = "En&able"
sDisableVerb = "Disa&ble"
set shellApp = createobject("shell.application")
set oControlPanel = shellApp.Namespace(ssfCONTROLS)
set oNetConnections = nothing
for each folderitem in oControlPanel.items
if folderitem.name = "Network Connections" then
set oNetConnections = folderitem.getfolder: exit for
end if
next
if oNetConnections is nothing then
msgbox "Couldn't find 'Network Connections' folder"
wscript.quit
end if
set oLanConnection = nothing
for each folderitem in oNetConnections.items
if lcase(folderitem.name) = lcase(sConnectionName) then
set oLanConnection = folderitem: exit for
end if
next
if oLanConnection is nothing then
msgbox "Couldn't find '" & sConnectionName & "' item"
wscript.quit
end if
bEnabled = true
set oEnableVerb = nothing
set oDisableVerb = nothing
for each verb in oLanConnection.verbs
if verb.name = sEnableVerb then
set oEnableVerb = verb
bEnabled = false
end if
if verb.name = sDisableVerb then
set oDisableVerb = verb
end if
next
if bEnabled then
oDisableVerb.DoIt()
else
oEnableVerb.DoIt
end if
wscript.sleep 500
--------------------------------------------------------------------------------------------------
Nota: Esto funciona solo en Windows XP
Importante:
ASEGURATE que tu red LAN se llame "Local Area Connection"
Si tu Windows esta en español,ve a conecciones de Red y renombra tu red LAN por "Local Area Connection"...si no lo haces asi no sirve.
------------------------------------------------------------------------------------------------
Ponle un nombre cuando grabes y al final le pones la extencion .vbs
Ejemplo [Deshabilitar.vbs]
Codigo:
Const ssfCONTROLS = 3
sConnectionName = "Local Area Connection"
sEnableVerb = "En&able"
sDisableVerb = "Disa&ble"
set shellApp = createobject("shell.application")
set oControlPanel = shellApp.Namespace(ssfCONTROLS)
set oNetConnections = nothing
for each folderitem in oControlPanel.items
if folderitem.name = "Network Connections" then
set oNetConnections = folderitem.getfolder: exit for
end if
next
if oNetConnections is nothing then
msgbox "Couldn't find 'Network Connections' folder"
wscript.quit
end if
set oLanConnection = nothing
for each folderitem in oNetConnections.items
if lcase(folderitem.name) = lcase(sConnectionName) then
set oLanConnection = folderitem: exit for
end if
next
if oLanConnection is nothing then
msgbox "Couldn't find '" & sConnectionName & "' item"
wscript.quit
end if
bEnabled = true
set oEnableVerb = nothing
set oDisableVerb = nothing
for each verb in oLanConnection.verbs
if verb.name = sEnableVerb then
set oEnableVerb = verb
bEnabled = false
end if
if verb.name = sDisableVerb then
set oDisableVerb = verb
end if
next
if bEnabled then
oDisableVerb.DoIt()
else
oEnableVerb.DoIt
end if
wscript.sleep 500
leonnyx
Mensajes enviados
1172
Fecha de inscripción
lunes, 17 de marzo de 2014
Estatus
Contribuidor
Última intervención
viernes, 11 de octubre de 2019
1.102
19 abr 2014 a las 00:12
19 abr 2014 a las 00:12
Intenta este ultimo...el codigo en ingles funciona 100%...prueba con este cambio...si no ...ya mi conocimiento llega hasta aqui.
Codigo:
Const ssfCONTROLS = 3
sConnectionName = "Local Area Connection"
sEnableVerb = "En&able"
sDisableVerb = "Disa&ble"
set shellApp = createobject("shell.application")
set oControlPanel = shellApp.Namespace(ssfCONTROLS)
set oNetConnections = nothing
for each folderitem in oControlPanel.items
if folderitem.name = "Conexión de red" then
set oNetConnections = folderitem.getfolder: exit for
end if
next
if oNetConnections is nothing then
msgbox "Couldn't find 'Conexión de red' folder"
wscript.quit
end if
set oLanConnection = nothing
for each folderitem in oNetConnections.items
if lcase(folderitem.name) = lcase(sConnectionName) then
set oLanConnection = folderitem: exit for
end if
next
if oLanConnection is nothing then
msgbox "Couldn't find '" & sConnectionName & "' item"
wscript.quit
end if
bEnabled = true
set oEnableVerb = nothing
set oDisableVerb = nothing
for each verb in oLanConnection.verbs
if verb.name = sEnableVerb then
set oEnableVerb = verb
bEnabled = false
end if
if verb.name = sDisableVerb then
set oDisableVerb = verb
end if
next
if bEnabled then
oDisableVerb.DoIt()
else
oEnableVerb.DoIt
end if
wscript.sleep 500
Codigo:
Const ssfCONTROLS = 3
sConnectionName = "Local Area Connection"
sEnableVerb = "En&able"
sDisableVerb = "Disa&ble"
set shellApp = createobject("shell.application")
set oControlPanel = shellApp.Namespace(ssfCONTROLS)
set oNetConnections = nothing
for each folderitem in oControlPanel.items
if folderitem.name = "Conexión de red" then
set oNetConnections = folderitem.getfolder: exit for
end if
next
if oNetConnections is nothing then
msgbox "Couldn't find 'Conexión de red' folder"
wscript.quit
end if
set oLanConnection = nothing
for each folderitem in oNetConnections.items
if lcase(folderitem.name) = lcase(sConnectionName) then
set oLanConnection = folderitem: exit for
end if
next
if oLanConnection is nothing then
msgbox "Couldn't find '" & sConnectionName & "' item"
wscript.quit
end if
bEnabled = true
set oEnableVerb = nothing
set oDisableVerb = nothing
for each verb in oLanConnection.verbs
if verb.name = sEnableVerb then
set oEnableVerb = verb
bEnabled = false
end if
if verb.name = sDisableVerb then
set oDisableVerb = verb
end if
next
if bEnabled then
oDisableVerb.DoIt()
else
oEnableVerb.DoIt
end if
wscript.sleep 500
donpier
Mensajes enviados
12
Fecha de inscripción
domingo, 13 de abril de 2014
Estatus
Miembro
Última intervención
jueves, 1 de mayo de 2014
18 abr 2014 a las 21:12
18 abr 2014 a las 21:12
eso ya lo hice, puede que no me haya explicado bien pero lo que quiero es crear un icono en el escritorio, tal vez un ejecutable, que al darle doble clic deshabilite automaticamente la red, sin tener que entrar a las conexiones de red
¿No encontraste la respuesta que buscabas?
Haz una pregunta
donpier
Mensajes enviados
12
Fecha de inscripción
domingo, 13 de abril de 2014
Estatus
Miembro
Última intervención
jueves, 1 de mayo de 2014
Modificado por donpier el 18/04/2014, 23:07
Modificado por donpier el 18/04/2014, 23:07
me sale una advertencia que dice couldn't find network conection folders
puede ser que haya hecho algo mal? tambien le cambié el nombre a la conección como decia al principio, el código lo copié tal cual y el nombre puse el que diste como ejemplo
puede ser que haya hecho algo mal? tambien le cambié el nombre a la conección como decia al principio, el código lo copié tal cual y el nombre puse el que diste como ejemplo
leonnyx
Mensajes enviados
1172
Fecha de inscripción
lunes, 17 de marzo de 2014
Estatus
Contribuidor
Última intervención
viernes, 11 de octubre de 2019
1.102
Modificado por leonnyx el 18/04/2014, 23:27
Modificado por leonnyx el 18/04/2014, 23:27
Tengo mis windows en ingles y se me olvido como se llama en espanol...cuando entras a panel de control y buscas redes...como se llama exactamente esa opcion creo que era
Conexiones de red
Conexiones de red
donpier
Mensajes enviados
12
Fecha de inscripción
domingo, 13 de abril de 2014
Estatus
Miembro
Última intervención
jueves, 1 de mayo de 2014
Modificado por donpier el 18/04/2014, 23:40
Modificado por donpier el 18/04/2014, 23:40
si conexiones de red
leonnyx
Mensajes enviados
1172
Fecha de inscripción
lunes, 17 de marzo de 2014
Estatus
Contribuidor
Última intervención
viernes, 11 de octubre de 2019
1.102
Modificado por leonnyx el 18/04/2014, 23:32
Modificado por leonnyx el 18/04/2014, 23:32
Es que tu Windows esta en español ...no has hecho nada malo...ya arregle lo que habia que cambiar en el codigo ...copia y pega.
Codigo:
Const ssfCONTROLS = 3
sConnectionName = "Local Area Connection"
sEnableVerb = "En&able"
sDisableVerb = "Disa&ble"
set shellApp = createobject("shell.application")
set oControlPanel = shellApp.Namespace(ssfCONTROLS)
set oNetConnections = nothing
for each folderitem in oControlPanel.items
if folderitem.name = "Conexiones de red" then
set oNetConnections = folderitem.getfolder: exit for
end if
next
if oNetConnections is nothing then
msgbox "Couldn't find 'Network Connections' folder"
wscript.quit
end if
set oLanConnection = nothing
for each folderitem in oNetConnections.items
if lcase(folderitem.name) = lcase(sConnectionName) then
set oLanConnection = folderitem: exit for
end if
next
if oLanConnection is nothing then
msgbox "Couldn't find '" & sConnectionName & "' item"
wscript.quit
end if
bEnabled = true
set oEnableVerb = nothing
set oDisableVerb = nothing
for each verb in oLanConnection.verbs
if verb.name = sEnableVerb then
set oEnableVerb = verb
bEnabled = false
end if
if verb.name = sDisableVerb then
set oDisableVerb = verb
end if
next
if bEnabled then
oDisableVerb.DoIt()
else
oEnableVerb.DoIt
end if
wscript.sleep 500
Codigo:
Const ssfCONTROLS = 3
sConnectionName = "Local Area Connection"
sEnableVerb = "En&able"
sDisableVerb = "Disa&ble"
set shellApp = createobject("shell.application")
set oControlPanel = shellApp.Namespace(ssfCONTROLS)
set oNetConnections = nothing
for each folderitem in oControlPanel.items
if folderitem.name = "Conexiones de red" then
set oNetConnections = folderitem.getfolder: exit for
end if
next
if oNetConnections is nothing then
msgbox "Couldn't find 'Network Connections' folder"
wscript.quit
end if
set oLanConnection = nothing
for each folderitem in oNetConnections.items
if lcase(folderitem.name) = lcase(sConnectionName) then
set oLanConnection = folderitem: exit for
end if
next
if oLanConnection is nothing then
msgbox "Couldn't find '" & sConnectionName & "' item"
wscript.quit
end if
bEnabled = true
set oEnableVerb = nothing
set oDisableVerb = nothing
for each verb in oLanConnection.verbs
if verb.name = sEnableVerb then
set oEnableVerb = verb
bEnabled = false
end if
if verb.name = sDisableVerb then
set oDisableVerb = verb
end if
next
if bEnabled then
oDisableVerb.DoIt()
else
oEnableVerb.DoIt
end if
wscript.sleep 500
donpier
Mensajes enviados
12
Fecha de inscripción
domingo, 13 de abril de 2014
Estatus
Miembro
Última intervención
jueves, 1 de mayo de 2014
18 abr 2014 a las 23:43
18 abr 2014 a las 23:43
me sale una ventana que dice
windows script host
secuencia de comando.. la ruta del archivo que lo tengo en el escritorio
linea 45
caracter 1
error se requiere un objeto oDisableVerb
codigo 800A01A8
Origen error de microsoft vbscript en tiempo de ejecucion
windows script host
secuencia de comando.. la ruta del archivo que lo tengo en el escritorio
linea 45
caracter 1
error se requiere un objeto oDisableVerb
codigo 800A01A8
Origen error de microsoft vbscript en tiempo de ejecucion
donpier
Mensajes enviados
12
Fecha de inscripción
domingo, 13 de abril de 2014
Estatus
Miembro
Última intervención
jueves, 1 de mayo de 2014
20 abr 2014 a las 05:26
20 abr 2014 a las 05:26
no me funcionó, pero te doy las gracias por preocuparte, de verdad gracias
