婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

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

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

熱門標(biāo)簽:加盟電銷機(jī)器人好的品牌 新密防封卡外呼系統(tǒng)違法嗎 打電話的外呼系統(tǒng)貴不貴 陜西高頻外呼回?fù)芟到y(tǒng)哪家好 前鋒辦理400電話申請(qǐng) 外呼營銷下單系統(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)問題,煩請(qǐng)?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)民參考!
  • 推薦文章
    主站蜘蛛池模板: 娄烦县| 襄城县| 南昌县| 贵德县| 宕昌县| 丰顺县| 九龙县| 临城县| 平舆县| 闸北区| 花垣县| 饶平县| 无极县| 永顺县| 浦东新区| 霞浦县| 高唐县| 九台市| 太白县| 陆河县| 石柱| 枞阳县| 辉南县| 梧州市| 饶阳县| 利川市| 印江| 焉耆| 西宁市| 许昌县| 资溪县| 黄平县| 浦县| 宝山区| 石首市| 横峰县| 云霄县| 西昌市| 菏泽市| 灵璧县| 滁州市|