主頁 > 知識(shí)庫 > 去掉RAR右鍵解壓菜單的VBS代碼

去掉RAR右鍵解壓菜單的VBS代碼

熱門標(biāo)簽:加盟電銷機(jī)器人好的品牌 新密防封卡外呼系統(tǒng)違法嗎 打電話的外呼系統(tǒng)貴不貴 陜西高頻外呼回?fù)芟到y(tǒng)哪家好 前鋒辦理400電話申請 外呼營銷下單系統(tǒng) 百度地圖標(biāo)注怎么卸載 海外美發(fā)店地圖標(biāo)注 辦理膠州400電話財(cái)稅
原理: http://demon.tw/programming/vbs-binary-file-another.html

復(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

標(biāo)簽:牡丹江 咸陽 河南 四平 阜陽 梅州 伊春 武威

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《去掉RAR右鍵解壓菜單的VBS代碼》,本文關(guān)鍵詞  去掉,RAR,右鍵,解壓,菜單,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《去掉RAR右鍵解壓菜單的VBS代碼》相關(guān)的同類信息!
  • 本頁收集關(guān)于去掉RAR右鍵解壓菜單的VBS代碼的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章