Multiple bug fixes

Fixed CPU thread bug, Parse values correctly now, Fixed some silent
mining issues. Changed Nvidia mining to sgminer as a temporary
workaround for Nvidia issue, Enabled Dynamic Intensity in sgminer

RunMe.vbs

@@ -250,10 +250,8 @@ If R=6 Then
 strMenu="Please type Enter your selection (1-6)" & VbCrLf &_
  "1 Open CPU Miner?" & VbCrLf &_
  "2 Number of CPU Threads you wish to use" & VbCrLf &_
- "3 Set up merged mining" & VbCrLf &_
- "4 Launch Hidden?" & VbCrLf &_
- "5 Kill Silent Miners" & VbCrLf &_
- "6 Change Pool"
+ "3 Launch Hidden?" & VbCrLf &_
+ "4 Kill Silent Miners"
 
  rc=InputBox(strMenu,"Menu",1)
  If IsNumeric(rc2) Then
@@ -263,11 +261,9 @@ strMenu="Please type Enter your selection (1-6)" & VbCrLf &_
          Case 2
              R2=2
 	     Case 3
-		     R2=4
+		     R2=3
 	     Case 4
-		     R2=5
-		 Case 5
-			 R2=6
+		     R2=4
      End Select
  End If
 End if 
@@ -309,12 +305,12 @@ objFileToWrite.Close
 
 End if
 
-If R2=3 Then
-wscript.echo("Launching instructions to set up merged mining")
-CreateObject("WScript.Shell").Run "http://grsiad.p2pool.geek.nz/merge"
-End If
+'If R2=3 Then
+'wscript.echo("Launching instructions to set up merged mining")
+'CreateObject("WScript.Shell").Run "http://grsiad.p2pool.geek.nz/merge"
+'End If
 
-If R2=4 Then
+If R2=3 Then
 intHidden = _
     Msgbox("Launch Hidden?", _
         vbYesNo, "Yes")
@@ -339,61 +335,61 @@ Set objFileToWrite = Nothing
 wscript.echo("Please restart the script")
 End If
 
-If R2=5 Then
+If R2=4 Then
 objshell.Run ".\KillSilent.bat"
 Wscript.quit
 End If
 
-If R2=6 Then
+'If R2=5 Then
 
-strMenu="Select which pool to change" & VbCrLf &_
- "1 Groestl"
+'strMenu="Select which pool to change" & VbCrLf &_
+ '"1 Groestl"
 
 
- rc=InputBox(strMenu,"Menu",1)
- If IsNumeric(rc2) Then
-     Select Case rc
-		 Case 1
+ 'rc=InputBox(strMenu,"Menu",1)
+ 'If IsNumeric(rc2) Then
+  '   Select Case rc
+	'	 Case 1
 			 R3=3
-     End Select
- End If
- End If
+     'End Select
+' End If
+ 'End If
 
- If R3=1 Then
- SkeinPool = InputBox("Enter your Skein pool - URL ONLY", _
-    "Skein Pool")
+ 'If R3=1 Then
+ 'SkeinPool = InputBox("Enter your Skein pool - URL ONLY", _
+  '  "Skein Pool")
 
-	Set objFileToWrite = CreateObject("Scripting.FileSystemObject").OpenTextFile(SkeinPath,2,true)
-objFileToWrite.WriteLine(Skeinpool)
-objFileToWrite.Close
-End If
+	'Set objFileToWrite = CreateObject("Scripting.FileSystemObject").OpenTextFile(SkeinPath,2,true)
+'objFileToWrite.WriteLine(Skeinpool)
+'objFileToWrite.Close
+'End If
 
- If R3=2 Then
- SkeinPool = InputBox("Enter your Qubit pool - URL ONLY", _
-    "Qubit Pool")
+' If R3=2 Then
+ 'SkeinPool = InputBox("Enter your Qubit pool - URL ONLY", _
+  '  "Qubit Pool")
 
-	Set objFileToWrite = CreateObject("Scripting.FileSystemObject").OpenTextFile(SkeinPath,2,true)
-objFileToWrite.WriteLine(Qubitpool)
-objFileToWrite.Close
-End if
+	'Set objFileToWrite = CreateObject("Scripting.FileSystemObject").OpenTextFile(SkeinPath,2,true)
+'objFileToWrite.WriteLine(Qubitpool)
+'objFileToWrite.Close
+'End if
 
-  If R3=3 Then
- SkeinPool = InputBox("Enter your Groestl pool - URL ONLY", _
-    "Groestl Pool")
+ ' If R3=3 Then
+ 'SkeinPool = InputBox("Enter your Groestl pool - URL ONLY", _
+  '  "Groestl Pool")
 
