我有一个网页的登陆界面代码，用VB6.0如何实现在用户名处输入“123”,密码处输入“456”。望高手解答。

''用一个原来的现有函数改造的。
''如果有这方面的基础的话应该很快上手


'本函数可以实现点击网页中的某个链接，该链接有一个唯一的标记用以区分
'如果有多个链接需要点击，可以设为一类重复执行
'同样适用于网页中的按钮等。
'变通一下之后可以输入内容，实现自动填写表单的功能。
'填写表单采用：vTag.Value = "填写内容"
'首先在webbrowser1中打开指定网页
'成功返回1，不成功返回-1
Private Function ClickCmd()
  On Error GoTo Error
  Dim vDoc, vTag
  Dim i     As Integer
  Set vDoc = WebBrowser1.Document
  For i = 0 To vDoc.All.Length - 1                 '检测所有标签
 '***
 
    If vDoc.All(i).tagName = "input" And vDoc.All(i).id = "un" Then  
      vDoc.All(i)..Value="123"'填写用户名
    End If
If vDoc.All(i).tagName = "input" And vDoc.All(i).id = "pwd" Then  
      vDoc.All(i)..Value="456"'填写密码
    End If
  Next i
clickcmd=1
exit function
Error:
  Clickcmd= -1
End Function