先锋海盗类

2016-02-19 11:11 9 1 收藏

在这个颜值当道,屌丝闪边的时代,拼不过颜值拼内涵,只有知识丰富才能提升一个人的内在气质和修养,所谓人丑就要多学习,今天图老师给大家分享先锋海盗类,希望可以对大家能有小小的帮助。

【 tulaoshi.com - Web开发 】

%
'转发时请保留此声明信息,这段声明不并会影响你的速度!
'**************************   Ver2005  最终版********************************
'作者:孙立宇、apollosun、ezhonghua
'改进者:arllic
'
'官方网站:http://www.lkstar.com   技术支持论坛:http://bbs.lkstar.com
'电子邮件:kickball@netease.com    在线QQ:94294089
'版权声明:版权没有,盗版不究,源码公开,各种用途均可免费使用,欢迎你到技术论坛来寻求支持。
'——小偷程序的原理是通过XHTML和ASP技术相结合,定向集中采集远程网页内容加工后转为本地虚拟网页。
'——此技术自诞生以来由于它的信息覆盖面、广同步更新和免维护的特性一直受到各编程爱好者的关注和追捧。
'——目前国内比较流行的实时新闻、闪客动漫、流行歌曲、软件下载、天气预报、股票查询等优秀作品。
'——然而由于制作小偷程序的过程过于复杂和繁琐,还由于远程网页代码的变更而经常失效,这使小偷网页的
'维护成为一个噩梦!所以到目前为止,目前此类佳作不多,技术也集中在小部分人手中。
'——先锋海盗类的诞生将使小偷程序的制作和维护变得容易起来。先锋海盗类提供的12种类方法将使你对采集
'内容的编辑掌控能力变得空前强大,另有贴心的类排错debug方法可以使你随时观察自己在各步骤获得的代码和
'页面显示效果,彻底掌握这些类方法将使你为所欲为地采集编辑各种远程页面,而且维护也相当方便!
'——总而言之,使用先锋海盗类将使你的"小偷"程序晋升为"海盗"程序!
'详细使用说明或范例请见下载附件或到本人官方站点下载!
'-------------------------------------------------------------------------------------
Class clsThief
'____________________
Private value_    '窃取到的内容
Private src_      '要偷的目标URL地址
Private isGet_    '判断是否已经偷过

public property let src(str) '赋值—要偷的目标URL地址/属性
src_=str
end property

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/webkaifa/)

public property get value '返回值—最终窃取并应用类方法加工过的内容/属性
value=value_
end property

Public Property get Version
 Version="先锋海盗类 Version 2005"
End Property

private sub class_initialize()
value_=""
src_=""
isGet_= false
end sub

private sub class_terminate()
end sub

private Function BytesToBstr(body,Cset) '中文处理
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function

public sub steal() '窃取目标URL地址的HTML代码/方法
if src_"" then
 dim Http
 set Http=server.createobject("MSXML2.XMLHTTP")
 Http.open "GET",src_ ,false
 Http.send()
 if Http.readystate4 then
  exit sub
 end if
 value_=BytesToBSTR(Http.responseBody,"GB2312")
 isGet_= True
 set http=nothing
 if err.number0 then err.Clear
else
 response.Write("scriptalert(""请先设置src属性!"")/script")
end if
end sub

'删除偷到的内容中里面的换行、回车符以便进一步加工/方法
public sub noReturn()
if isGet_= false then call steal()
value_=replace(replace(value_ , vbCr,""),vbLf,"")
end sub

'对偷到的内容中的个别字符串用新值更换/方法
public sub change(oldStr,str) '参数分别是旧字符串,新字符串
if isGet_= false then call steal()
value_=replace(value_ , oldStr,str)
end sub

'按指定首尾字符串对偷取的内容进行裁减(不包括首尾字符串)/方法
public sub cut(head,bot) '参数分别是首字符串,尾字符串
if isGet_= false then call steal()
  if instr(value_ , head)0 and instr(value_ , bot)0 then
   value_=mid(value_ ,instr(value_ ,head)+len(head),instr(value_ ,bot)-instr(value_ ,head)-len(head))
  else
   value_= "p align=""center""函数cut指定裁减内容不存在,请重新定义"
  end if
end sub

'按指定首尾字符串对偷取的内容进行裁减(包括首尾字符串)/方法
public sub cutX(head,bot) '参数分别是首字符串,尾字符串
if isGet_= false then call steal()
  if instr(value_,head)0 and instr(value_,bot)0 then
   value_=mid(value_ ,instr(value_ ,head),instr(value_ ,bot)-instr(value_ ,head)+len(bot))
  else
   value_= "p align=""center""函数cutX指定裁减的内容不存在"
  end if
end sub

'按指定首尾字符串位置偏移指针对偷取的内容进行裁减/方法
public sub cutBy(head,headCusor,bot,botCusor)
'参数分别是首字符串,首偏移值,尾字符串,尾偏移值,左偏移用负值,偏移指针单位为字符数
if isGet_= false then call steal()
  if instr(value_,head)0 and instr(value_,bot)0 then
   value_=mid(value_ ,instr(value_ ,head)+len(head)+headCusor,instr(value_ ,bot)-1+botCusor-instr(value_ ,head)-len(head)-headcusor)
  else
   value_= "p align=""center""函数cutBy指定裁减内容不存在"
  end if
