Azarien napisał(a)
A nie możesz zawołać admina, że chcesz inną rozdzielczość? ;-)
Hehehe :) A to się uśmiałem :)
Już widzę jak admin lata do mnie z każdą "pierd...ką" bo ja chce...:) Tym bardziej że po mnie usiądzie jeszcze inna osoba i też zmieni rozdzielczość... a mi się nie chce za każdym razem zmieniać jej po zalogowaniu :)
ok... na razie nie znalazłem rozwiązania takiego jak pierwsze Nvidii... Na razie zmieniam sobie skrypcik w vbs aby był lepszy a mniejszy i od razu po zalogowaniu uruchamiał kilka aplikacji od razu bo mi się nie chce :) Najpierw muszę się trochę Visual Basic Script poduczyć bo za nic nie uczyłem się dotąd ale już wygląda to mniej więcej tak :
strComputer="."
Set objWMIService = GetObject("winmgmts:\" &_
strComputer & "\root\cimv2")
Set colItems=objWMIService.ExecQuery("Select * from Win32_DisplayConfiguration",,48)
For Each objItem in colItems
DisplayHeight=objItem.PelsHeight
DisplayWidth=objItem.PelsWidth
Next
If(DisplayWidth<>1280)Or(DisplayHeight<>1024)Then
Set WshShell=WScript.CreateObject("WScript.Shell")
Set WshNetwork=WScript.CreateObject("WScript.Network")
WshShell.Run("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3")
WScript.Sleep 10000
WshShell.AppActivate("Display Properties")
WScript.Sleep 2000
'WshShell.SendKeys"{TAB}" ' Jeżeli nie ustawi focusu na belce ...
'WScript.Sleep 10
'WshShell.SendKeys"{TAB}" ' Jeżeli więcj niż jeden Monitor...
'WScript.Sleep 10
if SetScreenResolution(DisplayWidth,DisplayHeight) = "" Then
'Zacznij uruchamiać inne aplikacje robić kopie zapasowe itp :)
else
end if
else
Set WshShell=WScript.CreateObject("WScript.Shell")
Set WshNetwork=WScript.CreateObject("WScript.Network")
' Ta opcja nie zadziała w robocie bo brak pliku NVCpl.dll.... - mi przydatne w domu abym nie zmieniał co chwilę ręcznie rozdziałki :)
WshShell.Run("%windir%\System32\rundll32.exe NvCpl.dll,dtcfg setmode 1 1024 768 32 85")
end if
Function SetScreenResolution(Width, Height)
Prawo=-1
If Width = 800 And Height = 600 Then Prawo = 7
If Width = 1024 And Height = 768 Then Prawo = 6
If Width = 1152 And Height = 864 Then Prawo = 5
If Width = 1280 And Height = 600 Then Prawo = 4
If Width = 1280 And Height = 720 Then Prawo = 3
If Width = 1280 And Height = 768 Then Prawo = 2
If Width = 1280 And Height = 960 Then Prawo = 1
If Width = 1280 And Height = 1024 Then Prawo = 0
if Prawo <> -1 Then
For intI = 0 to Prawo
WshShell.SendKeys"{RIGHT}"
WScript.Sleep 10
Next
WshShell.SendKeys"{ENTER}"
WScript.Sleep 10
WshShell.SendKeys"{TAB}"
WScript.Sleep 100
WshShell.SendKeys"{ENTER}"
SetScreenResolution = ""
end if
End Function
WScript.Quit
Trochę jeszcze pobawić się w kilka dodatkowych rzeczy i będzie ok :)