主题：[求助]网页登录并写入数据出错

两端相同的代码 网址和内容不一样 老是报错，请大侠合并一下

Dim web As new windows.forms.webbrowser
web.ScriptErrorsSuppressed = True
web.Navigate("网址一")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop
For Each archor As object In web.Document.Forms
    archor.SetAttribute("target", "_self")
Next
Dim loginId = web.Document.GetElementById("用户名")
Dim password = web.Document.GetElementById("密码")
Dim Image2 = web.Document.GetElementById("yt0")
loginId.setAttribute("value", "222")
password.setAttribute("value", "666")
msgbox("填入了用户名和密码")
image2.InvokeMember("click")

Dim web1 As new windows.forms.webbrowser
web1.ScriptErrorsSuppressed = True
web1.Navigate("网址二")
Do Until web1.ReadyState = 4
    Application.DoEvents
Loop
For Each archor As object In web1.Document.Forms
    archor.SetAttribute("target", "_self")
Next
Dim loginId1 = web1.Document.GetElementById("LoginValidIP[ip]")
Dim password1 = web1.Document.GetElementById("LoginValidIP[storeName]")
Dim Image21 = web1.Document.GetElementById("yt0")
loginId1.setAttribute("value", "175.168.76.1")
password1.setAttribute("value", "6666")
msgbox("填写了ip及信息")
image21.InvokeMember("click")
web1.Dispose()
GC.Collect()

还是提示错误
此主题相关图片如下：qq截图20171128120454.jpg

提示错误说明你分析的网页不正确。

 

请贴出具体网址测试。

但是我单独测试就是对的，只有把两个合并在一起就提示错误了

加入msgbox弹出，看看是哪句代码开始报错。

id值分别改成 LoginValidIP_ip、LoginValidIP_storeName

改成这个也是一样的问题，是这样的，这个页面必须登录后才可以在上面操作写入数据，如果分开做成两个按钮分别执行 就可以正常操作 但是点击第一个按钮后需要间隔5秒后再点击第二个按钮，请问如何设置时间延迟

1、延时，参考

 

Dim sdt As Date = Date.Now
While Date.Now < sdt.AddSeconds(10)
    Application.DoEvents
End While

msgbox("10秒后执行")

 

 

2、方法二，可以这样

 

web1.Navigate("网址二")
Do Until web1.ReadyState = 4 andAlso web1.Document.GetElementById("LoginValidIP[ip]") isnot Nothing
    Application.DoEvents
Loop