Add files via upload

Encoding/VideoEncoder.vb

@@ -309,30 +309,45 @@ Public MustInherit Class VideoEncoder
     Shared Function GetDefaults() As List(Of VideoEncoder)
         Dim ret As New List(Of VideoEncoder)
 
+        'StaxRip Configure for Hardware Encoding
+
+        Dim IntelCheck = ProcessHelp.GetStdOut(Package.QSVEnc.Path, "--check-hw")
+        Dim Intelmatch = Regex.Match(IntelCheck, "Error")
+        If Intelmatch.Success Then
+        Else
+            ret.Add(New QSVEnc())
+            Dim intel265 As New QSVEnc()
+            intel265.Params.Codec.Value = 1
+            ret.Add(intel265)
+        End If
+
+        Dim NvidiaCheck = ProcessHelp.GetStdOut(Package.NVEnc.Path, "--check-features")
+        Dim Nvidiamatch = Regex.Match(NvidiaCheck, "Error")
+        If Nvidiamatch.Success Then
+        Else
+            Dim nvidia264 As New NVEnc()
+            ret.Add(nvidia264)
+
+            Dim nvidia265 As New NVEnc()
+            nvidia265.Params.Codec.Value = 1
+            ret.Add(nvidia265)
+        End If
+
+        Dim AmdCheck = ProcessHelp.GetStdOut(Package.VCEEnc.Path, "--check-features")
+        Dim Amdmatch = Regex.Match(AmdCheck, "failed to initialize AMF")
+        If Amdmatch.Success Then
+        Else
+            ret.Add(New VCEEnc())
+            Dim amd265 As New VCEEnc()
+            amd265.Params.Codec.Value = 1
+            ret.Add(amd265)
+        End If
+
         ret.Add(New x264Enc)
         ret.Add(New x265Enc)
 
         ret.Add(New Rav1e)
 
-        Dim nvidia264 As New NVEnc()
-        ret.Add(nvidia264)
-
-        Dim nvidia265 As New NVEnc()
-        nvidia265.Params.Codec.Value = 1
-        ret.Add(nvidia265)
-
-        ret.Add(New QSVEnc())
-
-        Dim intel265 As New QSVEnc()
-        intel265.Params.Codec.Value = 1
-        ret.Add(intel265)
-
-        ret.Add(New VCEEnc())
-
-        Dim amd265 As New VCEEnc()
-        amd265.Params.Codec.Value = 1
-        ret.Add(amd265)
-
         Dim ffmpeg = New ffmpegEnc()