- ubuntu12.04环境下使用kvm ioctl接口实现最简单的虚拟机
- Ubuntu 通过无线网络安装Ubuntu Server启动系统后连接无线网络的方法
- 在Ubuntu上搭建网桥的方法
- ubuntu 虚拟机上网方式及相关配置详解
CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.
这篇CFSDN的博客文章用于提取网易文件的hta代码由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.
- <TITLE>网易文件摄取</TITLE>
- <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
- <HTA:APPLICATION
- ID="MyhyliApp"
- APPLICATIONNAME="设置程序"
- VERSION="1.0"
- SCROLL="no"
- INNERBORDER="no"
- CONTEXTMENU="no"
- CAPTION="yes"
- SHOWINTASKBAR="yes"
- SINGLEINSTANCE="yes"
- SYSMENU="yes"
- WINDOWSTATE="normal"
- NAVIGABLE="yes"
- />
- <style type="text/css">
- <!--
- .TT1 { font-family: "隶书";
- font-size: 24px;
- font-weight: bold;
- }
- .title {
- }
- .info {
- font-family: "隶书";
- font-size: 16px;
- color: #FF0000;
- font-weight: bold;
- }
- .separator { width:100%;
- margin:2px;
- margin-top:-4px;
- height:12px;
- overflow:hidden;
- }
- .list { height: 80px;
- width: 100%;
- background-color: #E3EFF9;
- }
- .s_button {
- background-color: #FFCC99;
- position: static;
- text-align: center;
- vertical-align: middle;
- padding: 1px;
- color: #0033CC;
- border: 1px solid #996633;
- width: 100%;
- }
- .grid1 {
- font-family: "隶书";
- font-size: 16px;
- background-color: #006699;
- background-position: center center;
- text-align: center;
- vertical-align: middle;
- height: 100%;
- width: 100%;
- color: #00FF99;
- }
- .grid2 {
- font-family: "宋体";
- text-align: left;
- vertical-align: middle;
- height: 100%;
- width: 100%;
- font-size: 12px;
- }
- .grid3 {
- text-align: center;
- vertical-align: middle;
- height: 100%;
- width: 100%;
- }
- .preview {
- position:absolute;
- width:140px;
- height:140px;
- z-index:1;
- left: 301px;
- top: 61px;
- overflow: visible;
- border-top-color: #FF0000;
- border-right-color: #FF0000;
- border-bottom-color: #FF0000;
- border-left-color: #FF0000;
- background-color: #FF9966;
- margin: 1px;
- padding: 1px;
- visibility: hidden;
- }
- .STYLE2 {
- color: #00FF00;
- font-weight: bold;
- font-family: "隶书";
- font-size: 14px;
- }
- -->
- </style>
- <div class="separator">
- <hr>
- </div>
- <table width="100%" height="4%" border="0" cellspacing="0" cellpadding="0">
- <tr>
- <td colspan="2" align="center" valign="middle" id=menubar onselectstart="return false"><span class="TT1" id="consume">网易图片文件一览表</span> </td>
- </tr>
- </table>
- <div class="separator">
- <hr>
- </div>
- <table width="100%" height="415" border="1">
- <tr>
- <td width="81%" height="16" rowspan="8" valign="top" bgcolor="#FFFFFF" style="border-style: solid; border-color: #000080"><div class="info" id=list style="width:100%;height:405; overflow-y: auto; border: solid 1 gray;"></div></td>
- <td height="16" colspan="2" align="center" valign="middle" bordercolor="#FF0000" bgcolor="#000080" style="border-style: solid; border-color: #000080"><div class="preview" id="preview">
- <p> </p>
- </div>
- <span class="STYLE2"> 信息公布</span></td>
- </tr>
- <tr>
- <td height="182" colspan="2" align="left" valign="top" bgcolor="#FFFFFF" class="info" style="border-style: solid; border-color: #000080"><div class="info" id="infotext" style="width:100%;height:177; overflow-y: auto">
- <p>本程序可以自由下载网易图片..</p>
- <p> </p>
- </div></td>
- </tr>
- <tr>
- <td height="33" colspan="2" align="center" valign="middle" bgcolor="#FFFFFF" class="info" style="border-style: solid; border-color: #000080"><input name="add" type="submit" class="s_button" id="add" onclick="show()" value="取文件信息" /></td>
- </tr>
- <tr>
- <td height="33" align="center" valign="middle" bgcolor="#FFFFFF" style="border-style: solid; border-color: #000080"><select name="Atype" id="Atype" onchange="changevalue()">
- <option value="jpg">彩图</option>
- <option value="gif">动画</option>
- </select></td>
- <td height="33" align="center" valign="middle" bgcolor="#FFFFFF" style="border-style: solid; border-color: #000080"><select name="imagetype" id="imagetype">
- <option selected="selected">图片类型</option>
- <option>全部</option>
- <option value="90">绝色风光</option>
- <option value="91">四季花语 </option>
- <option value="89">海底世界 </option>
- <option value="34">绝色美女 </option>
- <option value="198">都市丽人</option>
- <option value="200">手绘美女</option>
- </select></td>
- </tr>
- <tr>
- <td height="33" colspan="2" align="center" valign="middle" bgcolor="#FFFFFF" style="border-style: solid; border-color: #000080"><input name="del2" type="submit" class="s_button" id="del2" onclick="downloadfile()" value="下载选定项" /></td>
- </tr>
- <tr>
- <td height="33" colspan="2" align="center" valign="middle" bgcolor="#FFFFFF" style="border-style: solid; border-color: #000080"><input name="del" type="submit" class="s_button" id="del" onclick="tb_del()" value="删除选定项" /></td>
- </tr>
- <tr>
- <td width="5%" height="25" align="center" valign="middle" bgcolor="#000080" class="STYLE2" style="border-style: solid; border-color: #000080">从 </td>
- <td width="14%" bgcolor="#FFFFFF" valign="middle" align="center" style="border-style: solid; border-color: #000080"><a title="在此处输入起始页数">
- <input name="start1" type="text" id="start1" value="1" size="10" />
- </a></td>
- </tr>
- <tr>
- <td height="26" align="center" valign="middle" bgcolor="#000080" class="STYLE2" style="border-style: solid; border-color: #000080">到</td>
- <td height="26" align="center" valign="middle" bgcolor="#FFFFFF" style="border-style: solid; border-color: #000080"><a title="在此处输入结束页数">
- <input name="start2" type="text" id="start2" size="10" value="1"/>
- </a></td>
- </tr>
- </table>
- <script language="vbscript">
- Public fileext
- str1 = "<tr><td><span class='grid1'><input type=checkbox id='sall' onclick='selectall()'>全都选</span></td>"
- str1 = str1& "<td><span class='grid1'>预览</span></td>"
- str1 = str1 & "<td><span class='grid1'>文件路径</span></td>"
- str1 = str1 & "<td><span class='grid1'>文件名称</span></td></tr>"
- Sub Window_onLoad
- window.resizeTo 750, 515
- ileft = (window.screen.Width -750) / 2
- itop = (window.screen.height -515) / 2
- window.moveTo ileft, itop
- End Sub
- Function connect(num)
- Dim imageinfo, Length
- fileext = Atype.options(Atype.selectedindex).Value
- imgtype = imagetype.options(imagetype.selectedindex).Value
- imgtypenum = Atype.selectedindex
- url = "http://mms.163.com/new_web/cm_lv2_pic.jsp?catID="&imgtype&"&ord=dDate&page="&num&"&type="&imgtypenum&"&key="
- imageurl = "http://mmsimg.163.com/new_web/loaditem.jsp/type="&imgtypenum&"/path="
- Set http = CreateObject("Microsoft.XMLHTTP")
- http.Open "GET", url, False
- http.send
- vIn = http.ResponseBody
- strReturn = ""
- For i = 1 To LenB(vIn)
- ThisCharCode = AscB(MidB(vIn, i, 1))
- If ThisCharCode < &H80 Then
- strReturn = strReturn & Chr(ThisCharCode)
- Else
- NextCharCode = AscB(MidB(vIn, i + 1, 1))
- strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt (NextCharCode))
- i = i + 1
- End If
- Next
- '------获取文件的地址------------'
- Do
- pos = InStr(strReturn, "showPic")
- pos1 = InStr(strReturn, "128x128")
- If pos>0 Then
- Length = pos1 - pos
- imageinfo = Mid(strReturn, pos, Length)
- images = Split(imageinfo, ",")
- imagepath = Mid(images(2), 2, Len(images(2)) -1)&"128x128."& fileext
- '----------获取文件的名字------------'
- namepos = InStr(strReturn, "\n名字:")
- namepos1 = InStr(strReturn, "\n人气")
- namelength = namepos1 - namepos
- imagename = Mid(Mid(strReturn, namepos, namelength), 6)
- strHTML = strHTML & "<tr><td><span class='grid2'><input id=addme type=checkbox>选定</span></td>"
- strHTML = strHTML &"<td><span class='grid3'><a onMousemove='view()' onmouseout='hideview()' href=#><img onClick='addpro()' src='"&imageurl&imagepath&"' width=30 height=20></a></span></td>"
- strHTML = strHTML & "<td><span class='grid2'>" & imagepath & "</span></td>"
- strHTML = strHTML & "<td><span class='grid2'>" & imagename & "</span></td></tr>"
- strReturn = Mid(strReturn, namepos1 + 20)
- Else
- Exit Do
- End If
- Loop
- connect = strHTML
- End Function
- Function writeinner()
- For i = start1.Value To start2.Value
- strHTML = strHTML & connect(i)
- Next
- strHTML = "<table id='mytable' width=100% border=1 bordercolor=green>" &str1&strHTML& "</table>"
- list.innerHTML = strHTML
- infotext.innertext = infotext.innertext & "连接成功。"
- infotext.innertext = infotext.innertext & vbCrLf &vbCrLf & "从第" & start1.Value & "页到第" & start2.Value & "页的gif图片文件信息!"
- End Function
- Function show()
- If Not (IsNumeric(start2.Value)) Or Not (IsNumeric(start2.Value)) Then
- infotext.innertext = infotext.innertext & vbCrLf & "配置错误..."
- Else
- infotext.innertext = "正在连接..."
- window.settimeout "writeinner()", 200
- End If
- End Function
- Sub view()
- strHTML1 = "<img src='" &window.event.srcElement.src &"' width='140' height='140'>"
- preview.runtimeStyle.pixelLeft = window.event.x + 5
- preview.runtimeStyle.pixelTop = window.event.y + 5
- preview.style.visibility = "visible"
- preview.innerHTML = strHTML1
- End Sub
- Sub hideview()
- preview.style.visibility = "hidden"
- End Sub
- Sub addpro()
- Set obj = window.event.srcElement.parentelement.parentelement.parentelement.parentelement
- If obj.cells(0).children(0).children(0).checked = false Then
- obj.cells(0).children(0).children(0).checked = true
- Else
- obj.cells(0).children(0).children(0).checked = false
- End If
- End Sub
- Sub tb_del()
- Set obj = document.all.namedItem("mytable")
- If obj.rows.Length>2 Then
- Set tagID = document.all.namedItem("addme") '获取对象ID:delcheck'
- For Each otag in tagID
- If otag.checked Then
- objrow = otag.parentelement.parentelement.parentelement.rowindex '获取对象的行序数;'
- obj.deleteRow(objrow) '删除该项;'
- End If
- Next
- Else
- MsgBox "才一项你都删,哪有这样的?!", 0, "删除提醒"
- Exit Sub
- End If
- End Sub
- Sub selectall()
- Set obj = document.all.namedItem("mytable")
- Set objcheck = document.all.namedItem("sall")
- Set tagID = document.all.namedItem("addme") '获取对象ID:addme'
- For Each otag in tagID
- otag.checked = objcheck.checked
- Next
- End Sub
- Sub download()
- Set fso = CreateObject("Scripting.FileSystemObject")
- If Not (fso.FolderExists("★网易下载图片★")) Then
- fso.CreateFolder("★网易下载图片★")
- End If
- Set http = CreateObject("Microsoft.XMLHTTP")
- Set obj = document.all.namedItem("mytable")
- Set tagID = document.all.namedItem("addme") '获取对象ID:delcheck'
- For Each otag in tagID
- If otag.checked Then
- Set objrow = otag.parentelement.parentelement.parentelement '获取对象的行;'
- downurl = objrow.cells(1).children(0).children(0).children(0).src
- filename = objrow.cells(3).children(0).innertext
- http.Open "GET", downurl, False
- http.send
- Set aso = CreateObject("ADODB.Stream")
- aso.Type = 1
- aso.Open
- aso.Write http.ResponseBody
- aso.savetofile "★网易下载图片★\" & filename & "."&fileext, 2
- aso.Close
- End If
- Next
- infotext.innertext = infotext.innertext & vbCrLf & "文件下载成功。"
- infotext.innertext = infotext.innertext & vbCrLf & "文件保存在:" & vbCrLf &"“★网易下载图片★”下"
- End Sub
- Sub downloadfile()
- infotext.innertext = "正在下载文件...." '"
- window.settimeout "download()", 200
- End Sub
- Sub changevalue()
- AID = Array("130", "112", "67", "14", "122", "158")
- PID = Array("90", "91", "89", "34", "198", "200")
- If Atype.selectedindex = 0 Then
- For i = 0 To 5
- imagetype.options(i + 2).Value = PID(i)
- Next
- Else
- For i = 0 To 5
- imagetype.options(i + 2).Value = AID(i)
- Next
- End If
- End Sub
- </script>
最后此篇关于用于提取网易文件的hta代码的文章就讲到这里了,如果你想了解更多关于用于提取网易文件的hta代码的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。
我在为 MacOSX 构建的独立包中添加 DMG 背景的自定义图标时遇到问题。我在项目的根目录中添加了一个包。正在从中加载自定义图标,但没有加载 DMG 背景图标。我正在使用 Java fx 2.2.
Qt for Symbian 和 Qt for MeeGo 有什么区别?我知道 Qt 是一个交叉编译平台。这是否意味着如果我使用来自 Qt 的库,完全相同的库可以在所有支持 Qt 的设备(例如 Sym
我正在尝试使用 C# .NET 3.5/4.0 务实地运行 SQL Server 数据库的备份。我已经找到了如何完成此操作,但是我似乎找不到用于备份的命名空间库。 我正在寻找 Microsoft.Sq
我最近在疯狂学习 Java,但我通常是一名 .NET 开发人员。 (所以请原谅我的新手问题。) 在 .Net 中,我可以在不使用 IIS 的情况下开发 ASP.Net 页面,因为它有一个简化的 Web
这post仅当打印命令中有字符串时才有用。现在我有大量的源代码,其中包含一条声明,例如 print milk,butter 应该格式化为 print(milk,butter) 用\n 捕获行尾并不成功
所以我的问题是: https://gist.github.com/panSarin/4a221a0923927115584a 当我保存这个表格时,我收到了标题中的错误 NoMethodError (u
如何让 Html5 音频在点击时播放声音? (ogg 用于 Firefox 等浏览器,mp3 用于 chrome 等浏览器) 到目前为止,我可以通过 onclick 更改为单个文件类型,但我无法像在普
如果it1和it2有什么区别? std::set s; auto it1 = std::inserter(s, s.begin()); auto it2 = std::inserter(s, s.en
4.0.0 com.amkit myapp SpringMVCFirst
我目前使用 Eclipse 作为其他语言的 IDE,而且我习惯于不必离开 IDE 做任何事情 - 但是我真的很难为纯 ECMAScript-262 找到相同或类似的设置。 澄清一下,我不是在寻找 DO
我想将带有字符串数组的C# 结构发送到C++ 函数,该函数接受void * 作为c# 结构和char** 作为c# 结构字符串数组成员。 我能够将结构发送到 c++ 函数,但问题是,无法从 c++ 函
我正在使用动态创建的链接: 我想为f:param附加自定义转换器,以从#{name}等中删除空格。 但是f:param中没有转换器
是否可以利用Redis为.NET创建后写或直写式缓存?理想情况下,透明的高速缓存是由单个进程写入的,并且支持从数据库加载丢失的数据,并每隔一段时间持久保存脏块? 我已经搜查了好几个小时,也许是goog
我正在通过bash执行命令的ssh脚本。 FILENAMES=( "export_production_20200604.tgz" "export_production_log_2020060
我需要一个正则表达式来出现 0 到 7 个字母或 0 到 7 个数字。 例如:匹配:1234、asdbs 不匹配:123456789、absbsafsfsf、asf12 我尝试了([a-zA-Z]{0
我有一个用于会计期间的表格,该表格具有期间结束和开始的开始日期和结束日期。我使用此表来确定何时发生服务交易以及何时在查询中收集收入,例如... SELECT p.PeriodID, p.FiscalY
我很难为只接受字符或数字的 Laravel 构建正则表达式验证。它是这样的: 你好<-好的 123 <- 好的 你好123 <-不行 我现在的正则表达式是这样的:[A-Za-z]|[0-9]。 reg
您实际上会在 Repeater 上使用 OnItemDataBound 做什么? 最佳答案 “此事件为您提供在客户端显示数据项之前访问数据项的最后机会。引发此事件后,数据项将被清空,不再可用。” ~
我有一个 fragment 工作正常的项目,我正在使用 jeremyfeinstein 的 actionbarsherlock 和滑动菜单, 一切正常,但是当我想自定义左侧抽屉列表单元格时,出现异常
最近几天,我似乎平均分配时间在构建我的第一个应用程序和在这里发布问题!! 这是我的第一个应用程序,也是我们的设计师完成的第一个应用程序。我试图满足他所做的事情的外观和感觉,但我认为他没有做适当的事情。
我是一名优秀的程序员,十分优秀!