以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  录入网站登录窗口  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=148626)
--  作者：yangwenghd
--  发布时间：2020/4/11 16:22:00
--  录入网站登录窗口
老师 能帮忙分析一下这个是那里错了呀，感谢个感谢，这个不能吧字符输入到网站控件。

Dim web As System.Windows.Forms.WebBrowser = e.Form.controls("webbrowser1").basecontrol
Dim Inputs = web.Document.GetElementById("region-code").GetElementsByTagName("user")
For Each Input As object In Inputs
    If Input.id = "manual_code" Then
        \'Input.SetAttribute("placeholder", "13594605935")
        Input.SetAttribute("value", "13594605935")
    ElseIf input.id = "pwd"
        Input.SetAttribute("value", "ab123456789")
    ElseIf Input.id = "login-button" Then
        Input.InvokeMember("click")
    End If
Next
--  作者：有点蓝
--  发布时间：2020/4/11 16:48:00
--  
这种网站做了防护处理的。无法使用代码控制，还是手工登录吧
--  作者：yangwenghd
--  发布时间：2020/4/11 16:57:00
--  
谢谢老师，搞了一下午，这个代码有错吗？如果网站没有防护处理，感谢 感谢 
--  作者：有点蓝
--  发布时间：2020/4/11 17:15:00
--  
如果是想要在打开的浏览器控件里做，上面的用法全部都是错的。看这里：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=32808，看全局代码的用法
--  作者：yangwenghd
--  发布时间：2020/4/11 17:46:00
--  
感觉还是不对样，foxtable那个网站是怎么找到完整的那个输入框的呀，
--  作者：有点蓝
--  发布时间：2020/4/11 17:53:00
--  
看全局代码，直接通过id查找：web.Document.GetElementById(xxx)
--  作者：yangwenghd
--  发布时间：2020/4/11 18:50:00
--  
应该就是这个吧？还是没有任何反应，

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20200411184935.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:网页分析以及自动化处理(商业版) (10).table


[此贴子已经被作者于2020/4/11 21:44:09编辑过]
--  作者：yangwenghd
--  发布时间：2020/4/11 22:47:00
--  
这个是可以登录的了，分享给大家。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:小米登陆（完成）.table
--  作者：yangwenghd
--  发布时间：2021/2/16 23:03:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：截图_20210016110052.jpg
图片点击可在新窗口打开查看
老师 能帮忙看看这个吗？
就是用户名和密码都输入了但是登录不上呢，感谢 感谢 
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:小米登陆（完成）.table