本帖最后由 chishingchan 于 2019-9-17 21:14 编辑
vbscript.vbs
[Visual Basic] 纯文本查看 复制代码 File = ".\集客QQ采集软件.exe"
Set ado_stream = CreateObject("ADODB.Stream")
ado_stream.Type = 1
ado_stream.open
ado_stream.LoadFromFile File
ado_stream.position = 1605477
ado_stream.Write HexToByte("909090909090")'0F85C1030000
ado_stream.SaveToFile File, 2
ado_stream.Close
Set ado_stream = Nothing
Function HexToByte(hexStr)
Set xmldom = Wscript.CreateObject("Microsoft.XMLDOM")
Set byteObj= xmldom.createElement("byteObj")
byteObj.dataType = "bin.hex"
byteObj.nodeTypedValue = hexStr
HexToByte=byteObj.nodeTypedValue
End Function |