Automatische Treiberinstallation mit VB.NET

Imports System.ComponentModel

Public Class FindDriverAndInstall


    Private Sub FindDriverAndInstall_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        'Startbutton ausblenden  
        btnStart.Visible = False

        'Silent oder nicht silent  
        If System.IO.File.Exists("silent.txt") Then  
            Dim silent As String = System.IO.File.ReadAllText("silent.txt")  
            If silent = "yes" Then  
                'SILENT = JA  
                'Unbekannte Geraete finden und installieren  
                FindFilesAndInstall()
                'Form schliessen  
                CloseFormSilent()
            Else
                'SILENT = NEIN  
                'Unbekannte Geraete finden und installieren  
                lblStatus.Text = ""  
                btnStart.Visible = True
            End If
        Else
            'wenn silent.txt nicht verfuegbar, dann silent installieren  

            'Unbekannte Geraete finden und installieren  
            FindFilesAndInstall()
            'Form schliessen  
            CloseFormSilent()
        End If

    End Sub



    Public Function FindFilesAndInstall()


        'Windows Treiber-Sicherheitsfragen deaktivieren  
        Dim disableDriversignation1 As Process
        disableDriversignation1 = System.Diagnostics.Process.Start("C:\Windows\System32\BCDEDIT.exe", "/Set LoadOptions DDISABLE_INTEGRITY_CHECKS")  
        disableDriversignation1.WaitForExit()
        'Windows Treiber-Sicherheitsfragen deaktivieren  
        Dim disableDriversignation2 As Process
        disableDriversignation2 = System.Diagnostics.Process.Start("C:\Windows\System32\BCDEDIT.exe", "/Set TESTSIGNING ON")  
        disableDriversignation2.WaitForExit()



        'Forma anzeigen  
        Me.Show()
        Me.Visible = True

        'Auslesen wo Treiber liegen  
        Dim folder = System.IO.File.ReadAllText("folder.txt")  

        'Alle Unterordner nach setup.inf durchsuchen und in Array schreiben  
        Dim FindFilesInFolder As String() = System.IO.Directory.GetFiles(folder, "*.inf", IO.SearchOption.AllDirectories)  

        'Zaehlen wie viele Eintraege das Array hat  
        Dim counter = FindFilesInFolder.Count()

        'Progressbar einstellen  
        ProgressBar1.Maximum = counter
        ProgressBar1.Step = 1
        SendMessage(ProgressBar1.Handle, 1040, 3, 0)

        'Zaehler auf 0 setzen  
        Dim index As Integer = 0

        'Maus aktivieren  
        Me.Cursor = New Cursor(Cursor.Current.Handle)

        'Bildschirmaufloesung berechnen  
        Dim desktopSize As Size
        desktopSize = System.Windows.Forms.SystemInformation.PrimaryMonitorSize
        Dim height As Integer = desktopSize.Height / 2
        Dim width As Integer = desktopSize.Width / 2

        'silent ja oder nein   
        Dim silent As String = System.IO.File.ReadAllText("silent.txt")  

        Do
            'Progressbar erhoehen  
            ProgressBar1.Value = index

            'Treiber einbinden und installieren  
            Dim oProcess As Process
            oProcess = System.Diagnostics.Process.Start("C:\Windows\System32\pnputil.exe", " -i -a " + FindFilesInFolder(index))  

            'Bei Fehler weitermachen  
            On Error Resume Next

            ''Silent yes OR no  
            'If silent = "yes" Then  
            '    'Warnmeldungen wegklicken (unsigned Driver)  
            '    Cursor.Position = New Point(width, height)  
            '    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)  'Damit wird die linke Maustaste gedrückt  
            '    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)  'Damit wird die linke Maustaste losgelassen  
            'End If  

            'Auf fertigstellung warten  
            oProcess.WaitForExit()

            'Bei Fehler weitermachen  
            On Error Resume Next

            'Zaehler hochsetzen  
            index += 1

            'solange bis index gleich groeße des arrays  
        Loop Until index = counter



        'Windows Treiber-Sicherheitsfragen aktivieren  
        Dim enableDriversignation1 As Process
        enableDriversignation1 = System.Diagnostics.Process.Start("C:\Windows\System32\BCDEDIT.exe", "/Set LoadOptions EENABLE_INTEGRITY_CHECKS")  
        enableDriversignation1.WaitForExit()
        'Windows Treiber-Sicherheitsfragen aktivieren  
        Dim enableDriversignation2 As Process
        enableDriversignation2 = System.Diagnostics.Process.Start("C:\Windows\System32\BCDEDIT.exe", "/Set TESTSIGNING OFF")  
        enableDriversignation2.WaitForExit()



        'Status setzen  
        lblStatus.Text = "Success"  

        'ProgressBar auf gruen setzen  
        SendMessage(ProgressBar1.Handle, 1040, 1, 0)

    End Function



    Public Function CloseFormSilent()

        'reeboot  

        If System.IO.File.Exists("reboot.txt") Then  


            'Reboot.txt auslesen  
            Dim reboot As String = System.IO.File.ReadAllText("reboot.txt")  
            'Reboot  
            If reboot = "yes" Then Shell("shutdown /r /t 2")  
            'Form close  
            Shell("TASKKILL /F /IM AutomaticDriverInstall.exe")  


        Else
            'Form close  
            Shell("TASKKILL /F /IM AutomaticDriverInstall.exe")  
        End If


    End Function



    Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click
        'Status setzen  
        lblStatus.Text = "Running"  

        'Button ausblenden und ProgressBar einblenden  
        btnStart.Visible = False

        'Treiber einbinden und installieren  
        FindFilesAndInstall()

        'Progressbar 99% + 1%  
        ProgressBar1.Value += 1

        'Meldung fuer erfolgreich  
        MsgBox("Die Treiberinstallation wurde abgeschlossen.")  
    End Sub



    'Progressbar Farbe aendern  
    Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer  


    'Mauszeiger_Click  
    Public Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)  
    Private Const MOUSEEVENTF_LEFTDOWN = &H2
    Private Const MOUSEEVENTF_LEFTUP = &H4


End Class