Win10PE显示设置分辨率不能打开

chxm1023

内核版本是Win10PE 14393

右键显示设置不能用，显示“找不到指定的模块”


开始菜单不能显示头像，存在图片。开始菜单是用StartIsBack


请大神们帮忙解决下谢谢~

23456

哦  和我的一样   我是精简掉了

2012duanyongli

到我的帖子看看也许会解决用户头像显示的问题 Win8_8.1_10PE一键制作 (支持网络) 的 275# 276#

不知

显示设置的dll是display.dll,个性化的dll是themecpl.dll，都在\windows\system32\下。
不过windows10把显示设置和个性化设置都转移到了设置里，设置应用的文件夹为\windows\ImmersiveControlPanel里，不过好像不是win32应用，估计搞起来很麻烦。

chxm1023

不知 发表于 2016-11-29 19:10
显示设置的dll是display.dll,个性化的dll是themecpl.dll，都在\windows\system32\下。
不过windows10把显 ...

里面有display.dll，别的版本的win10PE可以打开分辨率设置，就是14393的PE打不开~

chxm1023

2012duanyongli 发表于 2016-11-29 13:34
到我的帖子看看也许会解决用户头像显示的问题 Win8_8.1_10PE一键制作 (支持网络) 的 275# 276#

按照您的步骤我测试了下还是显示不了头像。

2012duanyongli

chxm1023 发表于 2016-11-30 20:31
按照您的步骤我测试了下还是显示不了头像。

好像14393以后的分辨率设置都打不开吧

显示不了头像，这个我也没仔细研究，我在我的一键制作工具中测试是可以的。
你可以在以下方面找原因：
你要搞清楚StartIsBack默认采用的是哪个 .msstyles 视觉样式文件，这个可以通过注册表找到，如果注册表没有一般默认的是 Plain8.msstyles
把StartIsBack完整版中提取的 Aero 8.msstyles 或者是 Windows 7..msstyles 改名为默认的视觉样式文件
StartIsBack64.dll版本最好在4.0.1以上

另外附上我做测试时的文件，你可以研究一下是否跟图片的大小等因素有关
ProgramData.7z (357.83 KB, 下载次数: 182)

2016-11-30 21:00 上传

点击文件名下载附件
下载积分: 无忧币 -2

立帮电子

还有一个问题，14393以后网络图标显示也不正常

a-lao

我也在折腾 WIN 10 PE X64，无法打开32位程序，提示 “应用程序无法正常启动(0xc0000034)”，借贴求解（无发贴权限……）

已经根据 《全手工制作WIN8PE，WIN7PE一条龙教程》添加了 Win7PE 支持32位程序 的文件。。。但仍然不行，求 WIN 10 PE X64 支持32位程序 文件列表

2、任务栏 ，开始菜单 无反应。

3、资源管理器，菜单栏 出现一黑条！

4、搜索框输入任何字符，即时出错。

airing

这个显示设置的问题…… 后来解决了吗……？

tipsychin

StartIsBack做的开始菜单，如果要换头像，可以这样做：
1、先制作2个png格式图片：p1.png  96x96像素、p2.png  448x448像素
2、用记事本写一个VBS脚本（内容附后），文件名为AccountPicture.vbs
3、png和vbs文件放在同一目录，用命令行执行：AccountPicture.vbs p1.png p2.png user.accountpicture-ms
4、把生成的user-200.accountpicture-ms改名复制替换到X:\Users\Default\AppData\Roaming\Microsoft\Windows\AccountPictures\*.accountpicture-ms

VBS脚本内容：

