maiduba
Goto Top

Mauszeigerstartposition bei Windows XP Start verändern?

Ich möchte die Startposition des Mauszeigers verschieben. Z.B. nach oben links.
So das jedesmal, wenn Windows neu gestartet wird, der Mauszeiger sich dort befindet.
Hat jemand eine Idee, wie sich so etwas realisieren lässt?

Content-Key: 159432

Url: https://administrator.de/contentid/159432

Printed on: April 26, 2024 at 13:04 o'clock

Member: wiesi200
wiesi200 Jan 26, 2011 at 08:26:29 (UTC)
Goto Top
Morgen,

darf man fragen was du damit bezwecken willst?
Member: godlie
godlie Jan 26, 2011 at 10:36:28 (UTC)
Goto Top
Hallo,

also wenn es vor der Anmeldung passieren soll dann fällt mir spontan nur ein Dienst ein der den Mauszeiger neu Positioniert.
Soll es nach der Anmeldung passieren, wäre es über ein VBScript im Autostart evtl. realisierbar.

grüße
Member: Phalanx82
Phalanx82 Jan 26, 2011 at 15:08:09 (UTC)
Goto Top
Stellt sich immernoch die Frage, wofür man sowas gebrauchen könnte.
Denn genau das interessiert mich auch seit ich diesen Thread gelesen habe ;)
Member: Maiduba
Maiduba Jan 28, 2011 at 07:34:16 (UTC)
Goto Top
Es geht hierbei um ein Terminal, wo Mitarbeiter Daten abfragen können. Der Mauszeiger ist also leider im weg.
Member: godlie
godlie Jan 28, 2011 at 07:47:41 (UTC)
Goto Top
Hallo,

du könntest es ja mal mit diesem VBS probieren, wenn es in den Autostart legst.

' Access the GetCursorPos function in user32.dll  
      Declare Function GetCursorPos Lib "user32" _  
      (lpPoint As POINTAPI) As Long
      ' Access the GetCursorPos function in user32.dll  
      Declare Function SetCursorPos Lib "user32" _  
      (ByVal x As Long, ByVal y As Long) As Long

      ' GetCursorPos requires a variable declared as a custom data type  
      ' that will hold two integers, one for x value and one for y value  
      Type POINTAPI
         X_Pos As Long
         Y_Pos As Long
      End Type

      ' Main routine to dimension variables, retrieve cursor position,  
      ' and display coordinates  
      Sub Get_Cursor_Pos()

      ' Dimension the variable that will hold the x and y cursor positions  
      Dim Hold As POINTAPI

      ' Place the cursor positions in variable Hold  
      GetCursorPos Hold

      ' Display the cursor position coordinates  
      MsgBox "X Position is : " & Hold.X_Pos & Chr(10) & _  
         "Y Position is : " & Hold.Y_Pos  
      End Sub

      ' Routine to set cursor position  
      Sub Set_Cursor_Pos()

      ' Looping routine that positions the cursor  
         For x = 1 To 480 Step 20
            SetCursorPos x, x
            For y = 1 To 40000: Next
         Next x
      End Sub

wobei hier für dich eher der teil mit SetCursor Interessant ist...
Member: Maiduba
Maiduba Jan 28, 2011 at 14:22:59 (UTC)
Goto Top
Danke! Das hat wunderbar funktioniert.