![]() |
Willkommen, Gast ( Anmelden | Registrierung )
![]() |
![]()
Beitrag
#1
|
|
Kommt Zeit, kommt Rat, kommt Conrad! ![]() Gruppe: Mods Beiträge: 1.169 Mitglied seit: 21.11.2001 Wohnort: Altenkirchen, Westerwald Mitglieds-Nr.: 42 ![]() |
Hallo,
ich schon wieder ![]() Nächstes Problem: Wie kann man einem VB Script klar machen Leerzeichen 'mitzulesen' ? Beispiel 1: set) WSHShell.Run "C:ProgrammeInternet ExplorerIEXPLORE.EXE", vbTrue Wird nicht richtig gelesen, weil zwischen Internet und Explorer ein leerzeichen steht, die folge ist eine Fehlermeldung. Beispiel 2: set) WSHShell.Run "C:ProgrammeInternet_ExplorerIEXPLORE.EXE", vbTrue Jetzt -mit Unterstrich- ginge es, aber dann muß ich auf'm Rechner ALLE Pfade zum IE abändern! :cry: Kann man also dem Pfad etwas voran stellen, damit vorhandene Leerzeichen im Pfad nicht zum abbruch führen? Danke schon mal, Conny |
|
|
![]() |
![]()
Beitrag
#2
|
|
Kommt Zeit, kommt Rat, kommt Conrad! ![]() Gruppe: Mods Beiträge: 1.169 Mitglied seit: 21.11.2001 Wohnort: Altenkirchen, Westerwald Mitglieds-Nr.: 42 ![]() |
Hi,
ich schon wieder 8) Nun möchte ich gerne mit VBS auf einem Schlag mehrere Programme beenden!!! So weit bin ich bis jetzt; geht aber nicht :cry: (Runtimefehler) Kann mir einer (Helpy ?) bitte sagen was ich falsch mache?? Bin ich überhaupt auf dem richtigen Weg? QUELLTEXT Option Explicit
' Variablen deklarieren Dim intDoIt Dim AppActivate DIM Sendkeys DIM L_Ending_MsgBox_Message_Text DIM L_Ending_MsgBox_Title_Text Dim Sleep 'Substring: für Boxentext, Boxentitel und Abbruch Sub Ending() intDoIt = MsgBox(L_Ending_MsgBox_Message_Text, _ vbOKCancel + vbQuestion, _ L_Ending_MsgBox_Title_Text ) If intDoIt = vbCancel Then WScript.Quit End If End Sub ' Programm ablauf, Zuweisen der Variablen L_Ending_MsgBox_Message_Text = "Sollen die Laufenden Programme," & chr(13) & "" & chr(13) & "beendet werden?" L_Ending_MsgBox_Title_Text = "Programme Schließen" Call Ending() AppActivate "S" 'Aktiviert das Programm Sendkeys "{~F4}" 'Simuliert den Tastenanschlag ALT+F4 WScript.Sleep 1000 AppActivate "C" Sendkeys "{~F4}" ' ***************Ende************* Danke schon mal! Conny |
|
|
![]() ![]() |
![]() |
Vereinfachte Darstellung | Aktuelles Datum: 18.05.2025 - 6:50 |