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.543 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. |
sevISDN 1.0 Überwachung aller eingehender Anrufe! Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung sevZIP40 Pro DLL Zippen und Unzippen wie die Profis! Mit nur wenigen Zeilen Code statten Sie Ihre Anwendungen ab sofort mit schnellen Zip- und Unzip-Funktionen aus. Hierbei lassen sich entweder einzelnen Dateien oder auch gesamte Ordner zippen bzw. entpacken. |
||||||||||||||||
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. |