![]() |
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 Helpy,
Alles KLAR ![]() Das Programm hat mich geholfen! Mein Script sieht nun folgendermaßen aus: QUELLTEXT 'Diverse Programme schließen
Option Explicit ' Variablen deklarieren Dim intDoIt Dim L_Warning_MsgBox_Message_Text Dim L_Warning_MsgBox_Title_Text Dim L_Ending_MsgBox_Message_Text Dim L_Ending_MsgBox_Title_Text Dim Sleep Dim WshShell '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 Sub Warning() intDoIt = MsgBox(L_Warning_MsgBox_Message_Text, _ vbOKOnly + vbExclamation, _ L_Warning_MsgBox_Title_Text ) End Sub ' Programm ablauf, Box, Zuweisen der Variablen L_Ending_MsgBox_Message_Text = "Sollen die Laufenden Internet-Programme," & chr(13) & "" & chr(13) & "beendet werden?" L_Ending_MsgBox_Title_Text = "Programme Schließen" Call Ending() 'Object erstellen Set WshShell = WScript.CreateObject("WScript.Shell") WSHShell.Run "C:ConScriptsProgViewpv.exe -c MSIMN.EXE" WScript.Sleep 1000 WSHShell.Run "C:ConScriptsProgViewpv.exe -kf SPAMPAL.EXE" WScript.Sleep 200 WSHShell.Run "C:ConScriptsProgViewpv.exe -c IEXPLORE.EXE" WScript.Sleep 2000 WSHShell.Run "C:ConScriptsProgViewpv.exe -kf SPEEDMGR.EXE" WScript.Sleep 900 WSHShell.Run "C:ConScriptsProgViewpv.exe -kf TSMSVC.EXE" WScript.Sleep 900 WSHShell.Run "C:ConScriptsProgViewpv.exe -kf PRCVIEW.EXE" 'Fenster schließen 'Tastenanschlägen und Pausen WshShell.Sendkeys "%{F4}" WScript.Sleep 200 WshShell.Sendkeys "%{F4}" WScript.Sleep 200 WshShell.Sendkeys "%{F4}" WScript.Sleep 1000 'Abschlußwarnung die Internetverbindung zu schließen L_Warning_MsgBox_Message_Text = "Bitte unten rechts die Internetverbindung trennen!" L_Warning_MsgBox_Title_Text = "Verbindung trennen" Call Warning() ' ***************Ende******* Schau doch noch mal drüber ob jetzt alles seine Richtigkeit hat... (Fehlermeldungen bekomme ich keine ![]() Es flitzen wohl -bei den Kill-Vorgängen- noch die DOS-Fensterchen über den Bildschirm; läßt sich das auch noch abstellen? Mit den 'F4' Anschlägen schließe ich die BrowserFenster die komischerweise geöffnet blieben... Vielen Dank schonmal für Deine hilfe. cu Conny |
|
|
![]() ![]() |
![]() |
Vereinfachte Darstellung | Aktuelles Datum: 18.05.2025 - 7:16 |