mit vbs Skript ein click auf den Bildschirm machen?

Hi ich wollte mal fragen wie oben steht mit welchem vbs script man ein click auf der Position x = 423 , y = 354 macht habe schon vieles ausprobiert wie :

Dim x
 set x=createobject("wscript.shell")

 x.sendkeys"{CLICK LEFT,50,60}"

oder

With CreateObject("WScript.Shell")
    .Run "nircmd setcursor 100 100", 0, True
    .Run "nircmd sendmouse right click", 0, True
End With

keine ahnung ob das vbs ist aber kann wer helfen wie ich diesen click mit vbs mache ?

1 Antwort

pcjobnet

06.07.2022, 07:21

vbscript - VBS send mouse clicks? - Stack Overflow

Stack Overflow ist übrigens DIE Entwickler community ;)

scriptkidlololo

Fragesteller

06.07.2022, 15:16

danke

Ähnliche Fragen

Per VBS Tastenkombination ausführen?

Hi, ich muss per VBS eine Tastenkombination ausführen und zwar folgende:

STRG + Windows-Taste + D

Manche wissen vielleicht, dass man damit einen neuen virtuellen Desktop unter Windows erstellt. Ich habe bereits folgende Ansätze, nur leider funktioniert nichts davon:

Set shell = CreateObject("WScript.shell")
shell.SendKeys "^{HOME}d"

Theoretisch müsste es ja funktionieren, vielleicht ist der Syntax falsch, kenn mich mit VBS net wirklich aus :)

Danke für jede Hilfe!

...zur Frage

Wie kann ich eine Taste zu einer bestimmten Zeit simulieren?

Möchte gern mit VBS o.ä. ein kleines Programm schreiben welches zum Beispiel in einer Stunde die Enter Taste drückt um zum Beispiel eine Nachricht in einer stunde abzusenden bisher habe ich folgendes aber es scheint nicht zu funktionieren:

WScript.Timeout = 60
set sh=createobject("wscript.shell")
sh.sendkeys "{A}"

...zur Frage

VBS Script funktioniert nicht?

Hallo zusammen,

ich möchte gerne ein Script erstellen, dass die Windows Farbkalibrierung kurz öffnet einmal Enter und dann ESC tippt. Leider funktioniert das aber irgendwie nicht.

Hier mein Code:

Set oWsh = CreateObject("WScript.Shell")

oWsh.Run("dccw") oWsh.SendKeys ("{ENTER}")

oWsh.SendKeys ("{ESC}")

Hat jemand eine Idee wieso das nicht funktioniert? Das Programm öffnet sich, aber die SendKey Befehle funktionieren nicht....

...zur Frage

Wo liegt hier der Fehler (VB-Skript)?

Ich habe versucht da so ein Programm in VBS zu coden aber mir ist da irgendein Fehler unterlaufen. Kann mir da wer helfen diesen Fehler zu beheben? Das Programm soll einen Satz sagen (mit Stimme), ein Fenster öffnen wo man eine Website eingibt und diese dann öffnen. Hier ist der Code:

set STIMME=createobject("sapi.voice")

STIMME.speak("Bitte nenne den Namen der Website die du öffnen willst!")

WEBSITE=inputbox("Nenne den Namen der Website","website")

set WSITE=createobject("wscript.shell")

If Website = "" Then

STIMME.speak("Website nicht gefunden. Bitte versuche es erneut!")

WEBSITE=inputbox("Nenne den Namen der Website","website")

Else

STIMME.speak("Loading " & WEBSITE & ".com")

set WSITE=createobject("wscript.shell")

WSITE.run "http://www. " & WEBSITE & ".com")

STIMME.speak("Website wurde geladen!")

exit do

Loop

...zur Frage

Wo kann ich IT Skript für Spiel erstellen lernen?

Wo kann man IT Skripten lernen, man sich eine Spiel erstellten kann.

...zur Frage

Wo kann ich mir Hilfe holen wegen Skript (Programmieren)?

