能不能实现程序中自动登陆淘宝网 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 能不能实现程序中自动登陆淘宝网

共有3941人关注过本帖树形打印复制链接主题：能不能实现程序中自动登陆淘宝网

zhdeyo_fb

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：25 积分：357 威望：0 精华：0 注册：2015/4/30 14:52:00

能不能实现程序中自动登陆淘宝网 发帖心情

Post By：2017/5/4 23:45:00 [只看该作者]

能不能实现程序中自动登陆淘宝网，将用户名和密码写进程序中，然后启动程序后由程序自动输入用户名和密码进入淘宝网。

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/5/5 8:48:00 [只看该作者]

放一个webbrowser，然后执行下面代码

Dim web As System.Windows.Forms.WebBrowser = e.Form.controls("webbrowser1").basecontrol
web.ScriptErrorsSuppressed = True
web.Navigate("https://login.taobao.com/member/login.jhtml?spm=a21bo.50862.754894437.1.ulGHo5&f=top&redirectURL=https%3A%2F%2Fwww.taobao.com%2F")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
Dim btn = web.Document.GetElementById("J_Quick2Static")
btn.InvokeMember("click")
Dim user = web.Document.GetElementById("TPL_username_1")
user.SetAttribute("value", "abc")
Dim pwd = web.Document.GetElementById("TPL_password_1")
pwd.SetAttribute("value", "abc")
'Dim submit = web.Document.GetElementById("J_SubmitStatic")
'submit.InvokeMember("click")

现在不支持直接登录了，有一个【手动滑块】的环节防止你直接登录。