Top-Themen

Aktuelle Themen (A bis Z)

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, 7936 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.
MFG DizzY
Bitte warten ..
Ähnliche Inhalte
HTML
Webseite zentrieren
gelöst Frage von gamerffHTML2 Kommentare

Hallo, ich habe eine webseite erstellt und möchte nun das diese seite bei jeder Bildschirmgröße immer in der mitte ...

VB for Applications
Vbscipt zur Ueberprüfung ob Ordner existiert je nach Resultat Ausführung oder nicht
Frage von aletriVB for Applications6 Kommentare

Guten Morgen Eigentlich funktioniert dieser Script ! Existiert jedoch der Ordner der Abfrage auf Zeile 04 , wird richtigerweisse ...

HTML
Inhalt eines div-Tags in horizontal in der Mitte eines Browserfensters zentrieren
Frage von trallerHTML1 Kommentar

Hallo, ich setze einen allumschließenden div-Tag ein und möchte, dass dieser im Broweserfenster horizontal immer in der Mitte angezeigt ...

Humor (lol)
Die Maus im Käfig
Frage von the-buccaneerHumor (lol)5 Kommentare

Das Leben ist voller Überraschungen User kann sich nicht mehr bei Windows 7 anmelden. Man kann mit der Maus ...

Neue Wissensbeiträge
Apple

IOS 11.2.1 stopft HomeKit-Remote-Lücke

Tipp von BassFishFox vor 1 TagApple

Das Update für iPhone, iPad und Apple TV soll die Fernsteuerung von Smart-Home-Geräten wieder in vollem Umfang ermöglichen. Apple ...

Windows 10

Windows 10 v1709 EN murkst bei den Regionseinstellungen

Tipp von DerWoWusste vor 1 TagWindows 10

Dieser kurze Tipp richtet sich an den kleinen Personenkreis, der Win10 v1709 EN-US frisch installiert und dabei die englische ...

Webbrowser

Kein Ton bei Firefox Quantum über RDP

Tipp von Moddry vor 1 TagWebbrowser

Hallo Kollegen! Hatte das Problem, dass der neue Firefox bei mir auf der Kiste keinen Ton hat, wenn ich ...

Internet

EU-DSGVO: WHOIS soll weniger Informationen liefern

Information von sabines vor 1 TagInternet4 Kommentare

Wegen der europäische Datenschutzgrundverordnung stehen die Prozesse um die Registrierung von Domains auf dem Prüfstand. Sollte die Forderungen umgesetzt ...

Heiß diskutierte Inhalte
Hardware
Kein Bild mit nur einer bestimmten Grafikkarten - Mainboard Konfiguration
gelöst Frage von bestelittHardware18 Kommentare

Hallo zusammen, ich hatte schon einmal eine ähnliche Frage gestellt. Damals hatte ich genau das gleiche Problem. Allerdings lies ...

Windows Server
RODC kann nicht aus Domäne entfernt werden
Frage von NilsvLehnWindows Server18 Kommentare

HAllo, ich arbeite in einem Universitätsnetzwerk mit 3 Standorten. Die Standorte haben alle ein ESXi Cluster und auf diesen ...

Hardware
Links klick bei Maus funktioniert nicht
gelöst Frage von Pablu23Hardware16 Kommentare

Hallo erstmal. Ich habe ein Problem mit meiner relativ alten maus jedoch denke ich nicht das es an der ...

Netzwerkmanagement
Mehrere Netzwerkadapter in einem PC zu einem Switch zusammenfügen
Frage von prodriveNetzwerkmanagement16 Kommentare

Hallo zusammen Vorweg, ich konnte schon einige IT-Probleme mit Hilfe dieses Forums lösen. Wirklich klasse hier! Doch für das ...