求各个老师帮小白写一下登录网站代码，感谢！！！！

xianghehe

   这个网站比较难搞，弄了几天都登录不了，模拟COOKIE也不行，请各位老师指点，感 谢！~！

   内容请见附件。

xianghehe

上午受到论坛一个贴子的启开，尝试用模拟浏览器的方法登录

1. 
   
2. Sub denglu()
   
3. 
   
4. 
   
5. Dim ie
   
6. Set ie = CreateObject("InternetExplorer.application")
   
7. ie.Visible = True
   
8. ie.Navigate "https://www.wcainterglobal.com/Account/Login/?action=contactview"
   
9. 
   
10. Do While ie.Busy Or (ie.ReadyState <> 4)
    
11.     DoEvents
    
12. Loop
    
13. 
    
14. ie.document.all("username").Value = "oceanshe"
    
15. ie.document.all("password").Value = "951513"
    
16. ie.GetElementBytype("submit").Click
    
17. 
    
18. End Sub

复制代码

下面这三条通不过，提示没有此种属性和方法

1. ie.document.all("username").Value = "oceanshe"
   
2. ie.document.all("password").Value = "951513"
   
3. ie.GetElementBytype("submit").Click

复制代码

尝试下面的语句，依然通不过，提示没有属性或方法

1. ie .GetElementById("username").Value = ""

复制代码

从日出忙到日落时分，毫无进展，请大神们看看，不胜感谢，感谢，谢谢了！！！

kimmyyang

你这个网站源代码有点奇怪，像是有反爬设置

xianghehe

kimmyyang 发表于 2019-6-5 10:15
你这个网站源代码有点奇怪，像是有反爬设置

登录网址好像含时间戳和随机数，模拟cookie也上不了，所以过来向大神们请教。

kimmyyang

xianghehe 发表于 2019-6-5 11:03
登录网址好像含时间戳和随机数，模拟cookie也上不了，所以过来向大神们请教。

看了下后台代码，确实和其他一般网站登录代码不一样的，我用VBA尝试了下，但是似乎不行，找不到那个模拟单击登录的标签

xianghehe

kimmyyang 发表于 2019-6-5 11:18
看了下后台代码，确实和其他一般网站登录代码不一样的，我用VBA尝试了下，但是似乎不行，找不到那个模拟 ...

看来这个网站有点不一样，辛苦你了。

xianghehe

哪位老师抽空看看，不胜感谢！！！

屌爆了z

怎样才算登录了呀，我咋看都好像登录了

xianghehe

屌爆了z 发表于 2019-6-5 21:36
怎样才算登录了呀，我咋看都好像登录了

https://www.wcainterglobal.com/directory/members/85798
登录后这个页面有关电话和电邮的联系方式可以看见，否则会提示仅会员可见，要求登录

xianghehe

哪位老师看看哇，谢谢了...

dddfr

这个网站的登录地址有验证，也就是说必需得按照他给的地址POST。第一步把首而GET下来，提取FORM里ACTION地址，按这个地址POST验证