Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

VBScipt um die Maus zu zentrieren

Frage Entwicklung VB for Applications

Mitglied: grice82

grice82 (Level 1) - Jetzt verbinden

19.06.2007, aktualisiert 18.10.2012, 7663 Aufrufe, 3 Kommentare

Hallo,
ich brauche gerade eine Lösung um den Mauszeiger auf dem Bildschirm zu Zentrieren. Das Problem ist, dieses soll mit VBS geschehen.
Dies soll für jede Auflösung geschehen.
Falls jemand nicht weiß, wie er das relisieren soll aber die Befehle kennt um unter VBS die Auflösung zu ermitteln und den Cursor zu setzen so solle er dies Posten das würde mir auch schon weiterhelfen.
Ich bedank mich jetzt schon einmal bei alle Helfern.
Gruß
J. W. Grice

PS: Ich bin auch an Nachschlagewerke (im Inet) für VBS interessiert.
Mitglied: bastla
19.06.2007, aktualisiert 18.10.2012
Hallo grice82!

Einer Aufforderung wie " ;... solle er dies posten ..." kann ich mich nicht verweigern, daher versuche er als Teillösung das folgende Script:
01.
strComputer = "."  
02.
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")  
03.
Set colItems = objWMIService.ExecQuery( _ 
04.
    "SELECT * FROM Win32_DisplayConfiguration",,48)  
05.
For Each objItem in colItems  
06.
    WScript.Echo "Auflösung: " & objItem.PelsWidth & "x" & objItem.PelsHeight 
07.
Next
Hinsichtlich des Interesses an Nachschlagewerken verweise ich auf die eingetragenen Links in dem für obige Fragestellung passenderen Bereich "Entwicklung > Programmiersprachen > Visual Basic, VBA und .Net" des Forums bzw auf einige weitere Links am Ende dieses Beitrages.

Grüße
bastla
Bitte warten ..
Mitglied: grice82
19.06.2007 um 12:55 Uhr
Danke für die Rasche Antwort, dies hat mir schon etwas weitergeholfen.
Das Script sieht nun so aus:

01.
 ' VBScript source code 
02.
 strComputer = "."  
03.
 Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")  
04.
 Set colItems = objWMIService.ExecQuery( _ 
05.
    "SELECT * FROM Win32_DisplayConfiguration",,48)  
06.
 For Each objItem in colItems  
07.
     DIM x 
08.
     DIM y 
09.
     x = objItem.PelsWidth \2 
10.
     y = objItem.PelsHeight \2 
11.
     WScript.Echo "Zur Kontrolle, der Mittelpunkt hat die Koordinaten: " & x & "x" & y 
12.
     'Cursor.Position = New Point(x, y) 
13.
 Next
Nur mit Cursor.Position klappt es nicht, wenn ich es Auskommentiere läuft das Script durch aber ich schaff es nicht das er den Curso an die gewünschte Stelle bewegt, ich bekomm immer die Meldung:


Skript: 'Pfad des Skriptes'
Zeile: 12
Zeichen: 32
Fehler: Anweisung erwartet
Code: 800A0401
Quelle: Kompilierungsfehler in Microsoft VBScript

Ich geh starkt davon aus, dass der Fehler an meine unwissenheit dieser Sprache liegt und ich Cursor.Position falsch anwende.

Weiß wer die Lösung?
Bitte warten ..
Mitglied: DizzYD
09.09.2007 um 19:15 Uhr
Hallo
Da ich mich auch schon ein bisschen mit dem Windows Cursor bechäftige und ebenfalls vorhabe mit einem VBScript den Cursor zu bewegen bitte ich um entschuldigung ,dass ich diesen schon etwas älteren Thead wieder ausgrabe.
Wenn ich den obengennanten Code benutzen will kommt bei mir immer , dass in Zeile 12 ein Anweisungsende erwartet würde.
Mag sein ,dass das eine ziemlich dumme Frage von mit ist ,aber ich bin wirklich noch neuling in vbscript und würde mich deswegen über Hilfe sehr freuen.
Mit freundlichen Grüßen DizzY
Bitte warten ..
Neuester Wissensbeitrag
Internet

Unbemerkt - Telekom Netzumschaltung! - BNG - Broadband Network Gateway

(3)

Erfahrungsbericht von ashnod zum Thema Internet ...

Ähnliche Inhalte
Heiß diskutierte Inhalte
Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...

Grafikkarten & Monitore
Tonprobleme bei Fernseher mit angeschlossenem Laptop über HDMI (11)

Frage von Y3shix zum Thema Grafikkarten & Monitore ...

Microsoft Office
Keine Updates für Office 2016 (11)

Frage von Motte990 zum Thema Microsoft Office ...