话说 怎么实现当代码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
End If
加好友 
发短信
Post By：2016/5/13 19:51:00 [显示全部帖子]
