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

11.05.2021, 08:45

Ergänzung 1: Alles läuft natürlich auf Windows 10

Ergänzung 2: Die Sachen die die Stimme sagen soll sind auf Deutsch, weil mein PC so etwas auch immer Deutsch ausspricht.

11.05.2021, 09:08

...

2 Antworten

Vom Fragesteller als hilfreich ausgezeichnet

Erzesel

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Computer, Technik, programmieren

11.05.2021, 16:49

Sagen wir's mal so:

Mehr Fehler ging fast nicht. (und noch dazu die Augenvergewaltigung: Variablen in Großbuchstaben geht garnich🤮 )

Objekte werden nur einmal an eine Variable zugewiesen.
Die Sprachbibliothek heißt SAPI.SpVoice
do-Loop ohne Bedingung
kein End If
fehlende oder zu viel Klammern

Und der Generalfehler: Du gibst Dich mit einer Sprache ab, welch eigentlich nur noch aus "Gnade" im System ist! (VBS ist schon seit jahren auf der Abschussliste und wird nicht mehr suported.

Immerhin kannst Du die Logik auch noch in anderen Sprachen verwenden 😅

trotzdem dein Script:

  'verwendete Objekte nur einmal initialisieren!
set Shell=createobject("WScript.Shell")
set Stimme=createobject("SAPI.SpVoice")
Do
    'kleiner Trick, das die Eingabe nicht  wartet, bis die Tante  fertig gelabert hat (speak asynchron)
  Stimme.speak "Bitte nenne den Namen der Website die du öffnen willst!",1
  WebSite=inputbox("Nenne den Namen der Website","website")


  If Website = "" Then
    Stimme.speak "Website nicht gefunden. Bitte versuche es erneut!" ,1
    WebSite=inputbox("Nenne den Namen der Website","website")
  Else
    Stimme.speak "Lade " & WebSite ,1
    Shell.run "http://" & WebSite
    Stimme.speak "Website wurde geladen!" ,1
  End If


Loop Until MsgBox("Script Beenden?", vbYesNo+vbSystemModal, WScript.ScriptName) = 6

Woher ich das weiß:eigene Erfahrung – Ich mach das seit 30 Jahren

TehGreatSoldeir

11.05.2021, 08:54

Ich kenne mich zwar nicht mit VB nicht sonderlich gut aus, ich hab aber nach kurzem googeln festgestellt, dass die Leute in den Foren "SAPI.spvoice" in den String tun, wo sie das Objekt erstellen. Ich würde mal schätzen, Groß- und Kleinschreibung ist auch wichtig, vor allem, wenn man mit Strings arbeitet, außer natürlich, VB macht das anders, was ich mal nicht vermute. (Ach ja, nichts gegen dich, aber dein Skript da ist etwas nutzlos, wenn ich nur ".com"-Seiten öffnen kann xD. Vor allem, wenn das ganze auf Deutsch ist, schließlich ist ".de" die deutsche Domainendung. Und es würde nicht funktionieren, da du in der Zeile "WSITE.run "http://www. " & WEBSITE & ".com")" einen Abstand nach "www." gesetzt hast. Das würde der Browser nicht erkennen und er würde dir immer "Server nicht gefunden" anzeigen.

Banana1008

Fragesteller

11.05.2021, 09:08

Das Problem ist aber auch, dass ich das ganze nicht mal öffnen kann. Da steht dann nur eine Fehlermeldung.

TehGreatSoldeir

11.05.2021, 10:26

@Banana1008

Ich hab mich mal damit beschäftigt und einfach mal was funktionierendes hingeklatscht. Wenn du willst, kannst dus mal vergleichen. Habs auch etwas übersichtlicher gemacht, sodass man nicht immer so komisch leere Zeilen zählen muss. Dein Fehlercode will dir übrigens sagen, dass du in Klammern nach einem Komma einen Abstand setzen musst, also ("text", "text"). Auf solche Tippfehler musst du immer achten. Aber das zu beheben, wird wohl nicht genug sein, dann folgen noch ganz viele weitere Fehler, hier ist einfach mal das fertige Produkt:
set STIMME=createobject("SAPI.spvoice")

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

bool = false

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!")

Else

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

set WSITE=createobject("wscript.shell")

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

STIMME.speak("Website wurde geladen!")

bool = true

end if

loop until bool = true

ist zwar nicht optimal gelöst und man kanns auch nicht schließen, bis man hinkriegt, was im Feld einzugeben, aber ich hab jetzt keine Motivation, zu googeln, wie man die inputboxen sinnvoll hinbekommt.

Hallo Leute,

ich Programmiere ja VBScript und habe jetzt eine Fehlermeldung und kriege diese nicht behoben:

Set fso = CreateObject("Scripting.FileSystemObject")

sl = InputBox("Wieviele Schüler sollten den Test machen?","")

'Gibt es eine "& sl &"ste Datei?

If fso.FileExists("D:\Lernprogrammmi\NomenMitEndungen\Tests\Temp\"& sl &".txt") Then

Do until Sl="0"

Set oFile = fso.OpenTextFile("D:\Lernprogrammmi\NomenMitEndungen\Tests\Temp\"& sl &".txt")

msgbox oFile.ReadLine

sl=sl-1

loop

Das Programm sollte in einer msgbox die Datei öffnen und danach auch die Dateien die unter der eingegebenen Zahl liegen öffnen und das bis null. Nun steht aber in dieser Zeile: "msgbox oFile.ReadLine" ein Fehler:

Eingabe hinter Dateiende

Kann mir da jemand helfen?

Außerdem möchte ich dass Alle Dateien in einer Abgespeichert werden aber so wie ich das erfahren habe klappt das nicht. Denn dann kreuzen sich zwei oFile's.

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

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 ?

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

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

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

VBScript: Zahlen runden?

Hallo ich habe ein Programm. Ja ach ne XD

Ich rechne dort die Prozente u.s.w. aus und hat auch alles geklappt. Nur jetzt hat man 36 Punkte und das Programm hat gerechnet, dass ab 36,40 eine 3 hat und bis zu 35,40 eine Vier. Nun möchte ich das runden uzwar so: 4.48 = 5, 4.2 = 4 u.s.w.

Dass heißt wenn es eine Nachkommastelle gibt das es auf ...,5 rundet.

...zur Frage

VBScript: Maus bewegen?

Wie kann ich in VBS per Befehl den Mauszeiger auf eine Koordinate schicken und dann einen Klick ausführen?

Bin anfänger als bitte nicht sagen: "ja du musst den String durch die Variable ersetzen bla bla bla..." also wäre schon mit dem Richtigen Code :)

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

VBS Zeilen zählen?

Ich schreibe zur Zeit ein Programm und dieses soll sich selber auslesen, wie viele Zeilen das Programm selber hat. Geht dies und wenn ja, wie?

...zur Frage

VBScript: Erlaubnis verweigert?

Ich schreibe VBS und habe nun eine Fehlermeldung:

 Set oFile = fso.OpenTextFile("D:/lpX32/NomenMitEndungen/Tests/"&UCase(Name)&"_TEST.txt",2,true)

Was mache ich falsch?

...zur Frage

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)

...zur Frage

VBScript: Zeichen zählen?

Wenn ich Wörter zählen möchte mache ich das in Kopf was ein bisschen doof wird wenn man so um die 300 - 400 Wörter zählen muss. Dann kam mir die Idee: Wenn ich ein Wort gezählt habe haue ich einmal auf die Leertaste/eine Taste. Am Schluss drücke ich Enter und mein Programm soll zählen wie viele Zeichen ich eingegeben hab. Wie würde das gehen?

Worte = InputBox("Gib einfach Buchstaben und leerstellen ein und diese Werden dann gezählt!","Wörter zählen")

'Hier Wörter zählen

'_____________________________________________


'_____________________________________________

msgbox ""&Anzahl&" Wörter",0+64,"Wörter gezählt"
'Ende

î hier eine kleine Vorgabe ;)

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