求助：话说怎么实现当代码A运行后再自动运行代码B呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

话说怎么实现当代码A运行后再自动运行代码B呢？

此主题相关图片如下：qq图片20160513194944.png

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", "wax")

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

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

Else

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

web.Navigate("https://mp.weixin.qq.com/cgi-bin/appmsg?begin=0&count=10&t=media/appmsg_list2&type=10&action=list_list&token=1020867542&lang=zh_CN")

End If

主题：求助：话说 怎么实现当代码A运行后 再自动运行代码B呢？