[求助]单位网页 自动填表[已解]

zhoulove01

谢谢northwolves版主，问题解决了，我去实践一下。[em10]

wflqj123

QUOTE:

以下是引用northwolves在2008-9-27 12:53:00的发言：

可参考登陆163信箱的代码:

Sub Goto163()
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "http://mail.163.com"
Do Until .Readystate = 4
DoEvents
Loop
.Document.Forms(0).All("username").Value = "myusername"
.Document.Forms(0).All("password").Value = "mypassword"
.Document.Forms(0).All("登录邮箱").Click
End With
MsgBox "Ok"
End Sub

很不错！我想使用126又该如何改呢，我试了好长时间也做不到，但知道两个邮箱的界面不一样，请指教一下好吗？谢谢你！

northwolves

QUOTE:

以下是引用wflqj123在2008-10-4 17:11:00的发言：

很不错！我想使用126又该如何改呢，我试了好长时间也做不到，但知道两个邮箱的界面不一样，请指教一下好吗？谢谢你！

Sub Goto126()
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "http://mail.126.com"
Do Until .Readystate = 4
DoEvents
Loop
.document.All("user").Value = "myusername"
.document.All("pass").Value = "mypassword"
.document.form.submit
End With
End Sub

wflqj123

谢谢你，就请你再说一下新浪的吧！

northwolves

QUOTE:

以下是引用wflqj123在2008-10-4 18:09:00的发言：

谢谢你，就请你再说一下新浪的吧！

 Sub Gotosina()
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "http://mail.sina.com"
Do Until .Readystate = 4
DoEvents
Loop
.document.all("u").Value = "myusername"
.document.all("psw").Value = "mypassword"
.document.all("btnloginfree").Click
End With
End Sub

有问题建议发新帖并填写关键字以方便其他朋友论坛查询

wflqj123

你太伟大了，你的精神值得我们好好学习！我根据你的帮助指导做了一个个人上网的小平台，也就是把上网的东东罗列在一起，但我不知道如何直接进入论坛，也就是象邮箱一样，自动填好用户名，密码，进入VBA开发栏？真心的感谢你！

wflqj123

QUOTE:

以下是引用northwolves在2008-10-4 17:23:00的发言：

Sub Goto126()
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "http://mail.126.com"
Do Until .Readystate = 4
DoEvents
Loop
.document.All("user").Value = "myusername"
.document.All("pass").Value = "mypassword"
.document.form.submit
End With
End Sub

www.huaxiafax.com   请看一下这个网站，如何自动填密码和用户名呢？如需要用户名和密码，请告诉我邮箱，我传给你！请一定指教一下！！谢谢你多次指教！！！

lwl0606

学习，强人。

mnznz001

太感谢了！！！！

allforone

126邮箱，可以自动输入用户名和密码，提交后无法打开邮箱。提示请输入正确的用户名和密码，但是手工录入却可以进入。是不是缺数据呀？