Teknoloji Haberleri
Aşağı Git
Tüm Forumlar
Donanım / Hardware
Dahili Bileşenler
Ekran kartı
Scriptle hızlıca SLI ve 3DVision Açma/Kapama
Bu konudaki kullanıcılar: 1 misafir, 1 mobil kullanıcı
0
Cevap 1162
Tıklama 2
Öne Çıkarma
Cevap 1162
Tıklama 2
Öne Çıkarma
1. sayfa
-
Scriptle hızlıca SLI ve 3DVision Açma/Kapama
1. sayfa
DH Mobil uygulaması ile devam edin.
Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin.
Gizle ve güncelleme çıkana kadar tekrar gösterme.
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
Videoyu izlemek için tıklayınız
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
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)
DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.
Üye Ol Şimdi DeğilÜye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.
< Bu mesaj bu kişi tarafından değiştirildi TimFx -- 28 Mart 2016; 6:18:24 >