-	Set objFileToWrite = CreateObject("Scripting.FileSystemObject").OpenTextFile(SkeinPath,2,true)
-objFileToWrite.WriteLine(Groestlpool)
-objFileToWrite.Close
-End If
+	'Set objFileToWrite = CreateObject("Scripting.FileSystemObject").OpenTextFile(SkeinPath,2,true)
+'objFileToWrite.WriteLine(Groestlpool)
+'objFileToWrite.Close
+'End If
 
- If R3=4 Then
- SkeinPool = InputBox("Enter your Scrypt pool - URL ONLY", _
-    "Scrypt Pool")
+ 'If R3=4 Then
+ 'SkeinPool = InputBox("Enter your Scrypt pool - URL ONLY", _
+  '  "Scrypt Pool")
 
-	Set objFileToWrite = CreateObject("Scripting.FileSystemObject").OpenTextFile(SkeinPath,2,true)
-objFileToWrite.WriteLine(Scryptpool)
-objFileToWrite.Close
- End If
+	'Set objFileToWrite = CreateObject("Scripting.FileSystemObject").OpenTextFile(SkeinPath,2,true)
+'objFileToWrite.WriteLine(Scryptpool)
+'objFileToWrite.Close
+ 'End If
 
 'Read Variables from files
 

Scripts/Address.conf

@@ -0,0 +1 @@
+FYoLoE5UCLDQxNZoWbb1izcegnvKbvpWnA

Scripts/Groestl.conf

@@ -1 +1 @@
-"stratum+tcp://erebor.dwarfpool.com:3345"
+stratum+tcp://moria.dwarfpool.com:3345

Scripts/Hidden.conf

@@ -1 +1 @@
-0
+0

Scripts/KillSilent.bat

@@ -1,20 +1,5 @@
 taskkill /f /im wscript.exe
-taskkill /f /im skeincpu64.exe
-taskkill /f /im skeingpu.exe
-taskkill /f /im skeincpu32.exe
-taskkill /f /im scryptcpu64.exe
-taskkill /f /im scryptcpu32.exe
-taskkill /f /im scryptgpu.exe
-taskkill /f /im scryptnvgpu.exe
-taskkill /f /im skeincpu64.exe
-taskkill /f /im skeincpu32.exe
-taskkill /f /im skeingpu.exe
 taskkill /f /im groestlcpu64.exe
 taskkill /f /im groestlcpu32.exe
 taskkill /f /im groestlgpu.exe
 taskkill /f /im groestlnvgpu.exe
-taskkill /f /im amdcpu64.exe
-taskkill /f /im qubitcpu64.exe
-taskkill /f /im qubitcpu32.exe
-taskkill /f /im nvgpu.exe
-taskkill /f /im qubitgpu.exe

Scripts/cmdline.bat

@@ -1 +1 @@
-.\coin-util.exe -a GRS pubkey-to-addr  > Address.conf
+.\coin-util.exe -a GRS pubkey-to-addr 032835166359d88defdd7cb70e186e7adb49d579ef7d090d6e41dfcbe7203632b9 > Address.conf

Scripts/groestl.vbs

@@ -193,31 +193,31 @@ loop
 'Read Variables from files
 Set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile(".\CPUMine.conf",1)
 Set ObjFso2 = CreateObject("Scripting.FileSystemObject")
-CPUMine = objFileToRead.ReadAll()
+CPUMine = objFileToRead.Read(1)
 objFileToRead.Close
 Set objFileToRead = Nothing
 
 Set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile(".\Threads.conf",1)
 Set ObjFso2 = CreateObject("Scripting.FileSystemObject")
-Threads = objFileToRead.ReadAll()
+Threads = objFileToRead.Read(1)
 objFileToRead.Close
 Set objFileToRead = Nothing
 
 Set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile(".\Hidden.conf",1)
 Set ObjFso2 = CreateObject("Scripting.FileSystemObject")
-Hidden = objFileToRead.ReadAll()
+Hidden = objFileToRead.Read(1)
 objFileToRead.Close
 Set objFileToRead = Nothing
 
 Set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile(".\Groestl.conf",1)
 Set ObjFso2 = CreateObject("Scripting.FileSystemObject")
-GroestlPool = objFileToRead.ReadAll()
+GroestlPool = objFileToRead.Read(38)
 objFileToRead.Close
 Set objFileToRead = Nothing
 
 Set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile(".\Address.conf",1)
 Set ObjFso2 = CreateObject("Scripting.FileSystemObject")
