设为首页收藏本站

切换到宽版

论坛BBS

批处理之家»论坛 › 批处理专区: BAT CMD DOS › BAT求助&讨论 › 求问这段批处理的作用

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

返回列表发新帖

查看: 22368|回复: 2

[其他] 求问这段批处理的作用

发表于 2017-9-28 22:00:06 | 显示全部楼层 |阅读模式

function getHtmlTxt(url){
try{
      var http = new ActiveXObject('MSXML2.XMLHTTP')
}
catch(e){
      var http = new ActiveXObject('WinHttp.WinHttpRequest.5.1')
}
http.open('get', url, false)
http.send()
try{
      var char = /chareset *?= *?([^\s;]+)/i.exec(http.getResponseHeader('content-type'))[1];
      var htmltext = BintoStr(http.ResponseBody, char);
}catch(e){
      try{
         var char = /<meta .*?charset ?= ?\"?([^\s\"]+)/i.exec(http.ResponseText)[1];
         var htmltext = BintoStr(http.ResponseBody, char);
      }catch(e){
         var htmltext = http.ResponseBody?http.ResponseBody:http.ResponseText;
      }
}
return htmltext;
}

回复

楼主| 发表于 2017-9-28 22:07:14 | 显示全部楼层

<script>
var fso = new ActiveXObject('Scripting.Filesystemobject');
var StdIn = fso.GetStandardStream(0);
var StdOut = fso.GetStandardStream(1);

function BintoStr(strBin,strCharset){
try{
      var stream = new ActiveXObject('ADODB.Stream')
      stream.Type = 1
      stream.Mode = 3
      stream.Open()
      stream.Write(strBin)
      stream.Position = 0
      stream.Type = 2
      stream.Charset = strCharset
      return stream.ReadText
}
catch(e){}
}

function getHtmlTxt(url){
try{
      var http = new ActiveXObject('MSXML2.XMLHTTP')
}
catch(e){
      var http = new ActiveXObject('WinHttp.WinHttpRequest.5.1')
}
http.open('get', url, false)
http.send()
try{
      var char = /chareset *?= *?([^\s;]+)/i.exec(http.getResponseHeader('content-type'))[1];
      var htmltext = BintoStr(http.ResponseBody, char);
}catch(e){
      try{
         var char = /<meta .*?charset ?= ?\"?([^\s\"]+)/i.exec(http.ResponseText)[1];
         var htmltext = BintoStr(http.ResponseBody, char);
      }catch(e){
         var htmltext = http.ResponseBody?http.ResponseBody:http.ResponseText;
      }
}
return htmltext;
}
加上开始这一段谢谢大神

回复 

发表于 2017-9-29 06:51:01 | 显示全部楼层

这个就是获取网页源码文本啊，相当于网页右键---查看源代码，得到的内容

回复 

返回列表发新帖

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 22:38 , Processed in 0.016759 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表