第二辑、网页：篡改、保留和屏蔽某些内容

蓝天630902

引子玄 发表于 2013-1-6 18:24
[quote]蓝天630902 发表于 2013-1-6 18:22

为了QT，把没有TABLE标签的，篡改成有TABLE标签

Sub 改变_hao123_FORM()
    On Error Resume Next
    With CreateObject("InternetExplorer.application")
        .Visible = True
        .Navigate "http://www.hao123.com/"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        Set r = .document.getElementById("mail")
        r.FirstChild.outerhtml = Replace(r.FirstChild.outerhtml, "FORM", "table")
        Debug.Print r.FirstChild.tagName
        Debug.Print r.outerhtml
    End With
End Sub

蓝天630902

引子玄 发表于 2013-1-6 18:24
[quote]蓝天630902 发表于 2013-1-6 18:22

为了QT，把没有TABLE标签的，篡改成有TABLE标签

Sub 改变_hao123_FORM()
    On Error Resume Next
    With CreateObject("InternetExplorer.application")
        .Visible = True
        .Navigate "http://www.hao123.com/"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        Set r = .document.getElementById("mail")
        r.FirstChild.outerhtml = Replace(r.FirstChild.outerhtml, "FORM", "table")
        Debug.Print .document.All.tags("table")(0).innerText
    End With
End Sub

蓝天630902

kangatang 发表于 2013-1-6 18:57
网页加载的时候，很多JS文件都是从cache中读取(如果CACHE中有保存)，但我也尝试在CACHE JS文件中加入一句 ...

用ｖｂａ读取CACHE中的mlogin.js是可以做到的，
但是，我没办法把mlogin.js再保存到CACHE中。

引子玄

蓝天630902 发表于 2013-1-7 06:04
Sub 改变_hao123_FORM()
    On Error Resume Next
    With CreateObject("InternetExplorer.applicat ...

Sub 为啥一定要通过getElementById来篡改_为啥不能通过ALL_TAGS来篡改呢()

    On Error Resume Next
    With CreateObject("InternetExplorer.application")
        .Visible = True
        .Navigate "http://www.hao123.com/"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        
        .document.getElementById("mail").outerhtml = Replace(.document.getElementById("mail").outerhtml, "FORM", "table")
        MsgBox .document.all.tags("table")(0).innerText
        
    End With
   
End Sub

引子玄

个人初步理解“篡改”中使用getElementById和all.tags("html")的区别点：

1、使用getElementById篡改，可以直接调用
2、使用all.tags("html")篡改，不可以直接调用，需要通过COOKIE生成后才可调用

朦胧理解不见得对，可能还有脚本等其他因素

蓝天630902

引子玄 发表于 2013-1-7 10:32
个人初步理解“篡改”中使用getElementById和all.tags("html")的区别点：

1、使用getElementById篡改，可 ...

微软，多数情况下是不给顶级操作权限的，比如说：
GetClipboardData，获得的图片，就没有头部，
.body.innerHTML = .responseText，也是没有head（头部）的，
…………

东风破55

网页翻页，这个做的真好，谢谢楼主啊！

VBA万岁

蓝天630902 发表于 2012-9-14 15:52
又绕进去了，到别的地方去。

现在讲“http://de.yusuan.com/page_content.asp?content=98”，

Mark一下。

weiyingde

蓝天630902 发表于 2013-1-7 11:27
微软，多数情况下是不给顶级操作权限的，比如说：
GetClipboardData，获得的图片，就没有头部，
.body. ...

凑过热闹，过来看看。我虽外行，但看出你们的执着和热心，感谢有这次的见面，送个见面礼，好下次遇到这类问题，再请教，不知行不？