如何用VB做一个自动登录软件？

Question

如何用VB做一个自动登录软件：如登录新浪邮箱，并进入收件箱内。先谢了。

Answer 1

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

Answer 2

两种方式可以解决；
1、建立SQL服务器，直接读取远程SQL数据库来实现，这中方式局限性较大。
2、自己设计服务端和客户端。服务就是无武器，用来响客户端发来的连接请求；客户端只负责向发无端发送帐户信息及输入的密码信息，由服务端连接数据库进行查询，并反馈给客户端。
这种方式能够更灵活、更强大。
另外，这种方式对数据库来说会比较安全

Answer 3

登录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 [email protected] & 123456Private 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