Question

关于VB自动提交表单的问题

RT，网上找到的基本上都是通过按钮来提交的，我需要的是通过按钮来提交的，按钮触发JSP脚本，然后执行一个过程
<script language="JavaScript">
'var width = 66;
' var height = 21;
' var fsize = 16;
' var color = 0x486796;
' var bgcolor = 0xCCD7EB;
' var xpos= 14;
' var ypos = 16;

function loadGimpyCode() {
var imageInfo = "&width="+width+"&height="+height+"&fsize="+fsize+"&color="+color+"&bgcolor="+bgcolor+"&xpos="+xpos+"&ypos="+ypos;
document.all.gimpyCodeImg.src = "/gimpyCode.mob?g_guid="+imageInfo;
document.all.gimpyCodeImg.width = width;
document.all.gimpyCodeImg.height = height;
}

var regCheck = 0;
function register() {
var f = document.fm;
var isGreeProtocol=false;
isGreeProtocol=document.fm.greeProtocol.checked;
if(!isGreeProtocol){
alert("你必需同意我们的《用户协议》才能进行注册!")
return;
}
if(!checkFields()) {
return;
}

f.birth.value = birthday;
f.target="_self";
f.method.value="join";
f.submit();
}

window.onload=function(){
var run_value1=document.fm.ext1.value;
var run_value2=document.fm.ext2.value;

if(run_value1.length>0){
var str = "<span class=pred>该用户名在你提交之前刚注册过，请更换其他用户名。</span>";
document.all.loginNameIco.innerHTML = "<img src='URL' width='14' height='14'>";
document.all.loginNameDes.innerHTML = str;
regCheck++;
nickNameCheck();
resetStatus();
}
if(run_value2.length>0){
var str = "<span class=pred>该昵称在你提交之前刚注册过，请换其他昵称。</span>";
document.all.nickNameIco.innerHTML ="<img src='url' width='14' height='14'>";
document.all.nickNameDes.innerHTML = str;
regCheck++;
loginNameCheck();
resetStatus();
}
}

function resetStatus(){
pwdCheck();
pwd2Check();
realNameCheck();
cerNoCheck();
questionCheck();
answerCheck();
emailCheck();
gcdCheck();
}

function checkFields(){
var fm = document.fm;
regCheck = 0;
realNameCheck();
loginNameCheck();
pwdCheck();
pwd2Check();
nickNameCheck();
cerNoCheck();
questionCheck();
answerCheck();
emailCheck();
gcdCheck();
if(regCheck != 0){
return false;
}else{
return true;
}
}

function checkFields2(){
regCheck = 0;
realNameCheck();
loginNameCheck();
nickNameCheck();
cerNoCheck();
questionCheck();
answerCheck();
emailCheck();
}
</script>
以上是这个脚本过程
<tr>
<td height="20" align="center"><a href="javascript:register();"><img src="url" width="105" height="33" /></a></td>
</tr>
这个是网页上的调用过程，求高人赐教，如果我问的有什么不清楚的可以HI我，答案满意后还有分相赠，感激不尽~
上面说错了，是通过脚本提交，没有按钮

Answer 1

由以上代码可知，虽然没有按钮，但有图片，只要点击那个图片，就可以实现调用JSP脚本的功能。
以下是示例代码，请参考：

Private Sub Command1_Click()
Dim links, link
With WebBrowser1
Set links = .Document.getElementsByTagName("img")
For Each link In links
If LCase(Right(link.src, 3)) = "url" Then '找到所需的链接
link.Click '点击
Exit For
End If
Next
End With
End Sub

Answer 2

方法1：抓包获得内容后、直接自己发包
方法2：使用类似于webbrowser一样的控件、直接运行这个JS脚本不就OK了？

Answer 3

.navigate "javascript:register();"
试试