keshun

回复 4# zaqmlp


    就单个网页显示的文字内容，我现用VBS模拟键盘就能做到，只是不理想。

zaqmlp

回复 3# keshun

你要哪些数据可以直接抓取，下载整个网页更麻烦

keshun

回复 2# zaqmlp


    整个网页数据文字复制下来，在经过文本处理就行了，条件越多越复杂，对效率要求不高。

zaqmlp

你要的是哪些动态数据？没必要下载整个网页吧

keshun

网址：https://www
这网址IE打开显示不全，只能用360极速浏览器，网页动态数据要5－8秒才能加载完成。
360极速浏览器：
C:\Users\Administrator\AppData\Local\360Chrome\Chrome\Application\360chrome.exe

我现用VBS模拟键盘操作“全选”“复制”文字写入a.txt虽然能完成，每10分钟要激活当前窗口运行一次太影响电脑的其它操作，又会受到QQ微信的弹窗信息影响。

mshta http://bathome.net/s/hta/?echo=false download('https://www','1.html')
HtoX32c /IP 1.html
复制代码

这代码动态加载数据文字复制不了。
网页加载完成后手动另存为网页全部，在用HtoX32c转就包含了动态数据，说明代码在没加载完成时就下载而无加载数据文字。

请求代码，要求打开网页延时下载复制文字，网页后台运行或最小化窗口运行，VBS或BAT都行，谢谢！！

keshun

mshta http://bathome.net/s/hta/?echo=false download('https://www','1.html')
HtoX32c /IP 1.html
复制代码

这代码调用在线脚本不能下载加载数据，不知有没高手帮帮忙，谢谢！！！！

keshun

谢谢楼上高手的回复，看来复制这个站点的问题还是比较难，也不知能不能搞定？？谢谢大家！！

flashercs

其实我也不知我说的啥...........

flashercs

动态网页不能静态获取了,需要模拟浏览器,用IE.app COM对象即可,但是此站点对IE的兼容太差了,右边内容Transactions无法显示;所以下载的网页页不全; 要想全面,去用selenium+chromeDriver模拟浏览器
给个IE.App的vbs脚本:
用法:vbs脚本名 url 保存.html

' To fetch dynamic HTML document,and save to a file
' Usage: thisScript.vbs URL FilePathToSave
Option Explicit
Sub main()
  On Error Resume Next
  Dim objIE,objADO
  If WSH.Arguments.Count <> 2 Then Exit Sub
  Set objIE = WSH.CreateObject("InternetExplorer.Application", "evtIE_")
  Set objADO = CreateObject("ADODB.Stream")
  objIE.Visible = False
  objIE.Navigate2 WSH.Arguments(0)
  ShowError
  Do While objIE.ReadyState <> 4
    WSH.Sleep 10
  Loop
  With objADO
    .Mode = 3
    .Type = 2
    .Charset = objIE.document.charset
    .Open
    .WriteText objIE.document.documentElement.outerHTML
    .SetEOS
    .SaveToFile WSH.Arguments(1), 2
    .Close
  End With
  objIE.Quit
  ShowError
  Set objIE = Nothing
  Set objADO = Nothing
End Sub
Sub ShowError()
  If Err.Number <> 0 Then
    WSH.Echo "Err # " & Err.Number & vbNewLine & _
    "Description: " & Err.Description & vbnewline & _
    "Source: " & Err.Source
    Err.Clear
  End If
End Sub

main
复制代码