Форум: "Потрепаться";
Текущий архив: 2005.08.07;
Скачать: [xml.tar.bz2];
ВнизКак написать скриптик на 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
БОЛЬШОЕ ОГРОМНОЕ И ЧЕЛОВЕЧЕСКОЕ СПАСИБО!!!
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2005.08.07;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.04 c