VBS或批处理怎样实现网页自动登录？

dresu · 发表于 2015-11-8 10:11:58

开启IE ，然后网页自动登录谢谢各位！见图片 vbs或批处理或按键精灵都可以谢谢了

dresu · 发表于 2015-11-8 10:12:33

要键入的是前两个和最后一个谢谢！

yu2n · 发表于 2015-11-8 22:48:08

贴上代码…
验证码你打算如何解决？

url = "http://yu2n.sinaapp.com" ' 要采集的网址
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
' Configure the IE window
.RegisterAsDropTarget = False
.statusbar = False : .toolbar = False : .menubar = False : .addressbar = False
.Resizable = False : .Visible = True : .Navigate(URL)
Do While .Busy Or .ReadyState <> 4 : WScript.Sleep 200 : Loop ' 等待完全载入
.width = 600 : .height = 400 ' 宽度与高度
.left = .document.parentWindow.screen.width \ 2 - 300 ' 居中显示
.top = .document.parentWindow.screen.height\ 2 - 200
' Test for IE 7 - cannot remove 'chrome' in that version
nVersion = CSng(replace(split(_
.document.parentWindow.navigator.appVersion, " ")(3)_
, ";", ""))
if nVersion < 7.0 Then .FullScreen = True
' Create the body document
With .document
.getElementById("corpVccId").focus()
.getElementById("corpVccId").value = "123456"
.getElementById("user_name").focus()
.getElementById("user_name").value = "yu2n"
.getElementById("password").focus()
.getElementById("password").value = "yu2n"
.getElementById("cin_verifyCode").focus()
.getElementById("cin_verifyCode").value = InputBox("请输入验证码：", WScript.ScriptName, "yu2n")
.getElementById("corpVccId").disabled = True
.getElementById("user_name").disabled = True
.getElementById("password").disabled = True
.getElementById("cin_verifyCode").disabled = True
WScript.Sleep 1000
REM 登陆按钮1
REM .getElementById("Button").focus()
REM .getElementById("Button").click()
REM 登陆按钮2
REM .getElementsBytagname("form1").submit
REM .forms(0).submit
Do While objIE.Busy Or objIE.ReadyState <> 4 : WScript.Sleep 200 : Loop ' 等待完全载入
.getElementById("Button").disabled = True
sHtml = .body.innerHTML ' 将结果赋值给变量 str，以HTML格式返回数据
End With
WScript.Sleep 1000
.Visible = False
.quit
End With

复制代码

erjnasrtnws · 发表于 2015-11-23 11:19:19

回复 3# yu2n

GOOD

9zhmke · 发表于 2015-12-23 11:26:43

验证码需要调用OCR组件，貌似十年前网上就可以搜到了，应该是有办法的。

		自动登录	找回密码
密码			注册

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

[问题求助] VBS或批处理怎样实现网页自动登录？

浏览过的版块