写:
For i = 0 To WebRegister.Document.Forms(0).Length - 1
'查找到输入框后填入已注册的信息
Select Case WebRegister.Document.Forms(0)(i).Name
Case "UserKey"
WebRegister.Document.Forms(0)(i).Value = UserKey
Case "UserName"
WebRegister.Document.Forms(0)(i).Value = UserName
Case "UserPhone"
WebRegister.Document.Forms(0)(i).Value = UserPhone
Case "UserAddress"
WebRegister.Document.Forms(0)(i).Value = UserAddress
Case "PostalCode"
WebRegister.Document.Forms(0)(i).Value = PostalCode
Case "Email"
WebRegister.Document.Forms(0)(i).Value = Email
Case "ComputerCode"
WebRegister.Document.Forms(0)(i).Value = ComputerCode
'Case "RegCode"
' WebRegister.Document.Forms(0)(i).Value = RegCode
End Select
Next