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

蓝天630902

cumulonimbus 发表于 2012-9-21 22:54
On Error Resume Next
    With CreateObject("internetexplorer.application")
        .Visibl ...

Public Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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
        t1 = Timer
        Do Until Timer > t1 + 3    '等待“安全警告”出现
            DoEvents
        Loop
        Do Until FindWindow(vbNullString, "安全警告") > 0
            DoEvents
        Loop
        SendKeys "%Y"    '相当于点击“是”
        'SendKeys "%N"
        t1 = Timer
        Do Until Timer > t1 + 1
            DoEvents
        Loop
        .document.getElementByid("u").Value = "用户名："
        .document.getElementByid("p").Value = "密　码："
        .document.getElementByid("aLogin").Click    '登 录
    End With
End Sub

cumulonimbus

蓝天630902 发表于 2012-9-22 06:13
Public Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As Stri ...

蓝天老师，奇怪，仍然无法登录，提示网上有错误。
        .document.getElementByid("u").Value = ""
        .document.getElementByid("p").Value = ""
这个用户名与密码是真实的。为什么会不行呢？

蓝天630902

cumulonimbus 发表于 2012-9-22 15:07
蓝天老师，奇怪，仍然无法登录，提示网上有错误。
        .document.getElementByid("u").Value = "ano ...

用SendKeys 吧：

Sub 会员登录_CSDN会员中心1()
    On Error Resume Next
    With CreateObject("internetexplorer.application")
        .Visible = True
        .Navigate "https://passport.csdn.net/account/login"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        t1 = Timer
        Do Until Timer > t1 + 10    '等待
            DoEvents
        Loop
        SendKeys "pentagon"
        Do Until Timer > t1 + 20    '等待
            DoEvents
        Loop
        SendKeys "~"
    End With
End Sub

蓝天630902

不过，要实现上面的代码，要做一点ｉｅ设置
工具——>Internet选项——>安全——>自定义级别——>其他——>显示混合内容——>启用

cumulonimbus

蓝天630902 发表于 2012-9-22 17:02
不过，要实现上面的代码，要做一点ｉｅ设置
工具——>Internet选项——>安全——>自定义级别——>其他—— ...

那你的用户名咋办呢？

蓝天630902

cumulonimbus 发表于 2012-9-22 19:09
那你的用户名咋办呢？

发送“Ｔａｂ”键

cumulonimbus

蓝天630902 发表于 2012-9-22 19:21
发送“Ｔａｂ”键

呵呵，这个TAB、SENDKEY，我做过，感觉很不适用。不过还是要谢谢你啦！
蓝天大师，我在这个论坛上，用尽了你教我的方法，怎么都找不到方法插入图片、表情、附件，及在编辑框写入正文的方法，大师可否指点？
      .Navigate "http://bbs.people.com.cn/postDisplayAction.do?bid=1"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        t1 = Timer
        Do Until Timer > t1 + 5
            DoEvents
        Loop
       Set r = .document.All.tags("input")
       Set rr = .document.All.tags("IFRAME")
       r(10).Value = [g1]　　　　'标题
       r(22).Click　　　　　　　‘点击

蓝天630902

它是，用了一个框架：

        <iframe ID="eWebEditor1" src="/ewebeditor/ewebeditor.htm?id=content1&style=coolblue" frameborder="0" scrolling="no" width="935" HEIGHT="350">
        </iframe>
它的地址是：
http://bbs.people.com.cn/ewebeditor/ewebeditor.htm?id=content1&style=coolblue

cumulonimbus

蓝天630902 发表于 2012-9-22 19:54
它是，用了一个框架：

        

我进入了，看了它的源文件，晕了，感觉无从下手。

蓝天630902

cumulonimbus 发表于 2012-9-22 20:49
我进入了，看了它的源文件，晕了，感觉无从下手。

源码里面应该有的：