求助：大红袍老师自动登录微信订阅号后，怎么自动打开素材管理页面呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

求助：自动登录微信订阅号后，怎么自动打开素材管理页面呢？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:微信自动登录并打开素材管理页面操作.foxdb

目前已经完成自动登陆微信订阅号操作，

程序代码（见窗口1中的按钮事件代码）已经实现了一键登录微信订阅号，但是怎么也打不开第二节点页面，求助！

要求：登录成功并且自动打开素材管理页面（进而扩展到打开登录成功后的任何一个页面呢？）

问题1：如果实现在登录成功后的显示页面中，将当前页面的网页地址作为程序操作下一步的基础网址，获取当前页面中的元素，然后查找相关元素，如打开素材管理栏目

问题2：打开素材管理页面后，如何获取素材列表的所有文章呢？

【大红袍老师：之前在你帮助的网页操作学习中都是单一的文章列表】

素材列表有一个特性：一个素材会有多个图文信息也可能只有一条信息

该怎么操作呢?

[此贴子已经被作者于2016/5/13 19:18:27编辑过]

问题1：

Dim web As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").Basecontrol

web.Navigate("https://mp.weixin.qq.com")

Do Until web.ReadyState = 4

Application.DoEvents

Loop

If web.Document.Body.OuterHtml.Contains("btn_login") Then '判断一下当前页面的是否包含这串字符串(用来判断是否已经处于登录状态)

web.Document.GetElementById("account").SetAttribute("Value", "waxjcy")

web.Document.GetElementById("Password").SetAttribute("Value", "08542622000")

web.Document.GetElementById("loginbt").InvokeMember("click")

End If

Dim div = web.Document.GetElementById("menuBar")

Do While div Is Nothing

div = web.Document.GetElementById("menuBar")

Application.DoEvents

Loop

Dim hec As System.Windows.Forms.HtmlElementCollection = div.GetElementsByTagName("A")

For i As Integer = 0 To hec.Count-1

If hec(i).InnerHtml.Contains("素材管理") Then

hec(i).InvokeMember("click")

Exit For

End If

问题2：

还是老老实实用接口获取素材吧，一个调用就搞定，几个小时的功夫。通过分析网页的方式，半个月都搞不定

主题：求助：大红袍老师 自动登录微信订阅号后，怎么自动打开素材管理页面呢？