找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 25829|回复: 8

[问题求助] VBS怎样自动登录有账号和密码的电影网站?

[复制链接]
发表于 2011-6-11 16:29:24 | 显示全部楼层 |阅读模式
我是一个维护人员 想写一个用我想用批处理运行7.8个不同的账号来自动切换登录
网站是http://movie.5151c.com/Login.aspx     我自己写了段VB
可以登录 但是有时候链接出问题  我想用7.8个不同的账号来切换不知道哪个大哥可以解决 感激不敬
  1. set ierunner = CreateObject("wscript.shell")
  2. ierunner.run "cmd /c start iexplore http://www.5151c.com/Login.aspx",0
  3. wscript.sleep 3000
  4. ierunner.sendkeys "{TAB}"
  5. wscript.sleep 100
  6. ierunner.sendkeys "{TAB}"
  7. wscript.sleep 100
  8. ierunner.sendkeys "xxwb01"
  9. ierunner.sendkeys "{TAB}"
  10. wscript.sleep 100
  11. ierunner.sendkeys "{TAB}"
  12. ierunner.sendkeys "86115991ty285"
  13. ierunner.sendkeys "{ENTER}"
  14. wscript.sleep 3000
  15. ierunner.sendkeys "{TAB}"
  16. wscript.sleep 100
  17. ierunner.sendkeys "{TAB}"
  18. wscript.sleep 100
复制代码
发表于 2011-6-11 16:40:03 | 显示全部楼层
sendkeys又见sendkeys。
发表于 2011-6-11 16:46:15 | 显示全部楼层
楼主能否把问题的症结描述清楚些呢?不是很明白楼主想表达的意图
发表于 2011-6-11 23:57:18 | 显示全部楼层

  1. username = "admin"
  2. password = "12345"
  3. Dim IE
  4. Set IE = CreateObject("InternetExplorer.Application")
  5. IE.Navigate "http://www.5151c.com/Login.aspx"
  6. IE.Visible = True
  7. Do Until IE.ReadyState = 4
  8.     WScript.Sleep 1000
  9. Loop
  10. IE.Document.getElementById("LoginId").innerText = username
  11. IE.Document.getElementById("LoginPass").innerText = password
  12. IE.Document.getElementById("Login").submit
复制代码
 楼主| 发表于 2011-6-12 23:09:40 | 显示全部楼层
3# zm900612


我的意思是用VB记住网站的账号和密码 直接登录网站啊   运行VB就可以不用输入密码和账号 就可以登录电影网站了  我这个电影网站部需要验证码的
发表于 2011-6-12 23:17:40 | 显示全部楼层
3# zm900612


我的意思是用VB记住网站的账号和密码 直接登录网站啊   运行VB就可以不用输入密码和账号 就可以登录电影网站了  我这个电影网站部需要验证码的
xxwb808 发表于 2011-6-12 23:09

当4楼是空气么?
 楼主| 发表于 2011-6-12 23:34:18 | 显示全部楼层
4# Demon


谢谢兄弟可以了 假如我用7.8个账号来切换呢 怎么写呢
 楼主| 发表于 2011-6-12 23:41:16 | 显示全部楼层
6# Demon


你的那个可以了兄弟  我刚刚没看到 不好意思哦
 楼主| 发表于 2011-6-13 01:18:57 | 显示全部楼层

自动切换不同账号和密码登陆网站的VBS

username = "admin"
password = "12345"
Dim IE
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "http://www.5151c.com/Login.aspx"
IE.Visible = True
Do Until IE.ReadyState = 4
    WScript.Sleep 1000
Loop
IE.Document.getElementById("LoginId").innerText = username
IE.Document.getElementById("LoginPass").innerText = password
IE.Document.getElementById("Login").submit
这个代码是Demon 兄弟写的非常感谢他  我想问下  我假如有8个不同的账号可以切换吗
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 06:48 , Processed in 0.009747 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

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