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

cumulonimbus

蓝天630902 发表于 2012-9-18 05:22
'在“随机选1注”上右击鼠标，它的地址为javascript://
'所以我们可以用地址“javascript://”来查
'

蓝天老师非常强大哈，这都能弄出来。
这个能解决吗？假设我上传了几十组号码，如果我要点击第3组号码，然后删除，要如何做到？如果要点击第17组号码，然后删除，又要如何做呢？谢谢

蓝天630902

cumulonimbus 发表于 2012-9-18 11:26
蓝天老师非常强大哈，这都能弄出来。
这个能解决吗？假设我上传了几十组号码，如果我要点击第3组号码，然 ...

'现在，还没办法解决。
'vba，我告诉你，现在“可能”还不支持点击这个“option”。主要是，我现在还没有找到好办法
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
    End With
End Sub

cumulonimbus

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

谢谢老师，我学到了不少知识，至少可以简单的操作网页啦
为什么这个程序没用呢，经查是L标签，i也没错，为什么会没用呢？困惑中
    With CreateObject("internetexplorer.application")
        .Visible = True
        .Navigate "http://club.excelhome.net/forum-2-1.html"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        .Document.All.tags("li")(5).Click
    End With

蓝天630902

cumulonimbus 发表于 2012-9-18 13:18
谢谢老师，我学到了不少知识，至少可以简单的操作网页啦
为什么这个程序没用呢，经查是L标签，i也没错， ...

应该有用，在我这里表现为：点选了“推荐”

cumulonimbus

蓝天630902 发表于 2012-9-18 13:24
应该有用，在我这里表现为：点选了“推荐”

奇怪，我这里却没任何反应

cumulonimbus

蓝天630902 发表于 2012-9-18 13:24
应该有用，在我这里表现为：点选了“推荐”

这是我昨天晚上弄出来的，为什么我的程序是要点击10次，可是运行结果却只能点击1次呢？
    With CreateObject("internetexplorer.application")
        .Visible = True
        .navigate "http://www.people.com.cn/n/2012/0912/c346186-18987485.html"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        For i = 1 To 10
        .document.All.tags("input")(8).Click
        .document.All.tags("input")(12).Click
        Sleep 1000
        Next i
    End With

蓝天630902

cumulonimbus 发表于 2012-9-18 13:25
奇怪，我这里却没任何反应

没任何反应？
我是ＸＰ＋ｉｅ8，不知道你是什么系统，

cumulonimbus

蓝天630902 发表于 2012-9-18 14:37
没任何反应？
我是ＸＰ＋ｉｅ8，不知道你是什么系统，

我的也是XP＋ie8的，试了很多遍了。
.Visible = True
        .navigate "http://www.people.com.cn/n/2012/0912/c346186-18987485.html"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        For i = 1 To 10
        .document.All.tags("input")(8).Click
        .document.All.tags("input")(12).Click
        Sleep 1000
        Next i
老师，我这个咋没用？放心，网站限制了每IP每天在每项中只能点10次，不能恶意刷票。

蓝天630902

cumulonimbus 发表于 2012-9-18 14:58
我的也是XP＋ie8的，试了很多遍了。
.Visible = True
        .navigate "http://www.people.com.cn/ ...

这里不太好讨论这个问题，真的不好意思。

kangatang

<script>alert("同一IP每日每个选项只可投10票！");window.close();</script>


for p = 1 to 11
         Call vote("http://voting.people.com.cn/option_submit.php?language=1")
next
Function vote(url)
Dim xmlhttp
Set xmlhttp = CreateObject("Microsoft.XMLHTTP")   
With xmlhttp
            .Open "POST", url, False
             .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
             .Send("itemid=2&command=SURVEY&qid=13606&Submit.x=26&Submit.y=8")
            ' msgbox .getallResponseHeaders()
             msgbox  strconv(.responsebody)
   
End With
Set xmlhttp = Nothing
End Function

Function strconv(Binbody)
dim strReturn
strReturn = ""
    For i = 1 To LenB(Binbody)
        ThisCharCode = AscB(MidB(Binbody, i, 1))
        If ThisCharCode < &H80 Then
            strReturn = strReturn & Chr(ThisCharCode)
        Else
            NextCharCode = AscB(MidB(Binbody, i + 1, 1))
            strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt (NextCharCode))
            i = i + 1
        End If
    Next
strconv = strReturn
End Function