VB的复制、剪切

先用打开按扭打开某个文本文档（假如，该文档的名字为1.txt ）然后复制或剪切该文档的第一行，然后将他们粘贴到打开的网页里面。我想要实现的是，当我点击登陆按扭时，复制文本文档的第一行空格前的数据 到用户名 。空格后的数据到密码。然后就可以自动登陆上去。

添加部件。。internet controls
多了个地球图标，拉一个放窗体上
再拉一个command，，
复制代码则可直接登陆163.com
1.txt放到c盘
1.txt的内容为
mail.163.com a123456789 a123456
'===================代码
Dim vDoc, vTag
Dim i As Integer
Dim a() As String

Private Sub Command1_Click()
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.Type = "text" Then
Select Case vTag.Name
Case "username"
vTag.Value = a(1) '用户名
End Select
End If
If vTag.Type = "password" Then
Select Case vTag.Name
Case "password"
vTag.Value = a(2) '密码
End Select
End If
If vTag.Name = "remUser" Then '如果不要记住用户名，此句删除
vTag.Click
End If
If vTag.Type = "submit" Then '如果不要点击按钮登陆，把此if的代码删除
vTag.Click
End If
End If
Next i