Ich habe bereits auf sämtlichen Seiten nachgefragt wie ich dieses "Programm" bzw. Script benutze, weil ich sehr wenig Ahnung von sowas habe (z. B. weiß ich nur wie man den Pfad ändert in CMD).

https://github.com/ittiam-systems/libmpegh

Leider hat mir niemand geantwortet, egal wo ich gefragt habe. Gibt es eine Art Forum wo man sowas fragen kann und jemand erklärt wie man z. B. genau dieses Script anwenden muss?

Ich habe selbst es probiert aber kriege gar nichts hin. Habe Microsoft Visual Studio 2017 und Python.

...zur Frage

Pacifist run in Undertale geht nicht?

Ich habe letztens Undertale heruntergeladen und wollte den Pacifist run machen, allerdings wusste ich zu der Zeit nicht, dass man das Spiel mindestens einmal durchspielen muss um true pacifist zu erhalten. Ich gelange also zu Asgore, bekämpfe ihn, bekämpfe dann Flowey, und da ich davon ausging, dass ich irgendetwas falsch gemacht haben muss (weil ich nicht gegen Asriel kämpfen musste), habe ich aus einer Lust heraus Flowey getötet. Gestern habe ich dann das komplette Spiel nochmal gespielt, um true pacifist zu erhalten, aber nach Asgore kam nur Flowey und meinte "let's get this over with" aber kein Kampf und damit konnte ich Flowey auch nicht am leben lassen.
Meine Frage ist nun: Muss ich das Spiel deinstallieren und noch mal spielen um True Pacifist zu erlangen, oder gibt es noch eine möglichkeit?

...zur Frage

(VBS) Script soll eine Pause machen?

Hi, ich schreibe gerade ein kleines Script. Es soll ein Programm öffnen und ein paar Zeilen "tippen". Aber bis sich das Programm öffnet und ich alles eingestellt habe, vergehen ein paar Sekunden. Wäre es möglich, dass sich das Script kurz pausiert, und dann weiter den Code abarbeitet? habe es schon mit der "sleep"-Funktion versucht, dabei kommt aber die Fehlermeldung (siehe Anhang). Hier der Code:

Dim Anwendung
Set Anwendung = CreateObject("WScript.Shell")
Anwendung.Run "TSWIN7.EXE"
Anwendung.Sleep(10000)
Anwendung.SendKeys "Test"

PS: Ich schreibe eigentlich nie mit VBS, also bitte so gut wie möglich erklären (am besten mit Codebeispiel), so das ich alles verstehe :D

...zur Frage

Anführungszeichen in vbs?

Ich habe ein Problem.

Ich habe ein VBScript das ein anderes schreiben soll, aber ich weiß nicht wie ich die Anführungszeichen auf dem neu geschriebenen VBScript darstellen soll.

Const strFileName = "output.vbs"

Const ForReading = 1

Const ForWriting = 2

Const ForAppending = 8

Const CreateNotExist = True

Dim strInput, objFSO, objFile

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile(strFileName, ForWriting, CreateNotExist)

objFile.WriteLine "set Network = CreateObject("WScript.Network")"

(...)

objFile.Close

Set objFile = Nothing

Set objFSO = Nothing

Es wäre nett wenn ich eine leicht verständliche Antwort bekäme

...zur Frage

Programmier-Skript an Entwickler verkaufen?

Hi,

Ich habe ein paar kleine und große Programme entwickelt und würde davon sehr gerne ein paar verkaufen. Z.b. eine Dateien-Verschlüsselung, eine Bootloader-Programmier-Sprache, und andere. Kennt ihr dafür irgendeine Plattform?

...zur Frage

Spezifische Zeile in einer CSV-Datei bearbeiten?

Hallo liebe Community,

ich stehe vor folgendem Problem...

Ich habe unter Linux (CentOS Core) eine CSV welche ich über ein Skript mit Daten befüllen möchte. Ich habe mir also gedacht über eine Schleife, Zeile für Zeile, abzuarbeiten. Jedoch habe ich nicht herausgefunden wie ich genau eine spezifische Zeile in der CSV anspreche.

