如何用VB做一个自动登录软件？
如何用VB做一个自动登录软件：如登录新浪邮箱，并进入收件箱内。先谢了。 怎么没人回答？太简单了吗？ Dim ie As Object = CreateObject( "InternetExplorer.Application ")
Dim strURL As String = "http://tw.login.sina.com/cgi-bin/login.cgi?srv=www&from=http://tw.sina.com "
With ie.Visible = True
Navigate(strURL)
Do While ie.Busy
Application.DoEvents()
Loop
Document.All( "login ").Value = "账号"
Document.All( "passwd ").Value = "密码 "
Document.All( "submit ").Click()
End With
ie = Nothing 释放控制
End Sub
多谢楼上的朋友。
不过好象不管用啊。
能联系一下好么：QQ：99840266 两种方式可以解决；
1、建立SQL服务器，直接读取远程SQL数据库来实现，这中方式局限性较大。
2、自己设计服务端和客户端。服务就是无武器，用来响客户端发来的连接请求；客户端只负责向发无端发送帐户信息及输入的密码信息，由服务端连接数据库进行查询，并反馈给客户端。
这种方式能够更灵活、更强大。
另外，这种方式对数据库来说会比较安全 要看你登陆的是什么？
初学者，你说的太高深了。如果方便能否帮忙设计一个自动登录的程序？
QQ:99842066
MSN: dc602010@hotmail.com
我要登录的是一个特定的网站，因为不便发外链，所以没说清楚。
如愿意帮忙可告知具体要求。
------------------
QQ:99842066
MSN: dc602010@hotmail.com 登录126 163 或新浪 你得先抓包 看看它POST的内容 新浪我没用过 但道理相同
Private Sub Command1_Click()
Dim id, psw, EexName, WebAddr$
'************用户名***********
id = "samliu0812" 'Txtid.Text
'************密码***********
psw = "123456" 'Txtpsw.Text
'************向邮箱服务器提交的WebAddr地址***********
WebAddr = "https://reg.163.com/logins.jsp?url=http%3A%2F%2Ffm163.163.com%2Fcoremail%2Ffcg%2Fntesdoor2%3Fverifycookie%3D1%26language%3D-1%26style%3D-1&type=1&product=mail163&username=" & id & "&password=" & psw & "&submit=%B5%C7%A1%A1%C2%BC"
EXEName = Environ("ProgramFiles") & "\Intern~1\IEXPLORE.EXE"
'************向浏览器提交地址,进行登录***********
Shell EXEName & " " & WebAddr, 1
End Sub
'登录 126 samliu0812@126.com & 123456
Private Sub Command2_Click()
Shell Environ("ProgramFiles") & "\Intern~1\IEXPLORE.EXE http://entry.mail.126.com/cgi/login?hid=10010102&lightweight=1&language=0&style=11&user=" & "samliu0812" & "&pass=" & "123456", 3
End Sub
太谢谢了，试了一下，第一个可以进去，看来要学会原理还要花很大的功夫。谢谢了。希望以后多指教。
补充：VB , 网络编程
