不更改桌面壁纸，只用动词把桌面-属性里的平铺变成拉伸，请写下详细代码。设置ws=CreateObject('WScript .shell)ws .注册表HKCU/控制面板/桌面/平铺壁纸，' 0'ws .RegWrite ' HKCU/控制面板/桌面/壁纸样式，' 2'Shell 'rundll32 shell32，Control_RunDLL desk.cpl '，vbNormalFocusSendKeys ' { enter } '