首先设置用户背景桌面是微软件的Bginfo工具,而
共享下新建Bg目录下。
1280 - 1024。bgi文件(假如这个),其它
如下内容:
Function GetScreenRes ()
Dim Dev美元,才能Idx RKey美元,美元ScreenXRes ScreenYRes,药栓美元美元
时间=美元才能GetScreenRes & # 39; & # 39;
If 才能;@InWin =, 1,
,,,If 分裂(@ProductType) [1], & lt;祝辞,“NT"
,,,,,Dev 美元;=,分裂(& # 39;& # 39;,+,WMIQuery (“VideoModeDescription",“Win32_VideoController"))
,,,,,If UBound (Dev)美元,在1
,,,,,,,GetScreenRes 美元;=,Dev美元[0],+,“产生绯闻;,+,Dev美元[2]
,,,,EndIf
,,,
,,,,,$ RKey=癏KLM \ SYSTEM \ CurrentControlSet \ Hardware 当前概要文件\ \ SYSTEM \ CurrentControlSet \ Services"
,,,,,Dev 美元;=,“\ Device0"
,,,,,If KeyExist (RKey美元)
,,,,,,,Idx 美元;=0
,,,,,,,
,,,,,,,,,SType 美元;=,EnumKey (RKey, Idx美元)
,,,,,,,,,If @Error =, 0,以及SType 美元;& lt;祝辞,“VgaSave"
,,,,,,,,,,,,,ScreenXRes 美元;=,& # 39;& # 39;,+,ReadValue (RKey 美元;+,“\”,+,SType 美元;+,Dev美元,“DefaultSettings.XResolution")
,,,,,,,,,,,,,ScreenYRes 美元;=,& # 39;& # 39;,+,ReadValue (RKey 美元;+,“\”,+,SType 美元;+,Dev美元,“DefaultSettings.YResolution")
,,,,,,,,,
,,,,,,,,,,,Idx 美元;=,Idx 美元;+ 1
,,,,,,,,EndIf
,,,,,,,Until @Error 或是ScreenXRes美元
,,,,,,,If ScreenXRes美元
,,,,,,,,,GetScreenRes 美元;=,ScreenXRes 美元;+,& # 39;& # 39;+,ScreenYRes美元
,,,,,,EndIf
,,,,EndIf
,,EndIf
其他的才能
,,,$ RKey=癏KLM \ Config \ 0001 \ \ Settings"显示;
,,,If KeyExist (RKey美元)
,,,,,GetScreenRes 美元;=,ReadValue (RKey美元,“Resolution")
,,EndIf
EndIf才能
EndFunction
FUNCTION WMIQuery(什么,,美元,optional $计算机)
dim strQuery美元,才能,objEnumerator美元,美元的价值
if 才能;not computer 美元;,$计算机=癅WKSTA", endif
时间=美元才能strQuery “Select what 美元;得到where"美元;
时间=美元才能SystemSet GetObject (“winmgmts: {impersonationLevel=冒充}!//computer"美元;)
时间=美元才能objEnumerator 美元SystemSet.ExecQuery (strQuery美元)
For 才能;Each objInstance 美元;拷贝objEnumerator美元
,,,If @Error =, 0,以及objInstance 美元;& lt;祝辞,““
,,,,,=美元执行(“$ $ value =, objInstance美元。what"美元)
,,,,,$ WMIQuery=皏alue"美元;+““+“WMIQuery"美元;
,,,,EndIf
接下来,,,
美元才能WMIQuery=左(WMIQuery美元,len (WMIQuery美元)1)
exit @error才能
ENDFUNCTION 第四,定义好函数后,我们在kixtart.kix中添加如下内容:
,首先调用自定义的功能。以前kix
CALL “% logonserver % \ NETLOGON \ Function.kix"
,取得用户屏幕的分辨率并赋给变量screenr美元
$ ScreenRes =, GetScreenRes ()
;调用bginfo.exe工具
IF 存在(“% logonserver % \ netlogon \ Bginfo \ ScreenRes.bgi"美元)
RUN “% logonserver % \ netlogon \ Bginfo \ bginfo.exe /nolicprompt % logonserver % \ netlogon \ Bginfo \ ScreenRes.bgi 美元/计时器:00“;
其他的
RUN “% logonserver % \ netlogon \ Bginfo \ bginfo.exe /nolicprompt % logonserver % \ netlogon \ Bginfo \ wallpaper.bgi /计时器:00“;
ENDIF
