![]() |
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: [ 342 ]
|
|
|