手机
当前位置:查字典教程网 >脚本专栏 >vbs >去掉RAR右键解压菜单的VBS代码
去掉RAR右键解压菜单的VBS代码
摘要:原理:http://demon.tw/programming/vbs-binary-file-another.html复制代码代码如下:Pu...

原理: http://demon.tw/programming/vbs-binary-file-another.html

复制代码 代码如下:

Public ReadBinary

ReadBinaryDat(".1.exe")

BinaryDat = Replace(Replace(ReadBinary, "526172211a07", "522172211a07"), "807a0161", "807a0121")

WriteBinaryDat "new.exe", BinaryDat

Function ReadBinaryDat(FileName)

Const adTypeBinary = 1

Dim stream, xmldom, node

Set xmldom = CreateObject("Microsoft.XMLDOM")

Set node = xmldom.CreateElement("binary")

node.DataType = "bin.hex"

Set stream = CreateObject("ADODB.Stream")

stream.Type = adTypeBinary

stream.Open

stream.LoadFromFile FileName

node.NodeTypedValue = stream.Read

stream.Close

Set stream = Nothing

ReadBinary = node.Text

Set node = Nothing

Set xmldom = Nothing

End Function

Sub WriteBinaryDat(FileName, Buf)

Const adTypeBinary = 1

Const adSaveCreateOverWrite = 2

Dim stream, xmldom, node

Set xmldom = CreateObject("Microsoft.XMLDOM")

Set node = xmldom.CreateElement("binary")

node.DataType = "bin.hex"

node.Text = Buf

Set stream = CreateObject("ADODB.Stream")

stream.Type = adTypeBinary

stream.Open

stream.write node.NodeTypedValue

stream.saveToFile FileName, adSaveCreateOverWrite

stream.Close

Set stream = Nothing

Set node = Nothing

Set xmldom = Nothing

End Sub

【去掉RAR右键解压菜单的VBS代码】相关文章:

支持断点下载的VBS代码

一个收集的下载木马并运行的VBS代码

运行同一目录下的可执行程序的VBS代码

VBS获取重定向的URL的代码

利用VBS发送邮件 挑选速度快的肉鸡做VPN 的vbs代码第1/2页

创建Guid 的代码

两个批量挂马vbs脚本代码

实现winrar密码破解的vbs代码

vbs中将GB2312转Unicode的代码

vbs 多线程下载实现代码

精品推荐
分类导航