脚本宝典收集整理的这篇文章主要介绍了去掉RAR右键解压菜单的VBS代码,脚本宝典觉得挺不错的,现在分享给大家,也给大家做个参考。原理: http://demon.tw/programming/vbs-binary-file-another.html
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代码全部内容,希望文章能够帮你解决去掉RAR右键解压菜单的VBS代码所遇到的问题。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。