如何实现自动登陆网页？

幽月儿 · 发表于 2012-2-10 20:33

每天要进入很多网页，输入用户名及密码，我想到能不能EXCEL中编写一个代码，实现自动输入用户名及密码并登陆网页。我尝试过在EXCEL中的每个单元格建立一个超连接，但只能连到网页，不知道如何在指定的网页上输入自动输入用户名及密码并自动登陆，请大家帮忙，谢谢！！

variable · 发表于 2012-2-10 21:36

这个能做到吗？看看有没有精通vbs的高手写个脚本。

幽月儿 · 发表于 2012-2-10 21:40

以登陆本论坛为例吧！！

无聊的疯子 · 发表于 2012-2-11 13:52

幽月儿发表于 2012-2-10 21:40
以登陆本论坛为例吧！！

登陆的时候,勾选记住密码不就行了??

只要不清除IE选项里的 Cooke 就没事,

443233785 · 发表于 2012-2-12 19:54

用VBA制作一个用户窗体，如果是多个网页多个用户登入，就多写几个，用按钮控制
Private Sub CommandButton1_Click() ‘打开网址按钮代码
Me.WebBrowser1.Navigate "输入要打开的网址"
Action = 2
End Sub

Private Sub CommandButton2_Click() '设定用户和密码与网页嫁接
Set f = Me.WebBrowser1.Document.all("EinForm0")
f.elements("AccountId").Value = '用户名
f.elements("Password").Value = '密码
Me.WebBrowser1.Document.all("EinForm0_SubmitBtn").Click
Action = 3
End Sub

幽月儿 · 发表于 2012-2-12 20:04

443233785 发表于 2012-2-12 19:54
用VBA制作一个用户窗体，如果是多个网页多个用户登入，就多写几个，用按钮控制
Private Sub CommandButton ...

我先试试{:091:}

幽月儿 · 发表于 2012-2-13 20:10

443233785 发表于 2012-2-12 19:54
用VBA制作一个用户窗体，如果是多个网页多个用户登入，就多写几个，用按钮控制
Private Sub CommandButton ...

能否以登陆EP论坛为例，做个呢，以上代码我测试一直出错，不知道怎么办呀？
Private Sub CommandButton1_Click()
Me.WebBrowser1.Navigate "www.excelpx.com"
Action = 2
End Sub
Private Sub CommandButton2_Click()
Set f = Me.WebBrowser1.Document.all("EinForm0")
f.elements("AccountId").Value = ""
f.elements("Password").Value = ""
Me.WebBrowser1.Document.all("EinForm0_SubmitBtn").Click
Action = 3
End Sub
会出现无效的ME关键字，这个ME所指的对象是什么呢，窗体吗？

443233785 · 发表于 2012-2-14 22:42

幽月儿发表于 2012-2-13 20:10
能否以登陆EP论坛为例，做个呢，以上代码我测试一直出错，不知道怎么办呀？
Private Sub CommandButton1 ...

用按键精灵吧，百度搜一下，有教程

zhp3 · 发表于 2012-2-14 23:01

以前都可以自动登陆excelpx，不知为什么改版后现在不能自动登陆，每次登陆都要输入一次。

HYY514 · 发表于 2012-3-4 17:05

[ 本帖最后由 HYY514 于 2012-3-4 21:26 编辑 ]

[code]
Private Const sUser As String = "aaa"  '改为用户名
Private Const sPsw As String = "123456" '改为你密码
Sub 登录EP()
Dim objIE As Object
Dim sCr As String
Set objIE = CreateObject("InternetExplorer.Application")
sCr = Chr(34)
With objIE
.Navigate "about:blank"
With .Document
      .Open
      .write "<html><head><meta http-equiv=" & sCr & "Content-Type" & sCr & " content=" & sCr & "text/html; charset=gbk" & sCr & " /></head><body onload=" & sCr & "abc.submit();" & sCr & "><form name=" & sCr & "abc" & sCr & " action=" & sCr & " http://www.excelpx.com/member.php?mod=logging&action=login&loginsubmit=yes&infloat=yes" & sCr & " method=" & sCr & "post" & sCr & " ><input style=" & sCr & "width: 0px;height: 0px;" & sCr & " name=" & sCr & "username" & sCr & "  type=" & sCr & "text" & sCr & " value=" & sCr & "" & sUser & "" & sCr & "/><input style=" & sCr & "width: 0px;height: 0px;" & sCr & " name=" & sCr & "password" & sCr & "  type=" & sCr & "password" & sCr & " value=" & sCr & "" & sPsw & "" & sCr & " /></form></body></html>"
      .Charset = "gbk"
      .Close
End With
.Visible = True
End With
Set objIE = Nothing
End Sub
[/code]

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

如何实现自动登陆网页？

相关帖子