去掉RAR右鍵解壓菜單的VBS代碼
更新時(shí)間：2013年07月27日 23:04:28 作者：
前兩天寫(xiě)了個(gè)批處理的，效率不高，百度、谷歌后找到一個(gè)更好的辦法
原理: 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
復(fù)制代碼 代碼如下:
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
相關(guān)文章
VBS教程：方法-GetFolder 方法...2006-11-11
用vbs從本地 Administrators 組中刪除組...2007-03-03
小弟才接觸vbs.前幾天中了個(gè)病毒，我看了半天，看不明白。有些看明白的地方我做了注釋。請(qǐng)大蝦幫忙解加些注釋，萬(wàn)分感激,病毒代碼如下：2008-06-06
VBS實(shí)現(xiàn)GB2312,UTF-8,Unicode,BIG5編碼轉(zhuǎn)換工具
VBS寫(xiě)的GB2312,UTF-8,Unicode,BIG5編碼轉(zhuǎn)換工具,轉(zhuǎn)換工具下載:GB2Ue.vbs (3.34 kb)2010-06-06
這篇文章主要介紹了vbs qq自動(dòng)登錄腳本改進(jìn)版,需要的朋友可以參考下2014-05-05
用VBS實(shí)現(xiàn)一個(gè)小鍵盤(pán)動(dòng)作CTRL+V粘貼操作與思路分析
我想實(shí)現(xiàn)當(dāng)有跳出窗口"請(qǐng)輸入"時(shí)的1.8秒后就發(fā)送一次 CTRL + V,把本來(lái)已經(jīng)復(fù)制到剪切版中的文字自動(dòng)粘貼過(guò)去呢2009-12-12
使用 Iisftpdr.vbs 刪除FTP虛擬目錄(支持本地與遠(yuǎn)程)
這篇文章主要介紹了如何通過(guò) iisftpdr.vbs 刪除本地或遠(yuǎn)程計(jì)算機(jī)上的 FTP 虛擬目錄的方法,需要的朋友可以參考下2014-07-07
vbscript 調(diào)用WebService實(shí)現(xiàn)代碼
vbscript 調(diào)用WebService實(shí)現(xiàn)代碼，需要的朋友可以參考下。2009-11-11
VBScript編寫(xiě)Windows防止鎖屏腳本程序
這篇文章主要為大家介紹了VBScript編寫(xiě)Windows防止鎖屏腳本程序示例，有需要的朋友可以借鑒參考下，希望能夠有所幫助，祝大家多多進(jìn)步，早日升職加薪<BR>2022-05-05
Excel 中將數(shù)值轉(zhuǎn)換為英文單詞2009-08-08