Sub Main()
 
        Dim myIp As String
        For Each IP As System.Net.IPAddress In GetHostAddresses(GetHostName)
            If Regex.IsMatch(IP.ToString, "10.10.") Then
                myIp = IP.ToString
            End If
        Next
 
 
        Dim Anwendung As System.Diagnostics.Process = New _
          System.Diagnostics.Process()
 
        With Anwendung.StartInfo
            .FileName = Environ("COMSPEC")
            .CreateNoWindow = True
            .RedirectStandardInput = True
            .UseShellExecute = False
        End With
 
        Anwendung.Start()
 
        Dim StdIn As System.IO.StreamWriter = Anwendung.StandardInput
        StdIn.WriteLine("@echo off")
        StdIn.WriteLine("c:\temp\iDo.exe " & myIp)
 
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Anwendung.StartInfo.WindowStyle.Hidden()

________________________________________________________________

Du kannst mit deinem Computer ALLES machen was Du willst!
Allerdings musst Du erst herausfinden wie.....
________________________________________________________________

Anwendung.StartInfo.WindowStyle = ProcessWindowStyle.Hidden

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

StdIn.WriteLine("dir c: ")

.CreateNoWindow = True
.WindowStyle = ProcessWindowStyle.Hidden

.WindowStyle = ProcessWindowStyle.Hidden

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles Me.Shown
  Me.Visible = False
End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Public Shared Sub Main()

shell("cmd /c ... "

shell("runas...

System.Diagnostics.Process()

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist