手机
当前位置:查字典教程网 >脚本专栏 >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代码】相关文章:

用vb和vbs 破解flashxp的密码的代码

一段病毒常用的VBS代码

一段提取用户名和md5的vbs代码

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

vbs实现右键菜单中添加CMD HERE

简单的VBS加密实现代码

利用vbs类实现css按钮的代码

一个最简单的vbs类实例代码

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

IE浏览器增加“复制图像地址”的右键菜单的vbs代码

精品推荐
分类导航