Tipp 0199 VBScript erstellen und ausführen
Autor/Einsender:
Datum:
  Michael Werner
26.03.2010
Entwicklungsumgebung:   VB.Net 2008
Framework:   2.0
Dieser Tipp zeigt, wie ein VBScript mit Visual Basic erstellt und ausgeführt werden kann. Auf die gleiche Weise können auch Batches (.bat) oder andere Scripte angelegt und ausgeführt werden.
Im Beispiel wird im aktuellen Verzeichnis der exe-Datei (CurrentDirectory) eine VBS-Datei erstellt, Code eingefügt und die VBS-Datei dann ausgeführt.
 
Imports System.Environment  ' CurrentDirectory und NewLine
Imports System.Text         ' StringBuilder und Encoding

  Private vbsFile As String = CurrentDirectory & "/testScript.vbs"

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e _
    As System.EventArgs) Handles MyBase.Load
     ' VBScript (Beispiel)
    TextBox1.Text = "set wshshell =
       CreateObject(""WScript.Shell"")" & NewLine & "wshshell.run _
          ""http://www.zaack.de/Default.aspx?tabid=140"""
  End Sub

  Private Sub btnExecute_Click(ByVal sender As System.Object, _
     ByVal e As System.EventArgs) Handles btnExecute.Click
      ' Script erstellen
    Dim vbsCode As New System.Text.StringBuilder
      ' Alle Textzeilen in einen StringBuilder laden
    For Each line As String In TextBox1.Lines
      With vbsCode
        .AppendLine(line)
      End With
    Next
     ' Die VBS-Datei mit dem Code erstellen
    My.Computer.FileSystem.WriteAllText(vbsFile, _
       vbsCode.ToString, False, Encoding.Default)
    Try
       'Das VB-Script ausführen
      Process.Start(vbsFile)
    Catch ex As Exception
      MessageBox.Show(ex.Message)
    End Try
  End Sub
 

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (17 kB) Downloads bisher: [ 255 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Freitag, 3. Dezember 2011