VB6 to Vb.Net convert below error

Question

0.00/5 (No votes)

See more:

Dear All,
VB6 to VB.Net convert the project below error display
Value of type 'Project1.Module1.SECURITY_ATTRIBUTES' cannot be converted to 'String'.

"sa" error how to clear error

Coding

VB

Public Sub ExecAndCapture(ByVal sCommandLine As String, ByRef txt As String, Optional ByVal sStartInFolder As String = vbNullString)

        Const BUFSIZE As Integer = 1024 * 10
        Dim hPipeRead As Integer
        Dim hPipeWrite As Integer
        Dim sa As SECURITY_ATTRIBUTES
        Dim si As STARTUPINFO
        Dim pi As PROCESS_INFORMATION
        Dim baOutput(BUFSIZE) As Byte
        Dim sOutput As String
        Dim lBytesRead As Integer

        With sa
            .nLength = Len(sa)
            .bInheritHandle = 1 ' get inheritable pipe handles
        End With 'SA

        'UPGRADE_WARNING: Couldn't resolve default property of object sa. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
        If CreatePipe(hPipeRead, hPipeWrite, sa, 0) = 0 Then  
             Exit Sub
        End If

        With si
            .cb = Len(si)
            .dwFlags = STARTF_USESHOWWINDOW Or STARTF_USESTDHANDLES
            .wShowWindow = SW_HIDE ' hide the window
            .hStdOutput = hPipeWrite
            .hStdError = hPipeWrite
        End With 'SI
        sCommandLine = sCommandLine & " " & txt
        Dim mystr As String

        If CreateProcess(vbNullString, sCommandLine, 0, 0, 1, 0, 0, sStartInFolder, si, pi) Then
            Call CloseHandle(hPipeWrite)
            Call CloseHandle(pi.hThread)
            hPipeWrite = 0
            Sleep((1000))
            Do
                System.Windows.Forms.Application.DoEvents()
                If ReadFile(hPipeRead, baOutput(0), BUFSIZE, lBytesRead, 0) = 0 Then
                    Exit Do
                End If
                'UPGRADE_ISSUE: Constant vbUnicode was not upgraded. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="55B59875-9A95-4B71-9D6A-7C294BF7139D"'
                sOutput = Left(StrConv(System.Text.UnicodeEncoding.Unicode.GetString(baOutput), unicode), lBytesRead)
                mystr = sOutput
            Loop

            Call CloseHandle(pi.hProcess)
        End If
        ' MsgBox(mystr)
        ' To make sure...
        Call CloseHandle(hPipeRead)
        Call CloseHandle(hPipeWrite)
        'line coding missing

        FileOpen(4, "d:\temp\fix1.txt", OpenMode.Output)
        PrintLine(4, mystr)
        FileClose(4)
    End Sub

Posted 8-Apr-14 0:15am

Member 10420597

Updated 8-Apr-14 2:29am

S Houghtelin

v3

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

S Houghtelin · Answer 1 · 2014-04-08T02:15:00

I am revising this answer because there is a method that does not require bringing in old VB6 libraies.

Your time may well be better spent learning .NET System.IO.Pipes. System.IO.Pipes Namespace[^]

There is an example here: NamedPipeClientStream Class[^]

If you insist on attempting to force the method you have now, you may experiment with the SECURITY_ATTRIBUTES member types. You are likely getting hung on the lpSecurityDescriptor attribute.

I have seen C++ code that sets all the attributes to a long type. I've also read a suggestion to use the variant type as well. (The only time I use variant is to find which way VB.NET will cast a type to determine which type I could use and change it to that type if it works.)

A C++ version sets the sa attributes thus: (Converted to VB)

VB

With sa
    .nLength = Len(sa)
    .bInheritHandle = True ' get inheritable pipe handles
    .lpSecurityDescriptor = vbNull  ' Use default ACL
End With 'SA

Good luck.

You need to create the structures yourself.

Try adding a module to your project and place the following code into it.

VB.NET

Imports System.Runtime.InteropServices Imports System.Security.Permissions Imports System.Reflection Module Module1 <StructLayout(LayoutKind.Sequential)> _ Public Structure PROCESS_INFORMATION Public hProcess As IntPtr Public hThread As IntPtr Public dwProcessID As UInteger Public dwThreadID As UInteger End Structure 'PROCESS_INFORMATION <StructLayout(LayoutKind.Sequential)> _ Public Structure SECURITY_ATTRIBUTES Public nLength As Integer Public lpSecurityDescriptor As IntPtr Public bInheritHandle As Boolean End Structure 'SECURITY_ATTRIBUTES <StructLayout(LayoutKind.Sequential)> _ Public Structure STARTUPINFO Public cb As UInteger Public lpReserved As String Public lpDesktop As String Public lpTitle As String Public dwX As UInteger Public dwY As UInteger Public dwXSize As UInteger Public dwYSize As UInteger Public dwXCountChars As UInteger Public dwYCountChars As UInteger Public dwFillAttribute As UInteger Public dwFlags As UInteger Public wShowWindow As Short Public cbReserved2 As Short Public lpReserved2 As IntPtr Public hStdInput As IntPtr Public hStdOutput As IntPtr Public hStdError As IntPtr End Structure 'STARTINFO <DllImport("kernel32.dll")> _ Function CreateProcess( _ ByVal lpApplicationName As String, _ ByVal lpCommandLine As String, _ ByVal lpProcessAttributes As IntPtr, _ ByVal lpThreadAttributes As IntPtr, _ ByVal bInheritHandles As Boolean, _ ByVal dwCreationFlags As UInteger, _ ByVal lpEnvironment As IntPtr, _ ByVal lpCurrentDirectory As String, _ ByRef lpStartupInfo As STARTUPINFO, _ ByRef lpProcessInformation As PROCESS_INFORMATION) As Boolean End Function End Module
I assume you have all the API function calls generted for your code above.

Good luck.