vb怎么做一个登陆126邮箱的软件？

Question

想用两个text加一个按钮组合webbrowser做一个登陆126邮箱的软件，可是网上找得代码不能实现，不知道怎么写，如果有sina，或yahoo等的登陆也一起放进去，最好说下写这类网页结合的软件的思路，谢谢各位了。

Answer 1

登陆www.hao123.com看看，挺简单的。用注入方式即可。

Answer 2

我看过了，不太明白，网页代码和vb代码不知道怎么转换。hao123那个好厉害啊。

Answer 3

找到邮箱登陆窗口的地址,向这些地址post消息

Answer 4

exe = "C:\Program Files\Internet Explorer\IEXPLORE.EXE"
url1 = "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"
If Combo1.Text = "163信箱" Then
Shell exe + Space(1) + url1, 1
End If163信箱就可以，126就不行，不知道这个地址是怎么分析出来的？

Answer 5

没研究过。
不过给个思路：既然BS可以，那么你可以做成一个文件，然后让vb的webbrowser去打开那个文件如何？

Answer 6

'引用Microsoft Internet controls
Dim WithEvents ieView As InternetExplorer
Private Sub Command1_Click()
Dim txtAddress As String
On Error Resume Next '设置错误陷阱
vUrl = "http://www.126.com/"
Set ieView = GetObject("", "InternetExplorer.Application")ieView.Navigate vUrl, navNoReadFromCache
ieView.Visible = True
End Sub
Private Sub ieView_DocumentComplete(ByVal pDisp As Object, URL As Variant)
j = ieView.Document.getElementsByTagName("input").Length - 1
'Debug.Print j
Dim aa As Object
For i = 0 To j
Set aa = ieView.Document.getElementsByTagName("input")(i)
If aa.Type = "text" And aa.Name = "user" Then
aa.Value = "XXXXXXX" '用户名
End If
If aa.Type = "password" Then
aa.Value = "XXXXXX" '密码
End If
If aa.Type = "submit" Then
aa.Click
End If
Next
End Sub

Answer 7

'用WebBrowser更简单些
Private Sub Command1_Click()
On Error Resume Next '设置错误陷阱
vUrl = "http://www.126.com/"
WebBrowser1.Navigate vUrl
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
j = WebBrowser1.Document.getElementsByTagName("input").Length - 1
'Debug.Print j
Dim aa As Object
For i = 0 To j
Set aa = WebBrowser1.Document.getElementsByTagName("input")(i)
If aa.Type = "text" And aa.Name = "user" Then
aa.Value = Text1 '用户名
End If
If aa.Type = "password" Then
aa.Value = Text2  '密码
End If
If aa.Type = "submit" Then
aa.Click
End If
Next
End Sub

Answer 8

上面方法不错，不过163，126，sina等做在一起是不是方法是通用的，改下变量就行？

Answer 9

jmail需要安装额外组件，不想每台电脑都装。