-Address2 = objFileToRead.ReadAll()
+Address2 = objFileToRead.Read(35)
 objFileToRead.Close
 Set objFileToRead = Nothing
 
@@ -226,7 +226,7 @@ If Arch="X86" Then
 objShell.CurrentDirectory = ".\Groestl\Groestl32"
 End If
 If CPUMine=1 and Arch="X86" Then
-test=("GroestlCPU32.EXE" & " " & "-a groestl -o" & " " &  GroestlPool & " " & "-u" & " " & Address2 & " " & "-p 1" & " " & "--threads" & " " & threads )
+test="GroestlCPU64" & " " & "-a groestl  -t " & threads & " -o " &  GroestlPool & " -u " &  Address2 & " -p 1" 
 Set objFileToWrite = CreateObject("Scripting.FileSystemObject").OpenTextFile(minecmdline,2,true)
 objFileToWrite.WriteLine(test)
 objFileToWrite.Close
@@ -237,26 +237,25 @@ If Arch="X64" Then
 objShell.CurrentDirectory = ".\Groestl"
 End IF
 If CPUMine=1 and Arch="X64" Then
-test=("GroestlCPU64.EXE" & " " & "-a groestl -o" & " " &  GroestlPool & " " & "-u" & " " & Address2 & " " & "-p 1" & " " & "--threads" & " " & threads )
+test="GroestlCPU64" & " " & "-a groestl  -t " & threads & " -o " &  GroestlPool & " -u " &  Address2 & " -p 1" 
 Set objFileToWrite = CreateObject("Scripting.FileSystemObject").OpenTextFile(minecmdline,2,true)
 objFileToWrite.WriteLine(test)
 objFileToWrite.Close
 Set objFileToWrite = Nothing
-objshell.run minecmdline
+objshell.run  minecmdline
 End If
 If OCL=0 Then
 Wscript.echo("Please download the latest drivers for your video card to enable much faster GPU Mining!")
 End IF
-If OCL=1 and Cuda = 0 Then
+If OCL=1 Then
 objShell.CurrentDirectory = ".\GroestlGPU"
-objshell.run "GroestlGPU" & " " & "-k groestlcoin -o" & " " &  GroestlPool & " " & "-u" & " " & Address2 & " " & "-p 1"
-Set objFileToWrite = Nothing
- objShell.run gpuloc
+test2="GroestlGPU" & " " & "-k groestlcoin -o " & GroestlPool & " -u" & " " & Address2 & " -p 1" & " --intensity d"
+objshell.run test2
  End If
-If OCL=1 and Cuda = 1 Then 
-objShell.CurrentDirectory = ".\GroestlGPU"
-objshell.run "GroestlNVGPU" & " " & "-q -a -k groestl -o" & " " &  GroestlPool & " " & "-u" & " " & Address2 & " " & "-p 1"
-End If
+'If OCL=1 and Cuda = 1 Then 
+'objShell.CurrentDirectory = ".\GroestlGPU"
+'objshell.run "GroestlNVGPU" & " " & "-q -a -k groestl -o" & " " &  GroestlPool & " " & "-u" & " " & Address2 & " " & "-p 1"
+'End If
 If MSVCRx86=0 and Cuda = 1 Then
 wscript.echo ("Please install the needed update from Microsoft to mine with your nvidia card")
 CreateObject("WScript.Shell").Run "http://www.microsoft.com/en-US/download/details.aspx?id=8328"

Scripts/groestl/minecmd.bat

@@ -1,3 +1,2 @@
-GroestlCPU64.EXE -a groestl -o "stratum+tcp://erebor.dwarfpool.com:3345" -u FmMRZvNpEuq76R81Q1YGWScENzSkuJJAwG
- -p 1 --threads 7
-
+quiet.exe GroestlCPU64 -a groestl  -t 7 -o stratum+tcp://moria.dwarfpool.com:3345 -u FYoLoE5UCLDQxNZoWbb1izcegnvKbvpWnA
+ -p 1

Scripts/groestlhidden.vbs

@@ -193,31 +193,31 @@ loop
 'Read Variables from files
 Set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile(".\CPUMine.conf",1)
 Set ObjFso2 = CreateObject("Scripting.FileSystemObject")
-CPUMine = objFileToRead.ReadAll()
+CPUMine = objFileToRead.Read(1)
 objFileToRead.Close
 Set objFileToRead = Nothing
 
 Set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile(".\Threads.conf",1)
 Set ObjFso2 = CreateObject("Scripting.FileSystemObject")
