UC知道会vb帮我看看 WebBrowser写留言板
来源：百度知道 编辑：UC知道 时间：2024/06/21 08:35:05
</script>
<table align="center" width="95%" cellpadding="0" cellspacing="1" border="0" bgcolor="#F0F0F0" style="margin-top:10px;">
<form action="Index.asp" method="post" onsubmit="return ChkBook(this);">
<input type="hidden" name="Action" value="SaveAdd">
<tr bgcolor="#FFFFFF">
<td height="22" align="center" colspan="2"><a href="Index.asp" style="color:#FF0000; text-decoration:underline">返回留言列表</a></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align="center">留言主题：</td>
<td> <input type="text" name="Title" style="width:200px;" maxlength="25"></td>
</tr>
<tr
<table align="center" width="95%" cellpadding="0" cellspacing="1" border="0" bgcolor="#F0F0F0" style="margin-top:10px;">
<form action="Index.asp" method="post" onsubmit="return ChkBook(this);">
<input type="hidden" name="Action" value="SaveAdd">
<tr bgcolor="#FFFFFF">
<td height="22" align="center" colspan="2"><a href="Index.asp" style="color:#FF0000; text-decoration:underline">返回留言列表</a></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align="center">留言主题：</td>
<td> <input type="text" name="Title" style="width:200px;" maxlength="25"></td>
</tr>
<tr
webbrowser1.document.all("Title").value="标题"
webbrowser1.document.all("Content").value="内容长度要够偶"
WebBrowser1.Document.Forms(0).submit
For i = 0 To WebBrowser1.Document.All.length - 1
If UCase(WebBrowser1.Document.All(i).Name) = "TITLE" Then
WebBrowser1.Document.All(i).Value = Text1.Text
End If
If UCase(WebBrowser1.Document.All(i).Name) = "CONTENT" Then
WebBrowser1.Document.All(i).Value = Text2.Text
End If
If UCase(WebBrowser1.Document.All(i).Type) = "SUBMIT" Then
WebBrowser1.Document.All(i).Click
End If
Next i