[Asm] 纯文本查看 复制代码' & cls & cscript.exe /nologo /e:vbscript "%~f0" "%~f1" "%~n1.png"
Set oStream = CreateObject("ADODB.Stream")
oStream.Type = 1 'adTypeBinary
oStream.Mode = 3 'adModeReadWrite
oStream.Open()
With CreateObject("ADODB.Stream")
.Type = 1 'adTypeBinary
.Mode = 3 'adModeReadWrite
.Open()
.LoadFromFile WScript.Arguments(0)
.Position = 4
.CopyTo oStream
.Close()
End With
oStream.SaveToFile WScript.Arguments(1), 2 'adSaveCreateOverWrite
oStream.Close()
