1 Тема от Adminus

  • Adminus
  • Участник
  • Неактивен

Тема: VBS:как полученные данные из VBS вставить в windows form

Доброе время суток.
Есть VBS код который выдает данные одну строчку
Можно ли как нибудь передать полученные данные в Windows form  Написанный на VB.net 2013?
или как нибудь запустить из проекта скрип и передать их в форму?

2 Ответ от mozers

  • mozers
  • Разработчик
  • Неактивен

Re: VBS:как полученные данные из VBS вставить в windows form

form.vb

Imports System.Windows.Forms
Imports System.Diagnostics
Public Class WinForm
    Inherits System.Windows.Forms.Form
    Private btn As New Button()
    Public Sub New()
        MyBase.New()
        MyBase.Topmost = True
        MyBase.Text = "Запуск скрипта из VB.NET"
        btn.Dock = DockStyle.Fill
        btn.Text = "Нажмите для запуска скрипта"
        AddHandler btn.Click, AddressOf btn_Click
        MyBase.Controls.Add(btn)
        MyBase.Show()
    End Sub
    Public Sub btn_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim proc As New Process()
        With proc
            .StartInfo.FileName = "cscript.exe"
            .StartInfo.Arguments = "/nologo script.vbs"
            .StartInfo.WindowStyle = ProcessWindowStyle.Hidden
            .StartInfo.RedirectStandardOutput = True
            .StartInfo.UseShellExecute = False
            .StartInfo.CreateNoWindow = True
            .Start()
        End With
        btn.Text = proc.StandardOutput.ReadToEnd()
    End Sub
    Public Shared Sub Main()
        System.Windows.Forms.Application.Run(New WinForm())
    End Sub
End Class

script.vbs

WScript.Echo "Output to " & WScript.ScriptFullName

Я только удивляюсь: Неужели в VB.NET нельзя напрямую получить то, что выдает VBS скрипт ???

https://html-applications.bitbucket.io
https://scite-ru.bitbucket.io