[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
ivor

Rank: 6Rank: 6

帖子
979 
积分
3381 
技术
172  
捐助
40  
注册时间
2012-1-7 
1楼 跳转到 »
发表于 2019-11-12 08:41 | 显示全部帖子
本帖最后由 ivor 于 2019-11-12 12:04 编辑

追加到00000000.app？还是替换相同的位置。

**************************************

最终答案
  1. @Powershell "$byte = [System.IO.File]::ReadAllBytes('title.tmd')[487];Move-Item -Path '00000000.app' -Destination ('000000{0:x2}.app' -f $byte) -Verbose"

  2. pause
复制代码
#&cls&@powershell "Invoke-Expression ([Io.File]::ReadAllText('%~0',[Text.Encoding]::UTF8))" &pause&exit

TOP

ivor

Rank: 6Rank: 6

帖子
979 
积分
3381 
技术
172  
捐助
40  
注册时间
2012-1-7 
2楼
发表于 2019-11-12 09:17 | 显示全部帖子
本帖最后由 ivor 于 2019-11-12 09:19 编辑

保存为批处理运行
  1. <# :

  2. @Powershell "& {[ScriptBlock]::Create((gc '%~f0' -raw)).Invoke()}" & pause & goto :eof

  3. #>

  4. 

  5. $byte1 = [System.IO.File]::ReadAllBytes("title.tmd")

  6. $byte2 = [System.IO.File]::ReadAllBytes("00000000.app")

  7. 'title.tmd: {0}  ===>  00000000.app:{1}' -f $byte1[487],$byte2[487]

  8. $byte2[487] = $byte1[487]

  9. [System.IO.File]::WriteAllBytes("00000009.app",$byte2)

  10. 'save as file:00000009.app'
复制代码
#&cls&@powershell "Invoke-Expression ([Io.File]::ReadAllText('%~0',[Text.Encoding]::UTF8))" &pause&exit

TOP

ivor

Rank: 6Rank: 6

帖子
979 
积分
3381 
技术
172  
捐助
40  
注册时间
2012-1-7 
3楼
发表于 2019-11-12 09:39 | 显示全部帖子 
  1. <# :

  2. @Powershell "& {[ScriptBlock]::Create((gc '%~f0' -raw)).Invoke()}" & pause & goto :eof

  3. #>

  4. 

  5. $byte = [System.IO.File]::ReadAllBytes("title.tmd")[487]

  6. Copy-Item -Path "00000000.app" -Destination ("000000{0:x}.app" -f $byte) -Verbose
复制代码
1

评分人数

#&cls&@powershell "Invoke-Expression ([Io.File]::ReadAllText('%~0',[Text.Encoding]::UTF8))" &pause&exit

TOP

返回列表