以文本方式查看主题

-  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=100112)
--  作者：zhdeyo_fb
--  发布时间：2017/5/4 23:45:00
--  能不能实现程序中自动登陆淘宝网
能不能实现 程序中自动登陆淘宝网，将用户名和密码写进程序中，然后启动程序后由程序自动输入用户名和密码进入淘宝网。
--  作者：有点色
--  发布时间：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")

 

现在不支持直接登录了，有一个【手动滑块】的环节防止你直接登录。
--  作者：yangwenghd
--  发布时间：2017/9/13 23:44:00
--  
个是写在webbrowser的那个事件啊  感谢 感谢 
--  作者：有点甜
--  发布时间：2017/9/14 9:01:00
--  
以下是引用yangwenghd在2017/9/13 23:44:00的发言：
个是写在webbrowser的那个事件啊  感谢 感谢 

 

AfterLoad事件。