亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 編程 > HTA > 正文

XMLDOM下載者生成器代碼(xmldown.hta)

2020-01-31 15:42:09
字體:
供稿:網(wǎng)友
以下代碼保存成hta文件,可生成js和vbs下載者
復(fù)制代碼 代碼如下:

<HTA:APPLICATION
ID="xmldown"
Caption="yes"
SCROLL="auto"
border="none"
borderStyle="static"
SINGLEINSTANCE="yes"
maximizebutton="no"
BORDER="no"
icon="dxdiag.exe">
<script language=vbs>

Sub Window_onLoad
window.resizeTo screen.width/1.6,screen.height/3
window.moveTo 200,200

End Sub

Sub CreateXml(path,File)

Set objStream = CreateObject("ADODB.Stream")
objStream.Type = 1
objStream.Open()
objStream.LoadFromFile(Path)
objStream.position = 0

Set XmlDoc = CreateObject("Microsoft.XMLDOM")
XmlDoc.async = False
Set Root = XmlDoc.createProcessingInstruction("xml", "version='1.0' encoding='UTF-8'")
XmlDoc.appendChild(Root)
XmlDoc.appendChild(XmlDoc.CreateElement("root"))
Set Xfile = XmlDoc.SelectSingleNode("http://root").AppendChild(XmlDoc.CreateElement("file"))
Set Xstream = Xfile.AppendChild(XmlDoc.CreateElement("stream"))
Xstream.SetAttribute "xmlns:dt", "urn:schemas-microsoft-com:datatypes"
Xstream.dataType = "bin.base64"
Xstream.nodeTypedValue = objStream.Read()
XmlDoc.Save(File)
Set XmlDoc = Nothing
Set Root = Nothing
Set objStream=Nothing


End Sub

Function x(obj)
Set x=document.getElementById(obj)
End function

Function Findfile(str)
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(str) Then
findfile=true
Else
findfile=false
End If
End Function

Function jsdown()
Set FSO = CreateObject("Scripting.FileSystemObject")
with fso.opentextfile((CreateObject("WScript.Shell")).CurrentDirectory&"/jsdown.js",2,true)
.write x("jsdown").value
end with
end function

Function vbsdown()
Set FSO = CreateObject("Scripting.FileSystemObject")
with fso.opentextfile((CreateObject("WScript.Shell")).CurrentDirectory&"/vbsdown.vbs",2,true)
.write x("vbsdown").value
end with
end function
</script>
<body>
<h4>1.生成下載用的xml文件</h4>
選擇下載的exe文件:<input type=file name="file1" id="file1" size="20">
保存路徑 <input type=text name="path" id="pathname" value="c:/down.xml" size="20">
<input type="button" value="生成xml文件" onclick='vbs:CreateXml x("file1").value,x("pathname").value:If Findfile(x("pathname").value) = true Then msgbox("生成成功,請傳到某個空間"):x("url").innerHTML="<font color=red>生成成功,請傳到某個空間</font>"'> <br>
<h4>2.生成下載者</h4>
<button onclick='vbs:jsdown():If Findfile("jsdown.js") = true Then msgbox "生成成功":x("url").innerHTML="用法是cscript jsdown.js xmlurl savepath"' >生成js下載者</button><button onclick='vbs:vbsdown():If Findfile("vbsdown.vbs") = true Then msgbox "生成成功":x("url").innerHTML="<font color=blue>用法是cscript vbsdown.js xmlurl savepath</font>"'>生成vbs下載者</button><br><br><br><br>
<div id="url"></div>

<textarea style="visibility:hidden" name=jswodn id=jsdown rows="1" cols="1">
var objArgs = WScript.Arguments;
var objXmlFile =new ActiveXObject("Microsoft.XMLDOM");
objXmlFile.async=false;
objXmlFile.load(objArgs(0).toLowerCase());
do
{
WScript.sleep(100);
}
while (!objXmlFile.readyState == 4)