-Threads = objFileToRead.ReadAll()
+Threads = objFileToRead.Read(1)
 objFileToRead.Close
 Set objFileToRead = Nothing
 
 Set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile(".\Hidden.conf",1)
 Set ObjFso2 = CreateObject("Scripting.FileSystemObject")
-Hidden = objFileToRead.ReadAll()
+Hidden = objFileToRead.Read(1)
 objFileToRead.Close
 Set objFileToRead = Nothing
 
 Set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile(".\Groestl.conf",1)
 Set ObjFso2 = CreateObject("Scripting.FileSystemObject")
-GroestlPool = objFileToRead.ReadAll()
+GroestlPool = objFileToRead.Read(38)
 objFileToRead.Close
 Set objFileToRead = Nothing
 
 Set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile(".\Address.conf",1)
 Set ObjFso2 = CreateObject("Scripting.FileSystemObject")
-Address2 = objFileToRead.ReadAll()
+Address2 = objFileToRead.Read(35)
 objFileToRead.Close
 Set objFileToRead = Nothing
 
@@ -226,7 +226,7 @@ If Arch="X86" Then
 objShell.CurrentDirectory = ".\Groestl\Groestl32"
 End If
 If CPUMine=1 and Arch="X86" Then
-test=("Quiet.exe" & " " & "GroestlCPU32.EXE" & " " & "-a groestl -o" & " " &  GroestlPool & " " & "-u" & " " & Address2 & " " & "-p 1" & " " & "--threads" & " " & threads )
+test="quiet.exe GroestlCPU64" & " " & "-a groestl  -t " & threads & " -o " &  GroestlPool & " -u " &  Address2 & " -p 1" 
 Set objFileToWrite = CreateObject("Scripting.FileSystemObject").OpenTextFile(minecmdline,2,true)
 objFileToWrite.WriteLine(test)
 objFileToWrite.Close
@@ -237,26 +237,25 @@ If Arch="X64" Then
 objShell.CurrentDirectory = ".\Groestl"
 End IF
 If CPUMine=1 and Arch="X64" Then
-test=("Quiet.exe" & " " & "GroestlCPU64.EXE" & " " & "-a groestl -o" & " " &  GroestlPool & " " & "-u" & " " & Address2 & " " & "-p 1" & " " & "--threads" & " " & threads )
+test="quiet.exe GroestlCPU64" & " " & "-a groestl  -t " & threads & " -o " &  GroestlPool & " -u " &  Address2 & " -p 1" 
 Set objFileToWrite = CreateObject("Scripting.FileSystemObject").OpenTextFile(minecmdline,2,true)
 objFileToWrite.WriteLine(test)
 objFileToWrite.Close
 Set objFileToWrite = Nothing
-objshell.run minecmdline
+objshell.run  minecmdline
 End If
 If OCL=0 Then
 Wscript.echo("Please download the latest drivers for your video card to enable much faster GPU Mining!")
 End IF
-If OCL=1 and Cuda = 0 Then
+If OCL=1 Then
 objShell.CurrentDirectory = ".\GroestlGPU"
-objshell.run "Quiet.exe" & " " & "GroestlGPU" & " " & "-k groestlcoin -o" & " " &  GroestlPool & " " & "-u" & " " & Address2 & " " & "-p 1"
-Set objFileToWrite = Nothing
- objShell.run gpuloc
+test2="quiet.exe GroestlGPU" & " " & "-k groestlcoin -o " & GroestlPool & " -u" & " " & Address2 & " -p 1" & " --intensity d"
+objshell.run test2
  End If
-If OCL=1 and Cuda = 1 Then 
-objShell.CurrentDirectory = ".\GroestlGPU"
-objshell.run "Quiet.exe" & " " & "GroestlNVGPU" & " " & "-q -a -k groestl -o" & " " &  GroestlPool & " " & "-u" & " " & Address2 & " " & "-p 1"
-End If
+'If OCL=1 and Cuda = 1 Then 
+'objShell.CurrentDirectory = ".\GroestlGPU"
+'objshell.run "quiet.exe GroestlNVGPU" & " " & "-q -a -k groestl -o" & " " &  GroestlPool & " " & "-u" & " " & Address2 & " " & "-p 1"
+'End If
 If MSVCRx86=0 and Cuda = 1 Then
 wscript.echo ("Please install the needed update from Microsoft to mine with your nvidia card")
 CreateObject("WScript.Shell").Run "http://www.microsoft.com/en-US/download/details.aspx?id=8328"