Dim SelectNum As Byte
Dim vDoc, vTag
Dim i As Integer
Dim Num As Integer
Set vDoc = WebBrowser1.Document
SelectNum = 1
For i = 0 To vDoc.All.length - 1
'-----------------------------------------------------
If UCase(vDoc.All(i).TagName) = "INPUT" Then
If vDoc.All(i).id = "invitation_code" Then
vDoc.All(i).Value = Text4.Text '赋值
vDoc.All(i).Click '点击
vDoc.All(i).Select '获得焦点 vDoc.All(i).innertext = ""' 相关数据
End If
End If
Next