end sub

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/webkaifa/)

'按指定首尾字符串对偷取的内容用新值进行替换(不包括首尾字符串)/方法
public sub filt(head,bot,str) '参数分别是首字符串,尾字符串,新值,新值位空则为过滤
if isGet_= false then call steal()
  if instr(value_,head)0 and instr(value_,bot)0 then
   value_=replace(value_,mid(value_ ,instr(value_ ,head)+len(head) , instr(value_ ,bot)-instr(value_ ,head)-len(head)),str)
  else
   value_= "p align=""center""函数filt指定替换的内容不存在"
  end if
end sub

'按指定首尾字符串对偷取的内容用新值进行替换(包括首尾字符串)/方法
public sub filtX(head,bot,str) '参数分别是首字符串,尾字符串,新值,新值为空则为过滤
if isGet_= false then call steal()
  if instr(value_,head)0 and instr(value_,bot)0 then
        value_=replace(value_,mid(value_ ,instr(value_ ,head),instr(value_ ,bot)-instr(value_ ,head)+len(bot)),str)
  else
   value_= "p align=""center""函数filtX指定替换的内容不存在"
  end if
end sub

'按指定首尾字符串位置偏移指针对偷取的内容新值进行替换/方法
public sub filtBy(head,headCusor,bot,botCusor,str)
'参数分别是首字符串,首偏移值,尾字符串,尾偏移值,新值,左偏移用负值,偏移指针单位为字符数,新值为空则为过滤
if isGet_= false then call steal()
  if instr(value_,head)0 and instr(value_,bot)0 then
   value_=replace(value_ ,mid(value_ ,instr(value_ ,head)+len(head)+headCusor,instr(value_ ,bot)-1+botCusor-instr(value_ ,head)-len(head)-headcusor),str)
  else
   value_= "p align=""center""函数filtBy指定替换的内容不存在"
  end if
end sub

'对符合条件的内容进行分块采集并组合,最终内容为以!--lkstar--隔断的大文本/方法
'通过属性value得到此内容后你可以用split(value,"!--lkstar--")得到你需要的数组
public sub rebuild(str) '参数是你目标页面反复出现的特征字符
if isGet_= false then call steal()
value_= replace(value_,str,vbcrlf&"!--lkstar--"&vbcrlf)
end sub

'类排错模式——在类释放之前应用此方法可以随时查看你截获的内容HTML代码和页面显示效果/方法
public sub debug()
dim tempstr
tempstr="SCRIPTfunction runEx(){var winEx2 = window.open("""", ""winEx2"", ""width=500,height=300,status=yes,menubar=no,scrollbars=yes,resizable=yes""); winEx2.document.open(""text/html"", ""replace""); winEx2.document.write(unescape(event.srcElement.parentElement.children[0].value)); winEx2.document.close(); }function saveFile(){var win=window.open('','','top=10000,left=10000');win.document.write(document.all.asdf.innerText);win.document.execCommand('SaveAs','','javascript.htm');win.close();}/SCRIPTcenterTEXTAREA id=asdf name=textfield rows=32  wrap=VIRTUAL cols=""120"""&value_&"/TEXTAREABRBRINPUT name=Button onclick=runEx() type=button value=""查看效果""  INPUT name=Button onclick=asdf.select() type=button value=""全选""  INPUT name=Button onclick=""asdf.value=''"" type=button value=""清空""  INPUT onclick=saveFile(); type=button value=""保存代码""/center"
response.Write(tempstr)
end sub
end class
%

来源:http://www.tulaoshi.com/n/20160219/1596712.html

延伸阅读
手机影音先锋怎么用 第一步:在你的手机上打开影音先锋,在影音先锋手机版界面点击右上角的三点按钮进入选项菜单界面, 在出现的菜单中点击打开MRL选项,如图所示。 第二步:在文本框中输入你要看的片子的地址,包括xfplay://开头的,http开头的网址,如图所示。输入完成后,点击打开按钮开始播放该片子。 第三步...
黑湾海盗 人物技能翻译一览 Walker de Planc 自带技能:Drunken Frenzy 临时增加此角色挥对伤害的抵抗力。 Jolie Roger 自带技能:Blade Tornado 一定时间内增加此角色的挥剑和移动速度。 Longshot Jack 自带技能:Rabbit Finger 在一定时间...
《海盗掠夺战》新手前期玩法技巧 目前这款游戏也只有加拿大服有开,所以这里的心得也是在玩此服的一些经验总结,以下整理的都是一些经验技巧,对于在游戏中初期的各位新手们都有一些非常实用的建议。 1、海盗掠夺战中要优先建造资源型的建筑,保证金币和酒的来源充足。 2、第二...
《急难先锋2012》流程视频攻略 训练关 《急难先锋2012》free play部分事件的解决对策 Medical ***:一般就是某个人心脏病突发或者从楼上摔了下来,派一个Doc和一个Ambulance(这样算做一组医疗)过去就行了 Suicide Attempt:威胁自杀。有两种,跳河和跳楼,都是派消防的救援车(Heavy Rescue)过去,但是要注意跳河的要排潜水员。到场...

经验教程

257

收藏

47
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部