vb 网页控件 WebBrowser 网页中的文本框无法赋值
vb写入网页文本框操作,如果我是直接启动运行,无法写入文本(也就是运行完命令后,两个文本框还是空白的),但是如果我以逐步运行的方式(按F8)就可以写入了,我认为是WebB...
vb写入网页文本框操作,如果我是直接启动运行,无法写入文本(也就是运行完命令后,两个文本框还是空白的),但是如果我以逐步运行的方式(按F8)就可以写入了,我认为是WebBrowser 异步,请高手指导。
具体代码如下:
If WebBrowser1.Busy = False Then
WebBrowser1.Document.All.Item("txtUsername").Value = Form1.Text11(0).Text
WebBrowser1.Document.All.Item("txtPassword").Value = Form1.Text12(0).Text
WebBrowser1.Document.All("btnLogin").Click
end if
少发一节代码,代码应该是
WebBrowser1.Navigate Form1.Text10.Text
If WebBrowser1.Busy = False Then
WebBrowser1.Document.All.Item("txtUsername").Value = Form1.Text11(0).Text
WebBrowser1.Document.All.Item("txtPassword").Value = Form1.Text12(0).Text
WebBrowser1.Document.All("btnLogin").Click
end if 展开
具体代码如下:
If WebBrowser1.Busy = False Then
WebBrowser1.Document.All.Item("txtUsername").Value = Form1.Text11(0).Text
WebBrowser1.Document.All.Item("txtPassword").Value = Form1.Text12(0).Text
WebBrowser1.Document.All("btnLogin").Click
end if
少发一节代码,代码应该是
WebBrowser1.Navigate Form1.Text10.Text
If WebBrowser1.Busy = False Then
WebBrowser1.Document.All.Item("txtUsername").Value = Form1.Text11(0).Text
WebBrowser1.Document.All.Item("txtPassword").Value = Form1.Text12(0).Text
WebBrowser1.Document.All("btnLogin").Click
end if 展开
1个回答
展开全部
你应当在webbrowser的DocumentComplete中写:
WebBrowser1.Document.All.Item("txtUsername").Value = Form1.Text11(0).Text
WebBrowser1.Document.All.Item("txtPassword").Value = Form1.Text12(0).Text
WebBrowser1.Document.All("btnLogin").Click
WebBrowser1.Document.All.Item("txtUsername").Value = Form1.Text11(0).Text
WebBrowser1.Document.All.Item("txtPassword").Value = Form1.Text12(0).Text
WebBrowser1.Document.All("btnLogin").Click
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询