Das Skript wird in der Bash geschrieben.

Hier ein Beispiel:

--------------------------------

Auto

Flugzeug

Schiff

--------------------------------

nach dem das Skript lief:

--------------------------------

Auto, 1024

Flugzeug, 516

Schiff, 136

--------------------------------

Es sollen bei jedem Skriptdurchlauf Werte angehangen werden.

...zur Frage

VBS Variable in eine .txt Datei schreiben?

Hallo liebe Community,

Ich habe gestern mit vbs angefangen und habe eine Frage:Wie kann ich eine Variable in eine .txt Datei schreiben

script:

text = inputbox("Du:")

set fs = createobject("scripting.filesystemobject")

set file = fs.openTextFile("a.vbs", 8, true)

test = text

file.writeline ""

file.writeline "if text = test then"

file.writeline "msgbox(test)"

file.writeline "else"

Die Ausgabe ist:

if text = test then

msgbox(text)

else

Nun soll test aber der Inhalt der Inputbox sein aber,text soll text bleiben.

Bitte mit Erklärung,bin nunmal anfänger

...zur Frage

Hey, wie bekomme ich via Excel VBA eine Mail bei Lotus Notes geschrieben, sodass ich sie vorher noch bearbeiten kann?

Sobald ich die Mail ohne Bearbeitung verschicke, ist die Mail inklusive des Inhaltes. Sobald ich sie bearbeiten will vorher bzw. noch einmal manuell auf "senden" drücken will (Vorsichtsmaßnahme), ist der komplette Inhalt, bis auf die Betreffzeile, verschwunden.

Beiliegend ist mein Codebeispiel

Sub SendNotesMail2()

Dim UserName As String
Dim MailDbName As String
Dim Recipient As Variant
Dim Maildb As Object
Dim MailDoc As Object
Dim session As Object
Dim stSignature As String



With Application
.ScreenUpdating = False
.DisplayAlerts = False


AWS = ActiveWorkbook.FullName
Set Worksheet = Application.ActiveWorkbook.Worksheets.Item(1)
Set session = CreateObject("Notes.NotesSession")
Set Maildb = session.CURRENTDATABASE
Set MailDoc = Maildb.createdocument
MailDoc.Form = "Memo"
Set Workspace = CreateObject("Notes.NOTESUIWORKSPACE")
stSignature = Maildb.GetProfileDocument("CalendarProfile").GetItemValue("Signature")(0)
Recipient = "f"
MailDoc.display = ""
MailDoc.copyto = "" 
MailDoc.subject = "price update"
MailDoc.SAVEMESSAGEONSEND = saveit
Set ritem = MailDoc.CreateRichTextItem("Body")
For i = 2 To 37
With ritem
        .AppendText ("")
        .AppendText (Cells(i, 2).Value & vbTab & Cells(i, 3).Value & vbTab & Cells(i, 4).Value & vbTab & Cells(i, 5).Value & vbTab)
        .addnewline (1)
End With
Next
For i = 2 To 2
With ritem
        .AppendText ("" & vbCrLf & vbCrLf & stSignature)
End With
Next


Call Workspace.editdocument(True, MailDoc).GOTOFIELD("subject")


MailDoc.PostedDate = Now()

Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachMe = Nothing
Set session = Nothing
.ScreenUpdating = True
.DisplayAlerts = True
End With
Range("a1").Select
End Sub

...zur Frage

VBS Schleife abbrechen durch Tastendruck?

Hallo, ich habe folgendes Script:

set WshShell = CreateObject("WScript.Shell")
for i=0 to 15
WScript.Sleep 300
WshShell.SendKeys " "
next

wie kann ich einbauen, dass beim drücken von "ESC" das Script vorzeitig beendet wird? Oder egal ob mit esc oder auf anderem Weg.

VIelen Dank!

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen