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!

1 Antwort

MarkusGenervt

14.10.2017, 18:54

Dazu bräuchtest Du einen Event-Handler, welcher wiederum ein Fenster benötigt, was mit VBS so einfach nicht geht.

Aber über WMI gibt es bestimmt eine Möglichkeit. Aber da müsste ich erst selber nachschauen. Such mal "vbscript WMI (keypress|key-event)". Da sollte irgendwo ein Link zur MSDN dabei sein. Oder suche dirrekt nach "MSDN vbscript WMI".

Da musst Du Dich mal durcharbeiten. WMI ist leider keine Kleinigkeit, aber dafür gibt es dort jede Menge Code-Beispiele.

Ähnliche Beiträge

Programm von der Taskbar verstecken (CMD)?

Hallo weiß jemand zufällig wie ich ein bestimmtes Program von der Taskbar verstecke also das es noch da ist aber nicht angezeigt wird und das alles in einem Batch Code(am besten) andere Codes währen auch ok.

...zum Beitrag

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....

...zum Beitrag

(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

...zum Beitrag

Wie geht das mit Dim in VBS?

Hallo liebe Community,

ich will den Text kurz halten:

Dim a1
a1 = InputBox ("Datum", "Wann?", " ")
wshshell.sendkeys "{ENTER}"
WScript.sleep 500
wshshell.sendkeys "cls"
wshshell.sendkeys "{ENTER}"
WScript.sleep 500
wshshell.sendkeys "Wir fahren am

Ich habe schon viel im Internet gesucht, aber leider nichts gefunden. Am Ende soll das stehen, was auch in die Box geschrieben wurde (das Datum), aber ich weiß leider nicht wie.

Diese Sachen sollen in CMD stehen (deshalb auch cls, usw.).

Ich hoffe, dass die Frage verständlich ist, weil ich wenig Ahnung von dem Ganzen habe.

MfG

...zum Beitrag

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 ?

...zum Beitrag

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

...zum Beitrag

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

...zum Beitrag

deutsche text-to-speech stimme vbs

Ich kann mit visual basic script ja eine sprachsynthese durchführen

(dim fname

set objvoice=Createobject("sapi.spvoice")

objvoice.speak ("Example")

Jetzt wollte ich fragen, ob es eine alternative zu sapi.spvoice gibt und zwar in deutsch (sapi.spvoice ist englisch)

...zum Beitrag

vbs Script?

ich habe ein vbs script geschieben was mir Microsoft Word Exel etc öffnet ich würde gerne überprüfen lassen ob die programme offen sind wenn ja sollen die programme nicht geöffnet werden und das script soll sich schließen bzw wenn die programme offen sind ich den qode nochmals ausfüre die programme nicht ncheinmal geöffnet werden

quell qode:

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run("Excel")

WshShell.Run("OneNote")

WshShell.Run("Powerpoint")

WshShell.Run("Word")

WshShell.Run("MicrosoftTeams")

...zum Beitrag

Java - Visual Basic (Pyramide mit For Schleife)?

Hi, ich bin absoluter Programmieranfänger und habe eine Aufgabe erhalten, die ich lösen muss. Und zwar soll ich ein VB Scribt schreiben, dass man in der cmd Konsole öffnen soll, um dann eine Pyramide aus X zu erhalten.

Die Pyramide soll aus 8 Zeilen bestehen, pro Zeile kommen jeweils links und rechts ein x dazu. Ganz oben hat man ein X und 7 Leerzeichen, ganz unten kein Leerzeichen und 15X.

Kann mir jemand die Lösung geben wie in dem Youtube Video '1.2.4.1 Java - Eclipse Bsp. (for) Weihnachtsbaum', nur anstatt Java mit der Programmiersprache Visual Basic und die vorgegebenen Befehle

Set oWSH = CreateObject("WScript.Shell")

vbsInterpreter = "cscript.exe"

WScript.StdOut.WriteLine ""

WScript.StdOut.Write ""

Vielen Dank schonmal

...zum Beitrag

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!

...zum Beitrag

VBScript Fehler Dateien bereits vorhanden?

Ich schreibe gerade an einer art "DesktopCleaner"... das ganze soll erstmal nur auf meinem System funktionieren.

Option Explicit 
Dim objFSO, objFolder, objSubFld, f1, f2, colFiles, pathname, i 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFolder = objFSO.GetFolder("D:\") 
ChkSubFld objFolder 

Private Sub ChkSubFld(StartFolder) 
ChkFiles StartFolder 
Set objSubFld = StartFolder
For Each f2 in objSubFld 
ChkSubFld f2 
Next 
End Sub 

Private Sub ChkFiles(Start) 
Set colFiles = Start.Files 
For Each f1 in colFiles 
pathname = objFSO.GetAbsolutePathName(f1)
MsgBox pathname
 If Not (pathname = "D:\4.m3u") Or (pathname = "D:\CyberGhost 6.lnk") Or (pathname = "D:\desktop.ini") Or (pathname = "D:\Electrum-LTC.lnk") Or (pathname = "D:\Electrum.lnk") Or (pathname = "D:\Lazarus.lnk") Or (pathname = "D:\Start Tor Browser.lnk") Or (pathname = "D:\TeamSpeak 3 Client.lnk") Then
objFSO.MoveFile pathname, "D:\Alles Desktop\DesktopCleaner"
End If
Next 
End Sub 

objFSO.MoveFile "E:\VBS\DesktopCleaner\data\TranscodedWallpaper", "C:\Users\Ericmc\AppData\Roaming\Microsoft\Windows\Themesr"
MsgBox "Fertig!"

Also der Ablauf soll sein: Lösche alle Dateien auf dem Desktop (D:), ändere das Desktop Hintergrundbild. Der Fehler ist wohl beim ersten objFSO.MoveFile .... ich schaffe es aber nicht ihn zu beheben. Es kommt immer die aussage die Dateien würden bereits existieren?? Obwohl der Ordner DesktopCleaner leer ist. Danke für eure Hilfe.

...zum Beitrag

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}"

...zum Beitrag

Wie kann ich bei Autohotkey eine Schleife erstellen, die mit ESC gestoppt wird?

Hallo alle zusammen,

ich versuche für GTA SA:MP einen AHK Keybinder zu erstellen. Im Moment hänge ich an folgendem Problem:

Ich möchte, dass wenn ich STRG-rechts+Numpad 0 drücke AHK eine Endlosschleife beginnt, die erst endet, wenn ich ESC drücke...

Die Schleife soll nur:

sendinput t/fish{enter}
sleep 1000

enthalten.

Zur Info:

Momentan habe ich es mit

<^Numpad0::
{
loop,5
sendinput t/fish{enter}
sleep 1000
}
return

"überbrückt". Das Wahre ist es aber wirklich noch nicht.. Mit "loop", "until" und "while" habe ich etwas experimentiert; bin aber kläglich gescheitert (bin noch Anfänger).

Kann mir bitte jemand den "richtigen" Code schicken und evt. noch erklären, wie er funktioniert? Wünschenswert wäre, wie beschrieben, dass wenn ich STRG-rechts+Num 0 drücke diese kleine Schleife solange läuft, bis ich sie mit ESC abbreche...

Vielen Dank!

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen