AppCrash консольного приложения при чтении с него средствами vbs

@hristofernando · Регистрация: 23.03.2014

Author24 — интернет-сервис помощи студентам

Доброго времени суток форумчане! есть маткад он использует vbs и есть консоль на vb.net вызывающая api функции другой проги

код консоли

Кликните здесь для просмотра всего текста

VB.NET

Public swapp As SldWorks
Public SWID As Integer
...
While True
Dim apver As String = Console.ReadLine()
...
ElseIf ((apver = "swrun") And (Process.GetProcessesByName("SLDWORKS").Count = 0)) Then
                swapp = CreateObject("SldWorks.Application")
                swapp.Visible = True
                SWID = swapp.GetProcessID
                AppActivate(SWID)
                Console.WriteLine("run")
ElseIf ((apver = "swrun") And (Process.GetProcessesByName("SLDWORKS").Count <> 0)) Then
                swapp = System.Activator.CreateInstance(System.Type.GetTypeFromProgID("SldWorks.Application")); 
                SWID = swapp.GetProcessID
                AppActivate(SWID)
                Console.WriteLine("get")
ElseIf  ...
...
End While

и скрипт vbs

Кликните здесь для просмотра всего текста

Visual Basic

Dim WshExec
Dim strFromProc
 
Set WshShell = CreateObject("WScript.Shell")
Set WshExec = WshShell.Exec("%USERNAME%\Desktop\SolidWorksApi.exe")
 
    WshExec.StdIn.WriteLine ("swrun")
    strFromProc = WshExec.StdOut.ReadLine()
    WScript.Echo strFromProc

когда скрипт получает ответ то происходит аппкраш консоли подскажите плиз где ошибка?
спасибо.

Добавлено через 5 минут
если вписывать вручную аппкраш не происходит

@hristofernando · 19.08.2015, 15:43 **[ТС]**

вот пример консоли

VB.NET

Module Module1
 
    Sub Main()
        While True
            Dim w As String = Console.ReadLine()
            Dim substr As String = LCase(w)
            Dim strnum As Integer = substr.Length
            If (w = "1") Then
                Console.WriteLine(w)
            ElseIf (strnum > 6) Then
                If ((substr.Substring(0, 6) = "111111") And (substr.Substring(6, 1) = "/")) Then
                    Console.WriteLine(substr.Substring(0, 6))
                ElseIf ((substr.Substring(0, 6) = "222222") And (substr.Substring(6, 1) = "/")) Then
                    Console.WriteLine(substr.Substring(0, 6))
                End If
            Else
                Console.WriteLine("22")
            End If
        End While
    End Sub
 
End Module

скрипт тот же при запуске скрипта

AppCrash консольного приложения при чтении с него средствами vbs

@Замабувараев · 20.08.2015, 02:03

Всё просто.
Когда вбскрипт прекращает работу, то закрывается стандартный поток вывода. В этом случае функция Console.ReadLine() вернёт Nothing.
Чтобы избежать этого, необходимо возвращаемую строку проверить на пустоту, и только когда она не пуста, производить с ней действия.

VB.NET

Dim w As String = Console.ReadLine()
If Not String.IsNullOrEmpty(w) Then
    ' сделать что‐нибудь
End If

@hristofernando · 20.08.2015, 10:55 **[ТС]**

Замабувараев спасибо за ответ! и subвопрос почему консоль после отработки скрипта не на что не реагирует?

VB.NET

Dim w As String = Console.ReadLine()
If Not String.IsNullOrEmpty(w) Then
    ' сделать чтовЂђнибудь
Else
                Continue While
End If

@Замабувараев · 21.08.2015, 06:37

Сообщение от hristofernando

почему консоль после отработки скрипта не на что не реагирует?

Потому что файловый поток, откуда консольная программа получала данные, закрылся при завершении скрипта. Функция Console.ReadLine() всегда будет возвращать Nothing.
Нужно завершать программу.

@hristofernando · 21.08.2015, 14:24 **[ТС]**

Сообщение от Замабувараев

Нужно завершать программу

- этого и не хотел делать иначе закрыл бы ее в скрипте до получения Nothing.

@Замабувараев COM‐пропагандист 859 / 768 / 147 Регистрация: 18.12.2014 Сообщений: 2,195 Записей в блоге: 4
	21.08.2015, 06:37	5
	Сообщение от hristofernando почему консоль после отработки скрипта не на что не реагирует? Потому что файловый поток, откуда консольная программа получала данные, закрылся при завершении скрипта. Функция Console.ReadLine() всегда будет возвращать Nothing. Нужно завершать программу. 0

@hristofernando 31 / 31 / 4 Регистрация: 23.03.2014 Сообщений: 180
	21.08.2015, 14:24 [ТС]	6
	Сообщение от Замабувараев Нужно завершать программу - этого и не хотел делать иначе закрыл бы ее в скрипте до получения Nothing. 0