Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
How to quickly change mouse wheel scroll lines?
#1
I have tried this code; it works, but seeing the window appearing and disappearing is not so fine; is there faster way?

Code:
Copy      Help
run "C:\Windows\System32\main.cpl" ",3"
0.1
int w=win("Mouse Properties" "#32770")
Acc a.Find(w "TEXT" "" "class=Edit[]id=105[]value=1" 0x4)
a.SetValue("5")
key Y

I have tried the MouseWheel function, but it seem not to respond adequately when I rotate the mouse wheel too fast with some programs.
#2
Code:
Copy      Help
SystemParametersInfo SPI_SETWHEELSCROLLLINES 5 0 SPIF_SENDCHANGE|SPIF_UPDATEINIFILE
#3
Wonderful!
#4
Could you give an example of how to use these two functions?
SPI_GETWHEELSCROLLLINES
SPI_GETDESKWALLPAPER
#5
Macro Macro2506
Code:
Copy      Help
int i
SystemParametersInfo SPI_GETWHEELSCROLLLINES 0 &i 0
out i

str s.all(300)
SystemParametersInfo SPI_GETDESKWALLPAPER 300 s 0
s.fix
out s

;Unicode
BSTR w.alloc(300)
SystemParametersInfoW SPI_GETDESKWALLPAPER 300 w.pstr 0
str s2.ansi(w)
out s2
#6
Works like a charm, thanks a lot.


Forum Jump:


Users browsing this thread: 1 Guest(s)