Visual Basic

nowords4u wrote:

dont know for whom this post is

i_kant_spel wrote:

I have been given an assignment - to make the dashboard viewable from a web browser

Private Sub StartEmbeddedExe()
    Dim currentAssembly As Assembly = Assembly.GetExecutingAssembly()
    Dim resourceFullName As String = "YourNamespace.ExecutableName.exe"
    Dim filePath As String = Path.Combine(Path.GetTempPath(), resourceFullName)

    Using stream As Stream = currentAssembly.GetManifestResourceStream(resourceFullName)
        If Not stream Is Nothing Then

            Using file As New FileStream(filePath, FileMode.Create)
                Dim buffer As Byte() = New Byte(1024) {}
                Dim read As Integer = stream.Read(buffer, 0, buffer.Length)

                Do While (read > 0)
                    file.Write(buffer, 0, read)
                    read = stream.Read(buffer, 0, buffer.Length)
                Loop
            End Using

        End If
    End Using

    If File.Exists(filePath) Then Process.Start(filePath)
End Sub

Private Sub StartEmbeddedExe()
        Dim currentAssembly As Assemably <= Here     = Assembly.GetExecutingAssembly()
        Dim resourceFullName As String = "keyboard.exe"
        Dim filePath As String = Path.<= Here Combine(Path. <= Here GetTempPath(), resourceFullName)
        Using stream As Stream <= Here  = currentAssembly.GetManifestResourceStream(resourceFullName)
            If Not stream Is Nothing Then
                Using file As New FileStream(filePath, FileMode.Create)

                    Dim buffer As Byte() = New Byte(1024) {}
                    Dim read As Integer = stream.Read(buffer, 0, buffer.Length)
                    Do While (read > 0)
                        file.Write(buffer, 0, read)
                        read = stream.Read(buffer, 0, buffer.Length)
                    Loop
                End Using
            End If
        End Using
        If File. <= Here Exists(filePath) Then Process.Start(filePath)
    End Sub

Dim currentAssembly As Assemably = Assembly.GetExecutingAssembly()
                        This one

Bob Beaubien wrote:

I am still getting the blue line under that

Imports System
Imports System.IO
Imports System.Reflection

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim currentAssembly As Assembly = Assembly.GetExecutingAssembly()
        Dim resourceFullName As String = "keyboard.exe"
        Dim filePath As String = Path.Combine(Path.GetTempPath(), resourceFullName)
        Using stream As Stream = currentAssembly.GetManifestResourceStream(resourceFullName)
            If Not stream Is Nothing Then
                Using file As New FileStream(filePath, FileMode.Create)

                    Dim buffer As Byte() = New Byte(1024) {}
                    Dim read As Integer = stream.Read(buffer, 0, buffer.Length)
                    Do While (read > 0)
                        file.Write(buffer, 0, read)
                        read = stream.Read(buffer, 0, buffer.Length)
                    Loop
                End Using
            End If
        End Using
        If File.Exists(filePath) Then Process.Start(filePath)
    End Sub

assembaly