假设用VB来做，添加控件command1,text1,text2,W1(webbrower),在窗体里添加以下代码，就自动登录百度了。Private Sub Form_Load()
W1.Navigate "https://passport.baidu.com/?login&tpl=mn"End SubPrivate Sub Command1_Click()
Dim vDoc, vTag
Dim i As Integer
On Error Resume Next
Set vDoc = W1.Document '把网页的文档赋给vDoc