'Copyright 2023 minn
'Licensed under the Apache License, Version 2.0 (the "License");
'you may not use this file except in compliance with the License.
'You may obtain a copy of the License at
'   apache.org/licenses/LICENSE-2.0
'Unless required by applicable law or agreed to in writing, software
'distributed under the License is distributed on an "AS IS" BASIS,
'WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
'See the License for the specific language governing permissions and
'limitations under the License.
'
'=====================================
'USAGE:
'    convert jpg to accountpicture-ms format.
'    AccountPicture.vbs <path of 96x96.jpg> <path of 448x448.jpg> <output>
'
'EXAMPLE:
'    AccountPicture.vbs c:\p1.jpg c:\p2.jpg c:\out.accountpicture-ms
'=====================================
dim p1Path, p2Path
if wscript.arguments.length >2 then
  p1Path = wscript.arguments(0)
  p2Path = wscript.arguments(1)
  outPath = wscript.arguments(2)
  p1Buffer = ReadFile(p1Path)
  p2Buffer = ReadFile(p2Path)
  p1Len = UBound(p1Buffer)
  p2Len = UBound(p2Buffer)
  outputLen=77+4+p1Len+52+4+p2len+9
  dim outputBuffer()
  ReDim outputBuffer(outputLen)
  offset=0

  '写文件头
  WriteInt32 outputBuffer, offset, outputLen-4
  WriteInt32 outputBuffer, offset, outputLen-8
  WriteBytes outputBuffer, offset, HexToBuffer("3153505318B08B0B2527444B92BA7933AEB2DDE7")
  WriteInt32 outputBuffer, offset, p1Len+56
  WriteBytes outputBuffer, offset, HexToBuffer("0400000000420000001E000000700072006F007000340032003900340039003600370032003900350000000000")
  '写p1长度
  WriteInt32 outputBuffer, offset, p1Len
  '写p1内容
  WriteBytes outputBuffer, offset, p1Buffer
  '写中间头
  WriteBytes outputBuffer, offset, HexToBuffer("000000")
  WriteInt32 outputBuffer, offset, p2Len+54
  WriteBytes outputBuffer, offset, HexToBuffer("0300000000420000001E000000700072006F007000340032003900340039003600370032003900350000000000")
  '写p2长度
  WriteInt32 outputBuffer, offset, p2Len
  '写p2内容
  WriteBytes outputBuffer, offset, p2Buffer
  '写续尾
  WriteBytes outputBuffer, offset, HexToBuffer("000000000000000000")

  '输出文件
  WriteFile outPath, outputBuffer
end if

Function ReadFile(filePath)
  Dim Buf(), I
  With CreateObject("ADODB.Stream")
    .Mode = 3: .Type = 1: .Open: .LoadFromFile filePath
    ReDim Buf(.Size)
    For I = 0 To .Size - 1: Buf(I) = AscB(.Read(1)): Next
    .Close
  End With
  ReadFile = Buf
End Function

Function HexToBuffer(hex)
  bufferLen = len(hex)
  Dim Buf()
  ReDim Buf(bufferLen/2)
  off=0
  for i = 0 to bufferLen-1 Step 2
    hexStr = Mid(hex, i+1, 2)
    WriteByte Buf, off, cint("&h"+hexStr)
  next
  HexToBuffer = Buf
End Function


'指定位数
Function WriteBytes(buffer, ByRef offset, val)
  for i = 0 to UBound(val) -1 Step 1
    buffer(offset + i) = val(i)
  next
  offset = offset + UBound(val)
End Function

'1位
Function WriteByte(buffer, ByRef offset, val)
  buffer(offset) = val
  offset = offset + 1
End Function

'2位
Function WriteInt16(buffer, ByRef offset, val)
  buffer(offset + 1) = val \ 255
  buffer(offset) = val mod 255
  offset = offset + 2
End Function

'4位
Function WriteInt32(buffer, ByRef offset, val)
  buffer(offset + 3) = val \ ( 2 ^ 24)
  buffer(offset + 2) = (val and &HFF0000)  \ ( 2 ^ 16)
  buffer(offset + 1) = (val and &HFF00)  \ ( 2 ^ 8)
  buffer(offset + 0) = (val and &HFF)
  offset = offset + 4
End Function


Sub WriteFile(filePath, Buf)
Dim BufferData
BufferData=""
Size = UBound(Buf)
  For I = 0 To Size - 1 Step 1
     BufferData =BufferData & right("00" & Hex(Buf(I)),2)
  Next

Dim Stream, ObjXML, MyNode

Set ObjXML = CreateObject("Microsoft.XMLDOM")
Set MyNode = ObjXML.CreateElement("binary")
Set Stream = CreateObject("ADODB.Stream")

MyNode.DataType = "bin.hex"
MyNode.Text = BufferData

Stream.Type = 1
Stream.Open
Stream.Write MyNode.NodeTypedValue
Stream.SaveToFile filePath, 2
Stream.Close

Set stream = Nothing
Set MyNode = Nothing
Set ObjXML = Nothing
End Sub