

Resulta que ya habia probado mi codigo el largo y el corto y no habia funcionado nose porque algunas veces falla, disminuir,pues resulta que ahora me equivoco,y lo abro,se ejecuta digamos en tiempo bala lentisimo por el Wscript.Sleep 1500 xD,viendose todo el proceso,y funciona! xD
Código [Seleccionar]
Dim objShell
Set objShell = CreateObject("WScript.Shell")
objShell.Run "control",false
Wscript.Sleep 1500
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{ENTER}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{ENTER}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{RIGHT}"
Wscript.Sleep 100
objShell.SendKeys "{RIGHT}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{LEFT}"
Wscript.Sleep 100
objShell.SendKeys "{LEFT}"
Wscript.Sleep 100
objShell.SendKeys "{LEFT}"
Wscript.Sleep 100
objShell.SendKeys "{LEFT}"
Wscript.Sleep 100
objShell.SendKeys "{LEFT}"
Wscript.Sleep 100
objShell.SendKeys "{ENTER}"
WScript.Quit
Lo que e de probar ahora es reduciendo el Wscript.Sleep a 100.a ver si lo hace instantaneo.Lo malo es que no me cierra el panel de control una vez hecho.
sobre tu codigo, Muchisimas gracias,voy a probarlo si te digo la verdad,ahi muchas cosas que no entiendo,e de analizarlo bien y leer bien las explicaciones.
Sobre mi problema,pues es algo cotidiano,el ver una pelicula y que si tienes un raton bueno con sensibilidad que te muestre el menu todo el rato tipo xbmc o vlc,y de ahi me dije a ver si puedo solucionarlo y no tengo que estarlo haciendo yo manual

Sobre mi equipo es windows 7, es potente,puedo ejecutar casi todos los juegos de la actualidad.
El problema del pasado de la tarjeta de TV esta solucionado,ya que ahora tengo 2 hibridas que funcionan ambas en windows 7 32/64 bits


un saludo y muchas gracias probare tu codigo seguro que es muchisimo mejor,cualquier cosa te comento

PD: E provado tu codigo,no funciono,lo modifique de la siguiente manera
Código [Seleccionar]
Dim objShell
Set objShell = CreateObject("WScript.Shell")
objShell.Run "rundll32.exe shell32.dll,Control_RunDLL main.cpl,,2", False, False
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{LEFT}"
Wscript.Sleep 100
objShell.SendKeys "{LEFT}"
Wscript.Sleep 100
objShell.SendKeys "{LEFT}"
Wscript.Sleep 100
objShell.SendKeys "{LEFT}"
Wscript.Sleep 100
objShell.SendKeys "{LEFT}"
Wscript.Sleep 100
objShell.SendKeys "{LEFT}"
Wscript.Sleep 100
objShell.SendKeys "{ENTER}"
Wscript.Quit
Ese vbs lo e llamado Disminuir,bueno primero le puse electro xD,el otro lo e llamado Aumentar y lo unico que cambia es que son 5 RIGHT ,ahora me gustaria unir los dos, con una pregunta ,nose si con un if o similar, Desea aumentar o disminuir los dpi? y dos casillas Disminuir o Aceptar.
Un saludo gracias y buenas noches. Funciona de maravilla lo unico que nose si ajustar mas el Wscript para que lo haga mas rapido aun de 100,por mi maquina no ahi problema

PD EDITO: Codigo final,a la espera de mejorarlo y crear una pregunta con disminuir y aumentar en vez de si no.
Código [Seleccionar]
Dim pregunta
pregunta = msgbox("Desea disminuir la sensibilidad? y/n" , vbyesno)
If pregunta = vbyes then
Set objShell = CreateObject("WScript.Shell")
objShell.Run "rundll32.exe shell32.dll,Control_RunDLL main.cpl,,2", False, False
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{LEFT}"
Wscript.Sleep 100
objShell.SendKeys "{LEFT}"
Wscript.Sleep 100
objShell.SendKeys "{LEFT}"
Wscript.Sleep 100
objShell.SendKeys "{LEFT}"
Wscript.Sleep 100
objShell.SendKeys "{LEFT}"
Wscript.Sleep 100
objShell.SendKeys "{LEFT}"
Wscript.Sleep 100
objShell.SendKeys "{ENTER}"
else
Set objShell = CreateObject("WScript.Shell")
objShell.Run "rundll32.exe shell32.dll,Control_RunDLL main.cpl,,2", False, False
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{TAB}"
Wscript.Sleep 100
objShell.SendKeys "{RIGHT}"
Wscript.Sleep 100
objShell.SendKeys "{RIGHT}"
Wscript.Sleep 100
objShell.SendKeys "{RIGHT}"
Wscript.Sleep 100
objShell.SendKeys "{RIGHT}"
Wscript.Sleep 100
objShell.SendKeys "{RIGHT}"
Wscript.Sleep 100
objShell.SendKeys "{ENTER}"
end if
Wscript.Quit