ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: xianghehe

[求助] 求各个老师帮小白写一下登录网站代码,感谢!!!!

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-6-8 13:06 | 显示全部楼层
22LMWOI23(Q6[BH76`7[RUT.png

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2019-6-8 13:35 来自手机 | 显示全部楼层
xianghehe 发表于 2019-6-8 12:00
samsinn老师的powershell,Kaohsing老师的python,我都不会,要哭晕在厕所了,膜拜两位老师,技术棒棒哒。

你用了python,哪里还想再用VBA嘛?

TA的精华主题

TA的得分主题

发表于 2019-6-8 13:41 | 显示全部楼层
你要的教程,语文水平有限,将就看看吧

powershell教程和本贴代码注解.rar

1.67 KB, 下载次数: 8

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-6-8 13:45 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-6-8 13:55 | 显示全部楼层
本帖最后由 xianghehe 于 2019-6-8 14:29 编辑
duquancai 发表于 2019-6-8 13:35
你用了python,哪里还想再用VBA嘛?

是这个道理...加油、加油,vba版块卧底了其他各大门派高手,不见vba高手现身,目前为止收获了许多惊喜,仍然期待vba的扫地僧赐教。感谢大家,谢谢了。

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-6-8 14:24 | 显示全部楼层
samsinn 发表于 2019-6-8 13:41
你要的教程,语文水平有限,将就看看吧

怎么办...怎么办...,samsinn老师,好想抱抱你,这么体贴的,看了一上午你写的代码,注解一到,一下看懂了好些了,得赶紧学学那些教程,争取早日完全看懂。送你一个爱的抱抱...

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2019-6-8 14:27 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
xianghehe 发表于 2019-6-8 14:24
怎么办...怎么办...,samsinn老师,好想抱抱你,这么体贴的,看了一上午你写的代码,注解一到,一下看懂了 ...

哈哈,不用抱我,记得送花就行

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-6-8 14:32 | 显示全部楼层
samsinn 发表于 2019-6-8 14:27
哈哈,不用抱我,记得送花就行

2朵花太少,不足以表达我的心情,这是系统的上限了,感谢samsinn老师。

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-6-9 16:52 | 显示全部楼层
上午受到论坛一个贴子的启开,尝试用模拟浏览器的方法登录

  1. Sub denglu()


  2. Dim ie
  3. Set ie = CreateObject("InternetExplorer.application")
  4. ie.Visible = True
  5. ie.Navigate "https://www.wcainterglobal.com/Account/Login/?action=contactview"

  6. Do While ie.Busy Or (ie.ReadyState <> 4)
  7.     DoEvents
  8. Loop

  9. ie.document.all("username").Value = "oceanshe"
  10. ie.document.all("password").Value = "951513"
  11. ie.GetElementBytype("submit").Click

  12. 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 = ""
复制代码


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

TA的精华主题

TA的得分主题

发表于 2019-6-9 17:36 | 显示全部楼层
xianghehe 发表于 2019-6-9 16:52
上午受到论坛一个贴子的启开,尝试用模拟浏览器的方法登录

下面这三条通不过,提示没有此种属性和方法
  1. # version: Python 3.7.0
  2. from selenium import webdriver
  3. from selenium.webdriver.common.by import By
  4. from selenium.webdriver.support.ui import WebDriverWait
  5. from selenium.webdriver.support import expected_conditions as EC
  6. from time import sleep

  7. driver = webdriver.Chrome()
  8. wait = WebDriverWait(driver, 30)
  9. driver.get('https://www.wcainterglobal.com/Account/Login/?action=contactview')

  10. def logining():
  11.     try:
  12.         input_username = wait.until(EC.presence_of_element_located((By.ID, 'username')))
  13.         input_username.clear()
  14.         input_username.send_keys('oceanshe')
  15.         input_password = wait.until(EC.presence_of_element_located((By.ID, 'password')))
  16.         input_password.clear()
  17.         input_password.send_keys('951513')
  18.         submit = wait.until(EC.element_to_be_clickable((By.XPATH, "//button[@type='submit']")))
  19.         submit.click()
  20.         sleep(10)
  21.     finally:
  22.         driver.quit()

  23. if __name__ == '__main__':
  24.     logining()
复制代码

评分

1

查看全部评分

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-4-25 15:49 , Processed in 0.048919 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表