标题: [问题求助] VBS怎样自动登录有账号和密码的电影网站? [打印本页]
作者: xxwb808 时间: 2011-6-11 16:29 标题: VBS怎样自动登录有账号和密码的电影网站?
我是一个维护人员 想写一个用我想用批处理运行7.8个不同的账号来自动切换登录
网站是http://movie.5151c.com/Login.aspx 我自己写了段VB
可以登录 但是有时候链接出问题 我想用7.8个不同的账号来切换不知道哪个大哥可以解决 感激不敬- set ierunner = CreateObject("wscript.shell")
- ierunner.run "cmd /c start iexplore http://www.5151c.com/Login.aspx",0
- wscript.sleep 3000
- ierunner.sendkeys "{TAB}"
- wscript.sleep 100
- ierunner.sendkeys "{TAB}"
- wscript.sleep 100
- ierunner.sendkeys "xxwb01"
- ierunner.sendkeys "{TAB}"
- wscript.sleep 100
- ierunner.sendkeys "{TAB}"
- ierunner.sendkeys "86115991ty285"
- ierunner.sendkeys "{ENTER}"
- wscript.sleep 3000
- ierunner.sendkeys "{TAB}"
- wscript.sleep 100
- ierunner.sendkeys "{TAB}"
- wscript.sleep 100
复制代码
作者: Demon 时间: 2011-6-11 16:40
sendkeys又见sendkeys。
作者: CrLf 时间: 2011-6-11 16:46
楼主能否把问题的症结描述清楚些呢?不是很明白楼主想表达的意图
作者: Demon 时间: 2011-6-11 23:57
- 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
复制代码
作者: xxwb808 时间: 2011-6-12 23:09
3# zm900612
我的意思是用VB记住网站的账号和密码 直接登录网站啊 运行VB就可以不用输入密码和账号 就可以登录电影网站了 我这个电影网站部需要验证码的
作者: Demon 时间: 2011-6-12 23:17
3# zm900612
我的意思是用VB记住网站的账号和密码 直接登录网站啊 运行VB就可以不用输入密码和账号 就可以登录电影网站了 我这个电影网站部需要验证码的
xxwb808 发表于 2011-6-12 23:09
当4楼是空气么?
作者: xxwb808 时间: 2011-6-12 23:34
4# Demon
谢谢兄弟可以了 假如我用7.8个账号来切换呢 怎么写呢
作者: xxwb808 时间: 2011-6-12 23:41
6# Demon
你的那个可以了兄弟 我刚刚没看到 不好意思哦
作者: xxwb808 时间: 2011-6-13 01:18 标题: 自动切换不同账号和密码登陆网站的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个不同的账号可以切换吗
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |