- 浏览: 260848 次
- 性别:
- 来自: 深圳
文章分类
最新评论
-
laitaogood:
请问,还有哪些API服务呢?比如说查看用户问答积分啊,用户发帖 ...
JavaEye-Api -
ruixinzheng:
闲聊一下
URL: http://api.iteye.com ...
JavaEye-Api -
ling520:
.....
思绪起*心间 -
ling520:
亲爱的,对不起哦~以后我一定尽量不让你等了~
今天,突然有了一种失落感 -
ling520:
小兔子想你了哈~
我很想你
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title>package file v0.1</title> <meta http-equiv="Content-Type" content="text/html; charset=GB2312"> <HTA:APPLICATION ID="package file v0.1" APPLICATIONNAME="package file v0.1" VERSION="0.1" SCROLL="no" INNERBORDER="no" CONTEXTMENU="yes" CAPTION="yes" ICON="no" SHOWINTASKBAR="yes" SINGLEINSTANCE="yes" SYSMENU="yes" MAXIMIZEBUTTON ="no" WINDOWSTATE="normal" NAVIGABLE="yes" /> <SCRIPT LANGUAGE="VBScript"> function transfert() dim filename filename = document.getElementById("srcFile").value if len(filename)>0 then dim oReq 'on error resume next '//创建XMLHTTP对象 set oReq = CreateObject("MSXML2.XMLHTTP") oReq.open "get","file:\\" & filename,false oReq.send ff = oReq.responseBody dim u,s,kk u = lenb(ff) redim kk(u-1) for i=0 to u-1 s = hex(ascb(midb(ff,i+1,1))) if len(s)<2 then s = "0" & s end if 'kk = kk & s kk(i) = s next make filename,join(kk,"") else document.getElementById("srcFile").focus msgbox "请选择要压缩的文件",16,"提示" end if end function function make(filename,data) dim htm,file file = mid(filename,instrrev(filename,"\")+1) htm = htm & "<html>" & vbcrlf htm = htm & "<head>" & vbcrlf htm = htm & "<title>selfdec</title>" & vbcrlf htm = htm & "<meta http-equiv=""Content-Type"" content=""text/html; charset=GB2312"">" & vbcrlf htm = htm & "<HTA:APPLICATION " & vbcrlf htm = htm & " ID=""selfdec"" " & vbcrlf htm = htm & " APPLICATIONNAME=""self"" " & vbcrlf htm = htm & " VERSION=""0.1"" " & vbcrlf htm = htm & " SCROLL=""no"" " & vbcrlf htm = htm & " INNERBORDER=""no"" " & vbcrlf htm = htm & " CONTEXTMENU=""no"" " & vbcrlf htm = htm & " CAPTION=""no"" " & vbcrlf htm = htm & " ICON=""no"" " & vbcrlf htm = htm & " SHOWINTASKBAR=""no"" " & vbcrlf htm = htm & " SINGLEINSTANCE=""yes"" "& vbcrlf htm = htm & " SYSMENU=""no"" " & vbcrlf htm = htm & " MAXIMIZEBUTTON =""no""" & vbcrlf htm = htm & " WINDOWSTATE=""normal""" & vbcrlf htm = htm & " NAVIGABLE=""yes""" & vbcrlf htm = htm & " />" & vbcrlf htm = htm & "" & vbcrlf htm = htm & "<SCRIPT LANGUAGE=""VBScript"">" & vbcrlf htm = htm & "" & vbcrlf htm = htm & "'//保存文件" & vbcrlf htm = htm & "function saveFile(filename,str)" & vbcrlf htm = htm & "" & vbcrlf htm = htm & " set adodbStream = CreateObject(""ADODB"" & ""."" & ""Stream"")" & vbcrlf htm = htm & "" & vbcrlf htm = htm & " adodbStream.Type= 1" & vbcrlf htm = htm & " adodbStream.Open" & vbcrlf htm = htm & " adodbStream.write str" & vbcrlf htm = htm & " adodbStream.SaveToFile filename,2" & vbcrlf htm = htm & " adodbStream.Close" & vbcrlf htm = htm & "" & vbcrlf htm = htm & "end function" & vbcrlf htm = htm & "" & vbcrlf htm = htm & "'//VB数组转变成二进制格式" & vbcrlf htm = htm & "Function MultiByteToBinary(MultiByte)" & vbcrlf htm = htm & "" & vbcrlf htm = htm & " Dim RS, LMultiByte, Binary" & vbcrlf htm = htm & " Const adLongVarBinary = 205" & vbcrlf htm = htm & " Set RS = CreateObject(""ADODB.Recordset"")" & vbcrlf htm = htm & " LMultiByte = LenB(MultiByte)" & vbcrlf htm = htm & " If LMultiByte>0 Then" & vbcrlf htm = htm & " RS.Fields.Append ""mBinary"", adLongVarBinary, LMultiByte" & vbcrlf htm = htm & " RS.Open" & vbcrlf htm = htm & " RS.AddNew" & vbcrlf htm = htm & " RS(""mBinary"").AppendChunk MultiByte & ChrB(0)" & vbcrlf htm = htm & " RS.Update" & vbcrlf htm = htm & " Binary = RS(""mBinary"").GetChunk(LMultiByte)" & vbcrlf htm = htm & " End If" & vbcrlf htm = htm & " MultiByteToBinary = Binary" & vbcrlf htm = htm & "" & vbcrlf htm = htm & "End Function" & vbcrlf htm = htm & "" & vbcrlf htm = htm & "function DeleteMe()" & vbcrlf htm = htm & " " & vbcrlf htm = htm & " dim filename" & vbcrlf htm = htm & " filename = document.location.href" & vbcrlf htm = htm & "" & vbcrlf htm = htm & " filename = mid(filename,instrrev(filename,""/"")+1)" & vbcrlf htm = htm & "" & vbcrlf htm = htm & " Dim fso, MyFile" & vbcrlf htm = htm & " Set fso = CreateObject(""Script" & "ing.FileS" & "ystemObject"") " & vbcrlf htm = htm & " Set MyFile = fso.GetFile(filename)" & vbcrlf htm = htm & " MyFile.Delete" & vbcrlf htm = htm & "" & vbcrlf htm = htm & "end function" & vbcrlf htm = htm & "" & vbcrlf htm = htm & "function exec()" & vbcrlf htm = htm & " " & vbcrlf htm = htm & " '//屏蔽错误" & vbcrlf htm = htm & " 'on error resume next" & vbcrlf htm = htm & "" & vbcrlf htm = htm & " '//改变窗体大小" & vbcrlf htm = htm & " window.resizeTo 0,0" & vbcrlf htm = htm & "" & vbcrlf htm = htm & " dim data,t,kk,filename" & vbcrlf htm = htm & "" & vbcrlf htm = htm & " '//得到数据" & vbcrlf htm = htm & " data = document.getElementById(""divData"").innerText" & vbcrlf htm = htm & " '//得到文件名" & vbcrlf htm = htm & " filename = document.getElementById(""divFileName"").innerText" & vbcrlf htm = htm & "" & vbcrlf htm = htm & " '//得到数据长度" & vbcrlf htm = htm & " u = len(data)" & vbcrlf htm = htm & " " & vbcrlf htm = htm & " '//获得文件数组" & vbcrlf htm = htm & " for i=1 to u step 2" & vbcrlf htm = htm & " t = mid(data,i,2)" & vbcrlf htm = htm & " kk = kk & ChrB(clng(""&H"" & t))" & vbcrlf htm = htm & " next" & vbcrlf htm = htm & "" & vbcrlf htm = htm & " '//转变成二进制格式" & vbcrlf htm = htm & " dataArry = MultiByteToBinary(kk)" & vbcrlf htm = htm & " " & vbcrlf htm = htm & " '//保存文件 " & vbcrlf htm = htm & " saveFile filename,dataArry" & vbcrlf htm = htm & "" & vbcrlf htm = htm & " '//删除自己" & vbcrlf htm = htm & " DeleteMe" & vbcrlf htm = htm & "" & vbcrlf htm = htm & " '//关闭自己" & vbcrlf htm = htm & " window.opener = nothing"& vbcrlf htm = htm & " window.close" & vbcrlf htm = htm & "" & vbcrlf htm = htm & "end function" & vbcrlf htm = htm & "" & vbcrlf htm = htm & "<" & "/SCRIPT>" & vbcrlf htm = htm & "<" & "/head>" & vbcrlf htm = htm & "<body marginleft=0 marginright=0 onload=""exec()"">" & vbcrlf htm = htm & "" & vbcrlf htm = htm & "<div id=""divFileName"" style=""display:none;"">" & file & "</div>" & vbcrlf htm = htm & "<div id=""divData"" style=""display:none;"">" & data & "</div>" & vbcrlf htm = htm & "" & vbcrlf htm = htm & "</body>" & vbcrlf htm = htm & "</html>" & vbcrlf dim fso,f dim this_file this_file = file & "-pf.hta" Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(this_file, 2, True) f.Write htm msgbox "生成文件" & this_file & "成功!",64,"生成" end function </SCRIPT> </head> <body marginleft=0 marginright=0 onload="window.resizeTo 389,145 "> 请选择文件:<input type=file id="srcFile" style="width:260px;"><br><br> <input type=button value=" 转换 " onclick="transfert"> <input type=button value=" 关闭 " onclick="window.close"> </body> </html>
发表评论
-
基于JavaEye-API实现的Gerry-聊天Dos版v1.0-lib库
2010-11-18 08:02 703Dos版本相关Lib库 -
关于运行方式上网简述
2010-11-10 12:56 0配置proxy后可上网。 代理地址 Proxycn2.hua ... -
Everything--Windows文件快速搜索引擎-支持Http服务器功能
2010-09-20 17:30 911http://www.voidtools.com/ ... -
基于JavaEye-API实现的Gerry-聊天QQ版v2.0
2010-09-20 17:27 674http://ling520.iteye.com/blog/7 ... -
基于JavaEye-API实现的Gerry-聊天QQ版v1.0 (全)
2010-09-02 23:37 1744目录结构如下: --bean----------Messag ... -
我的地盘--加密工具盘
2010-08-29 02:38 735官方网站: http://www.flagware.net/ ... -
工具-使用Fat-Jar为程序打包(支持加入第三方包)
2010-08-12 16:05 9401.下载Fat-Jarhttp://fjep.sourcefo ... -
基于JavaEye-API实现的Gerry-聊天Dos版v1.0
2010-08-12 13:22 910目录结构如下: --bean----------Messag ... -
JavaEye-Api
2010-08-05 13:18 1815更新时间:2010-04-12 JavaEye目前 ... -
Key:29189.id-pf.hta
2010-07-30 17:18 118253277B06DBD44EB91D05DA8FD7D3223 ... -
工具> DecodeFileFormatTxt.hta (通用模板)
2010-07-30 17:13 724<html> <head> < ... -
关于一段文字替换回车换行符(使之成为一行)
2010-07-21 09:58 1877把文字内容拷贝到Word文档中,使用 替换功能 输入 替换符 ... -
Html(纯文本显示浏览器-LynxLike)
2010-07-02 17:45 1097http://www.seo-browser.com ... -
在线制作你的素描图像(酷)
2010-07-02 15:40 1963http://www.pimptheface.com
相关推荐
轨迹离线播放器V1.1.hta
硬盤整數-分區計算器-bat文件-硬盤分區計算器.hta
exe转换16进制.hta 能文件改成十六进制的
test_v1.6.hta
用js实现http接口测试的小程序.超轻量级,只要在windows下双击就能使用
ITabcWork.A.hta
JavaScript版的俄罗斯方块,在Windows运行,wzTetris.hta。
直接点开.hta乐意观看效果!也可以改源代码,得到自己想要的效果。修稿之后保存为.hta文件即可!
一个HTA的工具,使用美国变星观测者协会的基本计划建立一个观测计划.hta
合并当前路径下所有的excel.hta,资源如名字,使用ado读取excel到activeX,递归遍历脚本所在目录下的所有子目录,需要支持<object classid="clsid:0002E559-0000-0000-C000-000000000046" id="Spreadsheet1"/>...
CMD命令帮助集合~~~这是通过bat完成的一份hta,方便查询~~
hta编写的软件管理工具0.1(ie7.0测试通过).docx
</p><p>存储容量:8bit(比特) > 1024Byte(字节) > 1024KB(千kilobyte) > 1024MB(兆megabyte) > 1024GB(吉gigabyte) > 1024TB(太terabyte) > 1024PB(拍petabyte) > 1024EB(艾exabyte) > 1024ZB(泽zettabyte) > 1024YB...
hta编写的软件管理工具0.1(ie7.0测试通过).pdf
adb file manger, not need apk install, need adb root .
伪造蓝屏可以装一装自己电脑错误,然后在自己电脑上乱按几个键,就恢复了(PS:乱按是没效果的,乱按的同时按下Alt+F4,就可以恢复正常,无乱码)
一个hta格式的复合收益计算工具 <script type="text/javascript"> <!-- function GetTotal(first,rate,times) { var Total=parseFloat(first); var fRate = parseFloat(rate); var iTimes = parseInt...
汉字转换拼音工具可以识别二万多汉字包括繁简体的拼音,并能标出声调。 有了此工具,以后再也不用翻厚厚的字典啦!http://www.52jb.com.nu
1.从网站回放页面下载轨迹数据文件,将数据文件放于《轨迹离线播放器V1.0.hta》文件同目录下的data文件夹下(如不存在,可手动创建)。 2.双击《轨迹离线播放器V1.0.hta》打开播放器。在本地列表中将会列出data...
hta文件制作教程.7z