Как написать скриптик на VB, который бы

← →
Экспериментатор (2005-07-16 15:43) [0]

у свойств мышки на прокрутку колеса ставил бы значение 3
Имеется ввиду командный файл который будет запускаться при старте WXP, а то я уже задолбался ставить 3, работаю на ноутбуке, мышь на USB, тачпадом не пользуюсь вообще, Дак вот: для USB мышки настройки ни фига не сохраняются. То есть после перезагрузки на поворот колеса стоит скрол 1 строки.

← →
delirium-system-2 (2005-07-16 18:55) [1]

Возможно, решение может быть более простым - отыскать в реестре настройки, где храняться свойства мыши и поменять руками.

Если хочется экстрима, можно написать свой проперти хандлер для колесика мышки. (см. МСДН "How Property Sheet Handlers Work", IShellPropSheetExt), хотя неизвестно, насколько это поможет.

Можно запустить
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "control.exe mouse"
и назаслать ему CTRL+TAB, TAB и прочего VBScript`ом (SendKeys).

← →
Экспериментатор (2005-07-17 11:35) [2]

Спасибо за наводку.
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "control.exe mouse"
Эти строчки успешно вызывают диалог настроек мыши,
для полного счастья мне нужно послать в него три раза ^TAB один раз TAB цифру 3 и ENTER.
Кто бы еще подсказал каким образом работают с SendKeys
SendKeys.Send("^TAB"), только его еще надо создать, а как не знаю. С VB вообще не знаком.

← →
uny © (2005-07-17 11:40) [3]

а если записать нужные изменения в файл реестра *.reg, и добавить его в автозагрузку? с ключом /s - будет автоматически, без вопроса, добавлять изменения в реестр.
но есть одно но - бывает не достаточно изменить реестр, нужно ещё и "послать уведомления об изменении", что бы программы перечитали обновлённый реестр. кто нибудь знает как это сделать?

← →
delirium-system-2 (2005-07-17 14:14) [4]

Экспериментатор (17.07.05 11:35) [2]
WshShell.SendKeys "^TAB"

← →
Экспериментатор (2005-07-17 15:07) [5]

В целом с некоторыми поправками вот так:

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "control.exe mouse"
WScript.Sleep 500
WshShell.SendKeys "^{TAB}"
WshShell.SendKeys "^{TAB}"
WshShell.SendKeys "^{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "3"
WshShell.SendKeys "{ENTER}"

TO delirium-system-2
БОЛЬШОЕ ОГРОМНОЕ И ЧЕЛОВЕЧЕСКОЕ СПАСИБО!!!

Как написать скриптик на VB, который бы Найти похожие ветки