7,785
社区成员




<INPUT type="button" value="信 息"style="color:red;" name="submit1212" class="btnStyle"><span class="p9">
<INPUT name="msg" size="35" maxlength="120"><INPUT type="button" value="<" name="cP" TITLE="上一句话" class="btnStyle" onclick="gP();" ondblclick="gP();"><INPUT type="button" value=">" name="cN" TITLE="下一句话" class="btnStyle" onclick="gN();" ondblclick="gN();"><INPUT type="submit" value="发 送" name="submit1" class="btnStyle">
Private Sub InputForm(Mode As Integer)
On Error Resume Next
Dim vDoc, vTag, vTag2
Dim i As Integer
Dim msg As String, Submit As String
msg = "msg"
Submit = "submit1"
Set vDoc = WebBrowser2.Document
For i = 0 To vDoc.All.Length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Select Case vTag.Name
Case msg
vTag.Value = "test"
Exit Sub
Case Else
End Select
End If
End If
Next i