VBS + egérérzékenység

VBS + egérérzékenység
2008-02-13T15:16:09+01:00
2008-02-15T18:21:59+01:00
2022-11-07T15:45:33+01:00
balu_kapitány
Sziasztok!

Hogyan lehet Visual Basic Scriptből az egér érzékenységét állítani?
Mutasd a teljes hozzászólást!
tudom, hogy a kód el sem indul, de azt írtam, hogy ez talán segíthet.

Nekem ez alapján sikerült.

észrevettem, hogy a VB kódom semmit nem ír át RegAdatbázisban.

vagyis amit akarunk, az nem ott van tárolva.

Ezt ajánlották más fórumokon: (ha a lecserélt háttérképet látni akarjuk)
WshShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters",1, false

de ez nekünk nem ér semmit.

Egy vicces francia srác ezt írta:


Set oShell = CreateObject("WScript.Shell") oShell.Run "control.exe main.cpl", 1, false WScript.Sleep 1000 oShell.SendKeys "+{TAB}{RIGHT}{RIGHT}{TAB}{END}~"

ez a maxra állítja a sebességet
Igazából "main.cpl,Mouse" volt írva a kódban, de magyar winnel nem működött.


esetleg egy vizsgálatot tehetsz a sendkeys elé:
dim i i = 0 Do Until oShell.AppActivate("Mouse Properties") WScript.Sleep 50 i = i + 1 if i > 10 then WScript.Quit Loop WScript.Sleep 200



magyar winXP:
Do Until oShell.AppActivate("Egér tulajdonságai")
Mutasd a teljes hozzászólást!

  • Szia! Én ezzel próbálkoztam :

    Set rr = CreateObject("WScript.Shell") val = rr.RegWrite("HKCU\Control Panel\Mouse\MouseSensitivity","20","REG_SZ")

    Hozzáteszem, nem sok sikerrel
    A registrybe beírja, de nem nagyon szuperál
    Mutasd a teljes hozzászólást!
  • Szerintem azért nem jó, mert újra kell indítani a gépet (vagy legalább ki-és bejelentkezni). Én kicsire vettem az érzékenységet, a registryből a HKEY_CURRENT_USER\Control Panel\Mouse kulcsot exportáltam, majd újra normálisra vettem és újra exportáltam, de ezeket a .reg fájlokat hozzáadava a registryhez sem változott semmi:(

    Szerintem valamilyen ActiveX-es vezérlőkel kell valamit csinálni, de többet nem tudok :(

    Ha mást nem, megírom C++-ban, WinApi-val biztosan lehet (de most csak ezért nem akarok föltelepíteni semmilyen fejlesztőcuccot).
    Mutasd a teljes hozzászólást!
  • ez a kód vb-ben ez megy:
    (talán segít)

    Private Const SPI_SETMOUSESPEED = 113 Private Const SPI_GETMOUSESPEED = 112 Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long Private Declare Function SetDoubleClickTime Lib "user32" (ByVal wCount As Long) As Long Private Sub Parancsgomb0_Click() 'set double-click time in milliseconds 'SetDoubleClickTime (500) ' modify the mouse speed to make it as fast as possible Dim Speed As Long Speed = 15 '1-20 között lehet állitani SystemParametersInfo SPI_SETMOUSESPEED, 0, ByVal Speed, 0 End Sub
    Mutasd a teljes hozzászólást!
  • vbs-ben nem fog.
    Mutasd a teljes hozzászólást!
  • tudom, hogy a kód el sem indul, de azt írtam, hogy ez talán segíthet.

    Nekem ez alapján sikerült.

    észrevettem, hogy a VB kódom semmit nem ír át RegAdatbázisban.

    vagyis amit akarunk, az nem ott van tárolva.

    Ezt ajánlották más fórumokon: (ha a lecserélt háttérképet látni akarjuk)
    WshShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters",1, false

    de ez nekünk nem ér semmit.

    Egy vicces francia srác ezt írta:


    Set oShell = CreateObject("WScript.Shell") oShell.Run "control.exe main.cpl", 1, false WScript.Sleep 1000 oShell.SendKeys "+{TAB}{RIGHT}{RIGHT}{TAB}{END}~"

    ez a maxra állítja a sebességet
    Igazából "main.cpl,Mouse" volt írva a kódban, de magyar winnel nem működött.


    esetleg egy vizsgálatot tehetsz a sendkeys elé:
    dim i i = 0 Do Until oShell.AppActivate("Mouse Properties") WScript.Sleep 50 i = i + 1 if i > 10 then WScript.Quit Loop WScript.Sleep 200



    magyar winXP:
    Do Until oShell.AppActivate("Egér tulajdonságai")
    Mutasd a teljes hozzászólást!
  • A VB-s kóddal nem érek semmit, nincs fent VB, nem is lesz.

    A másik megcsak gombokat nyomogat, és megnyitja az egér tulajdonságait. Azér kösz.

    Valaki más?
    Esetleg működő forráskód?
    Mutasd a teljes hozzászólást!
  • A másik megcsak gombokat nyomogat, és megnyitja az egér tulajdonságait.

    És ha ezt jól teszi, akkor sikerül is beállítani az egér érzékenységét.

    szerk: nálam pl. működik
    Mutasd a teljes hozzászólást!
  • Már értem a lényegét.

    Ez minimumra veszi:
    Set oShell = CreateObject("WScript.Shell") oShell.Run "control.exe main.cpl", 1, false WScript.Sleep 1000 oShell.SendKeys "+{TAB}{RIGHT}{RIGHT}{TAB}{HOME}~"


    Ez meg normálisra:
    Set oShell = CreateObject("WScript.Shell") oShell.Run "control.exe main.cpl", 1, false WScript.Sleep 1000 oShell.SendKeys "+{TAB}{RIGHT}{RIGHT}{TAB}{RIGHT}{RIGHT}{RIGHT}(RIGHT){RIGHT}(RIGHT)(RIGHT)~"

    Így már okés.
    Mutasd a teljes hozzászólást!
Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd