Man kann mit dem WScript-Objekt die einer Anwendung übergebenen Parameter ermitteln. Das ist sinnvoll, um z.B. eine Anwendung nur im Hintergrund laufen zu lassen, oder um sie aus einem anderen Programm heraus direkt mit Werten zu "füttern", damit sie keine Eingaben vom Anwender erwartet. Um die Argumente/Parameter zu bekommen kann man bspw. nachfolgendes VB-Skript verwenden. Erstellen Sie eine Textdatei GetArgs.vbs mit folgendem Inhalt: Dim listArgs Dim Arg Dim fso Dim WScriptShell Dim File Set fso = CreateObject("Scripting.FileSystemObject") Set WScriptShell = CreateObject("WScript.Shell") Set listArgs = WScript.Arguments Set File = fso.CreateTextFile("Args.txt") For Each Arg In listArgs File.WriteLine Arg Next WScriptShell.Run ("Anwendung.exe") Damit ist die VB-Script-Datei fertig. ' 'Controls: List1, Listbox ' Verweise: Microsoft Scripting Runtime Private Sub Form_Load() Dim fso As New FileSystemObject Dim Stream As TextStream Dim ArgArray() As String Dim nCount As Long If fso.FileExists(App.Path & "\Args.txt") Then Set Stream = fso.OpenTextFile(App.Path & "\Args.txt") Do While Stream.AtEndOfStream = False DoEvents nCount = nCount + 1 ReDim Preserve ArgArray(nCount) ArgArray(nCount - 1) = Stream.ReadLine List1.AddItem ArgArray(nCount - 1) Loop Stream.Close fso.DeleteFile App.Path & "\Args.txt" End If End Sub Zum Starten müssen Sie das Projekt kompilieren und als Anwendung.exe in das Verzeichnis kopieren, in dem die VB-Script-Datei "GetArgs.vb" liegt. Das Übergeben von Argumenten können Sie entweder mit: " ("<Verzeichnis>" ist der Ordner, in dem die die Dateien Anwendung.exe und GetArgs.vbs liegen) " Es geht aber auch über die Eingabeaufforderung: ' Verweise: Windows Script Host Object Model Dim WscriptShell As New WshShell WscriptShell.Run "C:\GetArgs.vbs DasErsteArgument " & Chr(34) & _ "Das zweite Argument" & Chr(34) Chr(34) ist das Zeichen " (man muss es mit Chr(34) in den String einbinden, weil es bei VB das Ende oder den Anfang eines Strings darstellt) Dieser Tipp wurde bereits 15.503 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
vb@rchiv CD Vol.6 Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. sevOutBar 4.0 Vertikale Menüleisten á la Outlook Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m. |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |