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

cumulonimbus

kangatang 发表于 2012-9-18 15:23
alert("同一IP每日每个选项只可投10票！");window.close();

这是什么玩法，我一句也没看懂哈

cumulonimbus

蓝天630902 发表于 2012-9-18 15:15
这里不太好讨论这个问题，真的不好意思。

没事，我只是学习下，并没有实用。
我用了你的程序，为什么还有这么多标签没能找出来呢？谢谢
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .Navigate "http://www.baidu.com/"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        For i = 0 To .document.All.Length - 1
            If .document.All(i).ChildNodes <> "[object]" And .document.All(i).tagname <> "Title" Then
                .document.All(i).innerText = .document.All(i).tagname
            End If
        Next i
    End With

cumulonimbus

蓝天630902 发表于 2012-9-18 11:42
'现在，还没办法解决。
'vba，我告诉你，现在“可能”还不支持点击这个“option”。主要是，我现在还没有 ...

呵呵，蓝天老师，我已经想到办法点击了。特上传与大家分享
    Set iechuangkou = New ShellWindows
    For Each iedizi In iechuangkou
        If TypeOf iedizi.document Is HTMLDocument Then
            If iedizi.document.URL Like "http://baidu.lehecai.com/lottery/qlc/" Then
                Set r = iedizi.document.All.tags("option")
                r(9).Selected = True
                r(10).Selected = True
            End If
        End If
    Next

蓝天630902

cumulonimbus 发表于 2012-9-18 19:46
呵呵，蓝天老师，我已经想到办法点击了。特上传与大家分享
    Set iechuangkou = New ShellWindows
...

厉害，现在可以这样子写了：

Sub 比如说吧5()
    On Error Resume Next
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .Navigate "http://baidu.lehecai.com/lottery/qlc/"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        For i = 1 To 20
            .document.getElementbyid("feel_luck").Click
        Next i
        Set r = .document.getElementbyid("multiple_select").All.tags("option")
        For i = 0 To r.Length - 1
            Cells(i + 1, 1) = r(i).Text
        Next i
        r(8).Selected = True
        r(10).Selected = True
    End With
End Sub

cumulonimbus

蓝天630902 发表于 2012-9-18 19:52
厉害，现在可以这样子写了：

Sub 比如说吧5()

都是蓝天老师教导有方，否则我至今还一窍不通哈。多谢老师耐心教导，谢谢。

蓝天630902

cumulonimbus 发表于 2012-9-18 19:55
都是蓝天老师教导有方，否则我至今还一窍不通哈。多谢老师耐心教导，谢谢。

你太客气了，
其实，我也是一知半解，离灵活运用还相差十分遥远

cumulonimbus

蓝天630902 发表于 2012-9-18 19:59
你太客气了，
其实，我也是一知半解，离灵活运用还相差十分遥远

蓝天老师，为什么我在这个网站操作都无法显示标签名或ID呢？
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .Navigate "http://club.excelhome.net/thread-917808-1-1.html"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        
        For i = 0 To .document.All.Length - 1
            If .document.All(i).innerText = "发贴" Or .document.All(i).innerText = "回复" Then .document.All(i).innerText = .document.All(i).tagName
        Next i
    End With
以及这个
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .Navigate "http://club.kdnet.net/dispbbs.asp?page=1&boardid=15&id=7300923"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        For i = 0 To .document.All.Length - 1
            .document.All(i).Value = .document.All(i).tagName
        Next i
    End With

cumulonimbus

蓝天630902 发表于 2012-9-18 19:59
你太客气了，
其实，我也是一知半解，离灵活运用还相差十分遥远

蓝天老师，https://passport.csdn.net/account/login这个网站我用许多方法都无法自动登录，找到它的标签、classname，可否看一下？

蓝天630902

cumulonimbus 发表于 2012-9-21 20:02 https://passport.csdn.net/account/login这个网站我用许多方法都无法自动登录，找到它的标签、 ...

Sub 会员登录_CSDN会员中心()
    On Error Resume Next
    With CreateObject("internetexplorer.application")
        .Visible = True
        .Navigate "https://passport.csdn.net/account/loginbox?callback=logined&hidethird=1&from=http://www.csdn.net/"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        .document.getElementByid("u").Value = "用户名："
        .document.getElementByid("p").Value = "密　码："
        .document.getElementByid("aLogin").Click '登 录
    End With
End Sub

cumulonimbus

蓝天630902 发表于 2012-9-21 20:58
Sub 会员登录_CSDN会员中心()
    On Error Resume Next
    With CreateObject("internetexplorer.a ...

    On Error Resume Next
    With CreateObject("internetexplorer.application")
        .Visible = True
        .Navigate "https://passport.csdn.net/account/loginbox?callback=logined&hidethird=1&from=http://www.csdn.net/"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        .document.getElementByid("u").Value = ""
        .document.getElementByid("p").Value = ""
        .document.getElementByid("aLogin").Click '登 录
    End With
奇怪，无法登录。蓝天老师，你试试看，用户名与密码是真实的，我这边无法登录，提示是网上有错误。