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

引子玄

蓝天630902 发表于 2012-12-23 16:58
Sub 发帖_强国社区()
    On Error Resume Next
    With CreateObject("internetexplorer.application ...

帖子倒是发成功了。但是：当我点自己的马甲退出的时候，却卡死了，只好重启机子

蓝天630902

引子玄 发表于 2012-12-23 17:18
帖子倒是发成功了。但是：当我点自己的马甲退出的时候，却卡死了，只好重启机子

Sub 回复_强国社区()
    On Error Resume Next
    With CreateObject("internetexplorer.application")
        .Visible = True
        .Navigate "http://bbs1.people.com.cn/post/1/1/2/125492000.html#quickpost"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        .document.All("titleText").Value = "标题"
        Set r = .document.frames("eWebEditor1").document
        r.frames(0).document.body.innerText = "aa44ss"
        r.All("TB_Name_FormatBlock").All.tags("option")(3).Selected = True    '选择“段落样式”的“标题二”
        r.All("TB_Name_FormatBlock").onchange    '确定选择“段落样式”的“标题二”
        .document.All("send").Click
        '.Quit
    End With
End Sub

cumulonimbus

我有两个浏览器，IE与火狐，IE是默认浏览器。如果我想用火狐浏览器打开excelhome网站，要如何写呢？谢谢

莫悠悠

是不是有点黑客的味道？

kangatang

网页加载的JS文件可以篡改吗？（在JS文件中间某个位置插入alert(...);）

引子玄

同问====1、可以篡改外部JS吗？2、可以篡改标签吗？

蓝天630902

kangatang 发表于 2013-1-6 17:50
网页加载的JS文件可以篡改吗？（在JS文件中间某个位置插入alert(...);）

不知道，
还没明白，这个JS文件是在缓存目录里面吗？

蓝天630902

引子玄 发表于 2013-1-6 18:19
同问====1、可以篡改外部JS吗？2、可以篡改标签吗？

举个例子看看，比如说提供一个网址来看看

引子玄

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

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

例如：
http://www.hao123.com/
它就没有TABLE标签，但是有FORM标签

在不篡改标签的情况下，只能整张页面导入，
如果可以篡改分栏目块的标签成TABLE标签，那么我们就可以实现：选择性的导入。

kangatang

蓝天630902 发表于 2013-1-6 18:20
不知道，
还没明白，这个JS文件是在缓存目录里面吗？

网页加载的时候，很多JS文件都是从cache中读取(如果CACHE中有保存)，但我也尝试在CACHE JS文件中加入一句ALERT语句，保存后，在打开网页(并确信该JS文件从CACHE中读取)，按理会执行alert语句，但是没有。

网址https://member.hipiao.com/可以试试，缓存文件里面有个mlogin.js，登陆是要执行该文件。