Linux_CEWL.vb

Public Class Linux_CEWL
    Private Sub Linux_CEWL_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        If My.Settings.Eng = False Then

            Button1.Text = "Linux aktivieren"
            Button2.Text = "zurück"
            Label1.Text = "Nun können Sie CeWL installieren. Drücken Sie den Button:"
            Label7.Text = "1) Updaten Sie Windows 10 auf den neuesten Stand." & vbNewLine &
                          "2) Gehen Sie in den Windows Store und installieren Sie ""Ubuntu 20.04 LTS"". Es ist kostenlos." & vbNewLine &
                          "3) Jetzt müssen Sie Linux noch aktivieren. Drücken Sie den Button." & vbNewLine &
                          "4) Im Windows-Menü unter ""Start"" finden Sie nun den Eintrag Ubuntu 20.04." & vbNewLine &
                          "5) Starten Sie Ubuntu 20.04 und vergeben Sie einen Username und Passwort."


        End If

    End Sub


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim process As New Process()
        process.StartInfo.FileName = "powershell.exe"
        process.StartInfo.Verb = "runas"
        'process.StartInfo.WorkingDirectory = "c:\windows\system32"
        'process.StartInfo.Arguments = ("-noexit dism.exe /online /enable-feature /featurename:Microsoft-Windows-Subsystem-Linux /all /norestart")
        process.StartInfo.Arguments = ("-noexit Enable-WindowsOptionalFeature -O -F  Microsoft-Windows-Subsystem-Linux")
        process.Start()

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Me.Close()

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        '### Bash Datei schreiben // das Clone Verzeichnis existiert bereits


        Dim Command As String = "#!/bin/bash" & vbNewLine & "sudo -s apt-get update && sudo apt-get install cewl libcurl4-gnutls-dev libxml2 libxml2-dev libxslt1-dev ruby-dev"
        Dim Datei As String = Application.StartupPath + "/Packages/CEWL/cewl.sh"

        System.IO.File.WriteAllText(Datei, Command)

        '### Bash starten mit Root Rechten

        Dim process As New Process()
        process.StartInfo.FileName = "cmd.exe"
        process.StartInfo.WorkingDirectory = Application.StartupPath & "/Packages/CEWL/"
        process.StartInfo.Arguments = ("/k ubuntu2004.exe run sudo -s bash cewl.sh")
        process.Start()



    End Sub
End Class