XMLDOM下载者生成器代码(xmldown.hta)
2010-11-28 21:56
645 查看
<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("//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("//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>
相关文章推荐
- 用mabaties生成器生成代码时配置xml的问题
- javascript操作xml(增删改查)例子代码hta版
- C# XML文件操作类XmlHelper类的完整代码
- 10个便利的CSS代码在线生成器
- 代码调用服务--请求因 HTTP 状态 401 失败:Access Denied。(downmoon原创)
- 创建模块化游戏(Creating Moddable Games with XML and Scripting Part I)代码阅读,关于整体架构!
- Android中通过代码获取arrays.xml文件中的数据
- jQuery 操作Xml 入门级代码
- asp读取xml实例代码
- 利用Schema验证xml的代码
- xml中配置默认首页,欢迎页的代码
- php xml分析函数代码第1/2页
- XML读写部分代码,仅供参考!
- CodeSmith代码自动生成器 JAVA模版的制作---CodeSmith+MySQL+MyEclipse 10
- Android 反编译XML 代码乱码问题 解决
- TreeView绑定XML数据源C#代码示例
- 软件更名啦:Maticsoft.Net代码自动生成器
- XML布局文件在Activity自动生成代码(三)终结篇
- php 修改、增加xml结点属性的实现代码