Scriptle hızlıca SLI ve 3DVision Açma/Kapama

TimFx

Yüzbaşı

984 Mesaj

Tüm Başarılarını Gör

Kendi sistemim için oluşturduğum kodu paylaşıyorum. Kod üzerinde değişiklik yaparak sisteminize uyarlayabilirsiniz.
Türkçe Nvidia Paneline göre yazılmıştır (çünkü Nvidia hotkeys'ler dile göre değişiyor.)
Test ettiğim sistem windows 10 x64 . Sorumluluk size aittir.

Scriptin amacı SLI ve 3Dvision ozelliklerini hızlıca açıp kapayabilmek. Kullananlar bilir, SLI'ın oyun oynamadığınız zamanlarda açık kalması gereksiz güç tüketimi ve ısı artışına neden olur. Benzer durum 3DVision içinde geçerli. Fakat her oyun oynamadan önce Nvidia panelini açıp bu özellikleri değiştirmek çok can sıkıcı olabiliyor. Çünkü Nvidia paneli çok seri çalışmıyor. Zaman zaman SLI geçişini yapabilmek için sizden bazı programları kapatmanızı isteyebiliyor. Buda sizi her seferinde bu kadar uğraşmamak için SLI'yi hiç kapatmamaya itiyor olabilir. Uzun lafın kısası aşağıdaki scripti kendi pc'nize gore ayarlayıp. Tek tıkla SLI'yi açıp kapatabilirsiniz.

NoT: KillProcess fonksiyonu SLI geçişine mani olabilecek yazılımları kapatıyor. O kısmı kendi bilgisayarınıza gore yeniden yazın. Mesela ben spotify kullanıyorum kapatılacak uygulama listesinde spotify.exe bu yuzden var. Aşağıdaki videoya bakarsanız daha aydınlatıcı olur

Kodları Notepad gibi bir editore yapıştırıp .vbs uzantısı ile kaydedin.

Logitech Gaming Software, Sound Blaster Z-Series Control Panel, MSIAfterburner gibi yazılımlar kullanmıyorsanız ,kodun en altındaki o kısımları silin. (logitec klavyem ve farem düzgün calışsın diye uygulamayı yenıden başlatıyorum. )

SLI Aç/kapa

 
  '  KILL APPLICATION FOR SLI 
   
  Set WshShell = CreateObject("WScript.Shell") 
  Function KillProcess(strProcessName) 
  	Dim oProcess 
  	KillProcess = False 
  	For Each oProcess in GetObject("winmgmts:").InstancesOf("Win32_Process") 
  		If InStr(UCase(strProcessName), UCase(oProcess.Name)) <> 0 Then 
  			oProcess.Terminate() 
  			KillProcess = True 
  			Exit Function 
  		End If 
  	Next 
  End Function 
   
  KillProcess("nvcplui.exe") 
  KillProcess("MSIAfterburner.exe") 
  KillProcess("LCore.exe") 
  KillProcess("chrome.exe") 
  KillProcess("calculator.exe") 
  KillProcess("Video.UI.exe") 
  KillProcess("plugin-contanier.exe") 
  KillProcess("microsoftedge.exe") 
  KillProcess("microsoftedgecp.exe") 
  KillProcess("firefox.exe") 
  KillProcess("spotify.exe") 
  KillProcess("SplashProEx.exe") 
  KillProcess("sbz.exe") 
  KillProcess("IEXPLORE.EXE") 
  KillProcess("whatsNew.Store.EXE") 
  KillProcess("backgroundtaskhost.exe") 
  KillProcess("time.exe") 
  KillProcess("HxCalendarAppImm.exe") 
   
  '  REGISTER KEY FOR NVIDIA LAST PAGE.(SLI) 
  Const HKEY_CURRENT_USER = &H80000001 
  Set objRegistry = _ 
     GetObject("Winmgmts:root\default:StdRegProv") 
   
  strPath = "SOFTWARE\NVIDIA Corporation\NVControlPanel2\Client" 
  uBinary = Array(174,19,241,200,201,162,203,71,141,174,147,118,198,70,101,173) 
  Return = objRegistry.SetBinaryValue(HKEY_CURRENT_USER, _ 
     strPath, _ 
     "LastPage", _ 
     uBinary) 
   
  If (Return = 0) And (Err.Number = 0) Then 
     ' Wscript.Echo "Binary value added successfully" 
  Else 
      Wscript.Echo "Cannot Write to the Registry Key." 
  	WScript.Quit(0) 
  End If 
   
   
  ' START NVIDIA PANEL 
  WshShell.Run("""c:\Program Files\NVIDIA Corporation\Control Panel Client\nvcplui.exe""") 
   
  ' READ REGISTER KEY FOR SLI ON/OFF  
  strComputer = "."  
  Set regObj=GetObject( _  
      "winmgmts:{impersonationLevel=impersonate}!\\" & _ 
     strComputer & "\root\default:StdRegProv") 
    
  strKeyPath = "SOFTWARE\NVIDIA Corporation\NVControlPanel2\RegisteredServers\GamesConfigServer" 
  strValueName = "AllowSliMosaicStatus" 
  Return = regObj.GetDWORDValue (HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue)  & dwValue   
   If (Return = 0) And (Err.Number = 0) Then   	 
   'SLI ON 
  	WScript.Sleep(1000) 
  	WshShell.SendKeys("%r") 
  Else 
   'SLI OFF  
  	WScript.Sleep(1000) 
  	WshShell.SendKeys("%v")	 
  End If 
   
  WScript.Sleep(1000) 
  WshShell.SendKeys("%g") 
  WScript.Sleep(5000) 
  WshShell.SendKeys("%{F4}") 
  WScript.Sleep(1000) 
  WshShell.Run("""C:\Program Files\Logitech Gaming Software\LCore.exe""") 
  WScript.Sleep(2000) 
  WshShell.SendKeys("%{F4}") 
  WScript.Sleep(1000) 
  WshShell.run """C:\Program Files (x86)\Creative\Sound Blaster Z-Series\Sound Blaster Z-Series Control Panel\sbz.exe"" /r" 
  WScript.Sleep(1000) 
  WshShell.Run("""C:\Program Files (x86)\MSI Afterburner\MSIAfterburner.exe""") 
   
  WScript.Quit(0)

SLI + 3D Vision Aç/kapa

If Not WScript.Arguments.Named.Exists("elevate") Then 
    CreateObject("Shell.Application").ShellExecute WScript.FullName _ 
      , WScript.ScriptFullName & " /elevate", "", "runas", 1 
    WScript.Quit 
  End If 
   
   
  '  KILL APPLICATION FOR SLI 
   
  Set WshShell = CreateObject("WScript.Shell") 
  Function KillProcess(strProcessName) 
  	Dim oProcess 
  	KillProcess = False 
  	For Each oProcess in GetObject("winmgmts:").InstancesOf("Win32_Process") 
  		If InStr(UCase(strProcessName), UCase(oProcess.Name)) <> 0 Then 
  			oProcess.Terminate() 
  			KillProcess = True 
  			Exit Function 
  		End If 
  	Next 
  End Function 
   
  KillProcess("nvcplui.exe") 
  KillProcess("MSIAfterburner.exe") 
  KillProcess("LCore.exe") 
  KillProcess("chrome.exe") 
  KillProcess("calculator.exe") 
  KillProcess("Video.UI.exe") 
  KillProcess("plugin-contanier.exe") 
  KillProcess("microsoftedge.exe") 
  KillProcess("microsoftedgecp.exe") 
  KillProcess("firefox.exe") 
  KillProcess("spotify.exe") 
  KillProcess("SplashProEx.exe") 
  KillProcess("sbz.exe") 
  KillProcess("IEXPLORE.EXE") 
  KillProcess("whatsNew.Store.EXE") 
  KillProcess("backgroundtaskhost.exe") 
  KillProcess("time.exe") 
  KillProcess("HxCalendarAppImm.exe") 
   
   
  '  REGISTER KEY FOR NVIDIA LAST PAGE.(SLI) 
  Const HKEY_CURRENT_USER = &H80000001 
  Set objRegistry = _ 
     GetObject("Winmgmts:root\default:StdRegProv") 
   
  strPath = "SOFTWARE\NVIDIA Corporation\NVControlPanel2\Client" 
  uBinary = Array(174,19,241,200,201,162,203,71,141,174,147,118,198,70,101,173) 
  Return = objRegistry.SetBinaryValue(HKEY_CURRENT_USER, _ 
     strPath, _ 
     "LastPage", _ 
     uBinary) 
   
  If (Return = 0) And (Err.Number = 0) Then 
     ' Wscript.Echo "Binary value added successfully" 
  Else 
      Wscript.Echo "Cannot Write to the Registry Key." 
  	WScript.Quit(0) 
  End If 
   
   
  ' READ REGISTER KEY FOR SLI ON/OFF  
  strComputer = "."  
  Set regObj=GetObject( _  
      "winmgmts:{impersonationLevel=impersonate}!\\" & _ 
     strComputer & "\root\default:StdRegProv") 
    
  strKeyPath = "SOFTWARE\NVIDIA Corporation\NVControlPanel2\RegisteredServers\GamesConfigServer" 
  strValueName = "AllowSliMosaicStatus" 
  Return = regObj.GetDWORDValue (HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue)  & dwValue   
   If (Return = 0) And (Err.Number = 0) Then   	 
   'SLI & 3D-VISION ON 
   	WshShell.run """C:\Program Files (x86)\NVIDIA Corporation\3D Vision\nvstlink.exe"" /enable" 
  	WScript.Sleep(5000) 
  	WshShell.Run("""c:\Program Files\NVIDIA Corporation\Control Panel Client\nvcplui.exe""") 
  	WScript.Sleep(1000) 
  	WshShell.SendKeys("%r") 
  Else 
   'SLI & 3D-VISION OFF  
    	WshShell.run """C:\Program Files (x86)\NVIDIA Corporation\3D Vision\nvstlink.exe"" /disable" 
  	WScript.Sleep(5000) 
  	WshShell.Run("""c:\Program Files\NVIDIA Corporation\Control Panel Client\nvcplui.exe""") 
  	WScript.Sleep(1000) 
  	WshShell.SendKeys("%v")	 
  End If 
   
  WScript.Sleep(1000) 
  WshShell.SendKeys("%g") 
  WScript.Sleep(5000) 
  WshShell.SendKeys("%{F4}") 
  WScript.Sleep(1000) 
  WshShell.Run("""C:\Program Files\Logitech Gaming Software\LCore.exe""") 
  WScript.Sleep(2000) 
  WshShell.SendKeys("%{F4}") 
  WScript.Sleep(1000) 
  WshShell.run """C:\Program Files (x86)\Creative\Sound Blaster Z-Series\Sound Blaster Z-Series Control Panel\sbz.exe"" /r" 
  WScript.Sleep(1000) 
  WshShell.Run("""C:\Program Files (x86)\MSI Afterburner\MSIAfterburner.exe""") 
   
  WScript.Quit(0)

< Bu mesaj bu kişi tarafından değiştirildi TimFx -- 28 Mart 2016; 6:18:24 >

Scriptle hızlıca SLI ve 3DVision Açma/Kapama

Benzer içerikler