if (objXmlFile.readyState == 4)
{
var objStream = new ActiveXObject("ADODB.Stream")
var objNodeList =objXmlFile.getElementsByTagName("stream")[0].nodeTypedValue

with(objStream)
{
objStream.Type = 1;
objStream.Open();
objStream.Write(objNodeList);
objStream.SaveToFile(objArgs(1).toLowerCase(),2);
objStream.close();
}
}

delete objXmlFile;
delete objStream;

</textarea>

<textarea style="visibility:hidden" name=vbswodn id=vbsdown rows="1" cols="1">
Set objXmlFile = CreateObject("Microsoft.XMLDOM")
objXmlFile.async=false
objXmlFile.load(Wscript.arguments(0))
Do While objXmlFile.readyState<>4
wscript.sleep 100
Loop
If objXmlFile.readyState = 4 Then

Set objNodeList = objXmlFile.documentElement.selectNodes("http://file/stream")
Set objStream = CreateObject("ADODB.Stream")
With objStream
.Type = 1
.Open
.Write objNodeList(0).nodeTypedvalue
.SaveToFile Wscript.arguments(1), 2
.Close
End With
Set objStream = Nothing

End If

Set objXmlFile = Nothing
</textarea>
</body>
發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
日韩色av导航| 337p亚洲精品色噜噜狠狠| 国产最新精品精品你懂的| 国产精品无码在线| 91原创在线视频| juliaann成人作品在线看| 亚洲综合网站久久久| 久久婷婷一区二区| 韩国亚洲精品| 男女激烈动态图| 亚洲欧美日本日韩| 久久av红桃一区二区禁漫| 小说区图片区综合久久亚洲| 国产精品18hdxxxⅹ在线| 91免费观看视频在线| 国产黄色片在线播放| 亚洲欧美在线视频免费| 亚洲国产成人av| 午夜精品短视频| 久久精品这里只有精品| 精品影片一区二区入口| 日韩欧美国产一区二区三区| 极品少妇一区二区三区精品视频| 亚洲成av人片www| 国产福利久久| 91精品在线看| 9.1国产丝袜在线观看| 欧美最猛性xxxxx免费| 国产精品主播| 精品国产乱码| 国产成人一区在线| 波多野结衣高清在线| 奇米影视第四狠狠777| 亚洲精品在线播放视频| 亚洲黄色成人网| 国产美女一区| 黄色视屏免费在线观看| 91麻豆精品秘密入口| 国产亚洲字幕| 欧美三级午夜理伦三级在线观看| 在线免费观看a级片| 欧美另类极品videosbest视| 精品乱色一区二区中文字幕| 国产精品久久久久久免费播放| 亚洲精品动漫久久久久| 欧美行性性性o00x| 欧美激情免费在线| 国产人成精品| 日本性生活一级片| 女人裸体免费网站| 国产91精品久久久久久| 日韩偷拍自拍| 成人免费观看视频大全| 国产福利av网站| 亚洲成在人线免费视频| 4438国产精品一区二区| 国产精品麻豆一区| 亚洲男同1069视频| 在线电影看在线一区二区三区| 亚洲国产精品视频在线| 国产精品日本精品| 欧美国产日韩在线播放| 真实国产乱子伦精品一区二区三区| 色综合久久五月| 亚洲精品日韩激情在线电影| 亚洲自拍偷拍一区二区| 日韩av高清不卡| 国产黄大片在线观看画质优化| 亚洲成av人片在线| 欧美三级华人主播| 又嫩又硬又黄又爽的视频| 欧美性高潮床叫视频| 亚洲成人精品av| 99九九电视剧免费观看| 99久热re在线精品视频| 国产精品视频黄色| 国产一区亚洲一区| 玖玖国产精品视频| 91精品国产高清自在线看超| 影音先锋男士资源站| japanese在线| 99av国产精品欲麻豆| 国产在线一区二区三区| 免费激情小视频| 精品国产一区二区三区不卡在线| 国产精品av免费在线观看| 毛片免费视频| 欧美久久久久久久久| 日产国产精品精品a∨| 日韩影视高清在线观看| 天天色天天干天天| 福利资源在线观看| 国产影视一区| 欧美成人高清| 中国china体内裑精亚洲片| 黑人巨大精品欧美一区二区三区| 亚洲国产综合久久精品小蝴蝶| 日韩av在线中文字幕| 欧美少妇网站| 国产欧美一区二区精品仙草咪| 亚洲の无码国产の无码步美| 中文字幕在线网址| 午夜激情福利在线| 亚洲天堂中文网| 一本大道久久精品懂色aⅴ| 一本一本久久a久久精品牛牛影视| 日韩福利影院| a级黄色片免费看| 啊v视频在线一区二区三区| 麻豆精品国产| 久久久综合av| 天天做夜夜做人人爱精品| 成人性免费视频| 日韩欧美视频在线免费观看| 一区二区三区韩国| 1024精品一区二区三区| 在线观看免费观看在线| 亚洲视频视频在线| 欧美专区中文字幕| aⅴ色国产欧美| 成人动漫视频在线| 中文字幕区一区二区三| 亚洲少妇中文在线| 亚洲在线播放电影| 久久久久久av无码免费网站下载| 国产香蕉免费精品视频| 青青草视频在线免费观看| 国自产拍在线网站网址视频| 国产成人av影视| 超碰在线观看免费版| 一个人在线观看免费视频www| 亚洲精品成人区在线观看| 久久性色av| 最新中文字幕第一页| 成人女性视频| 国产美女亚洲精品7777| 免费在线观看黄色小视频| 日本视频免费| 91九色丨porny丨肉丝| 亚洲综合在线网| 三级成人在线视频| 国产精品久久久久久亚洲av| 蜜桃一区二区三区在线观看| 亚洲色图欧美偷拍| 成人免费视频在线观看超级碰| 午夜精品福利电影| 一级在线免费观看| www.男人的天堂| 天天干天天草天天| 黄色三级视频在线观看| 欧美日韩日本国产| 男人天堂2020| 一区二区在线视频播放| 女人丝袜激情亚洲| 国产精品午夜一区二区三区| 国产精品久免费的黄网站| 黑丝av在线播放| av电影在线观看网站| 黄色日韩精品| 免费人成视频在线播放| 国产裸体舞一区二区三区| 国产欧美精品一区aⅴ影院| 美女福利视频在线| 99精品黄色片免费大全| 一级黄色片网址| 99久久精品国产一区二区三区| 欧美伊人久久久久久午夜久久久久| 青青操综合网| 99久久99久久精品国产片果冻| 国产午夜电影| 加勒比av一区二区| 日韩在线一卡二卡| 性欧美性free| 成人在线视频免费播放| 伊人狠狠色丁香综合尤物| 91精品久久久久久久久| 久草在线官网| 国产精品久久精品视| 欧美成人精品一区二区三区在线看| 麻豆国产va免费精品高清在线| 男女毛片免费视频看| 日本不卡一区| 黄色网在线免费看| 在线不卡的av| 精品久久久在线观看| 中文字幕日韩国产| 天天摸日日摸狠狠添| 久久久久久久久久久网站| www日本在线观看| 日本午夜大片| 欧美一二三区视频| 日韩和欧美一区二区三区| 黄网站视频在线观看| 免费a漫导航| 91成人国产| 久久亚洲天堂网| 大桥未久恸哭の女教师| 最近中文字幕mv免费高清电影| www.国产黄色| 手机看片国产1024| 亚洲毛片aa| 男男视频亚洲欧美| 国产色a在线| 日韩一区二区免费电影| 日韩欧美伦理| 午夜国产在线视频| 99re8精品视频在线观看| 日韩精品成人免费观看视频| 国产精品国产精品国产专区不卡| 国产亚洲欧洲高清一区| 国产精品成人无码| 国产精品第3页| 97超碰青青草| 久久久久久无码午夜精品直播| 特大黑人娇小亚洲女mp4| hd国产人妖ts另类视频| 欧美成人免费大片| 一本一道精品欧美中文字幕| 成人一级片在线观看| 亚洲色图丝袜美腿| 天天干在线影院| 色中色一区二区| 国产精品久久一区| 免费福利在线视频| 中文字幕 自拍偷拍| 在线天堂中文www视软件| 性欧美极品xxxx欧美一区二区| 国产亚洲精品久久久久久青梅| 国产精品影院在线观看| 日本a级c片免费看三区| 国产欧美日韩综合| 91精品国产自产在线观看永久| 成人精品一区二区三区电影| av欧美精品.com| 伦伦影院午夜理论片| 成年在线观看免费人视频| 久久久久久久久久久妇女| 正在播放亚洲一区| 欧美精品性生活| 国产精品综合不卡av| 色激情天天射综合网| 亚洲精选在线视频| gogo人体一区| 男女高潮又爽又黄又无遮挡| 竹内纱里奈兽皇系列在线观看| a看欧美黄色女同性恋| 超碰激情在线| 在线免费观看日本一区| 白白在线精品| 午夜av免费看| 91麻豆国产福利精品| 青青视频免费在线观看| 久久免费精品日本久久中文字幕| 中文字幕国产在线| 美女被黑人爆操网站| 男人的天堂免费在线视频| 噜噜噜在线视频| 国产 日韩 欧美 综合 一区| ijzzijzzij亚洲大全| 久久亚洲二区| 日韩国产精品亚洲а∨天堂免| 成人免费观看毛片| 国产精品久久久久久久av福利| 中文字幕影音先锋| 午夜视频在线观看韩国| 欧洲亚洲一区二区三区四区五区| 欧美tickling网站挠脚心| se视频在线观看| 亚洲巨乳在线观看| 国产中文在线播放| 亚洲国产精品久久不卡毛片| 国产一区二区精品福利地址| 在线免费不卡视频| 久久精品91久久香蕉加勒比| 国产乱国产乱老熟300| 久久综合精品一区| 久久久久久国产精品三级玉女聊斋| 99久久亚洲精品| 亚洲欧美成人| 天堂网站www天堂资源在线| 国产精品一区亚洲| 国产精品久久久久7777婷婷| 欧美性生交xxxxx久久久| 欧美国产日韩一区| 蜜桃视频在线免费| 亚洲精品在线免费播放| 性欧美大战久久久久久久免费观看| 日本网站在线免费观看| 在线电影看在线一区二区三区| 国产日韩在线观看av| 精品无码国模私拍视频| 亚洲女优在线| 日本精品一区二区| 亚洲丝袜在线视频| 男人的天堂影院| 99久久久无码国产精品衣服| 成人免费观看49www在线观看| 成人午夜又粗又硬又大| 黄网站免费在线观看| 亚洲综合小说| 天堂中文在线播放| 午夜精品久久久久久久99樱桃| 亚洲夫妻av| 香蕉成人啪国产精品视频综合网| 欧美精品videos极品| 日本性视频网站| 日本精品一区二区三区视频| 91免费在线看片| 国产精品情侣自拍| 国产精品久久久久久| 日韩视频免费观看| 四季av一区二区凹凸精品| 麻豆视频在线观看免费| 台湾佬成人中文网222vvv| 日本免费一区二区三区四区| 亚洲精品成人区在线观看| 免费男女羞羞的视频网站在线观看| 精品香蕉在线观看视频一| 国产精品白丝一区二区三区| 九九热视频这里只有精品| 日韩大尺度黄色| 无遮挡又色又刺激的女人视频| 午夜精品免费在线| 中文字幕2022永久在线| 99爱在线观看| 精品人妻一区二区三区免费看| 亚洲AV无码精品自拍| 日本高清黄色片|