Question

怎么用 vb2010 用WebBrowser控件点击<script> 的按钮？

<script>

//<![CDATA[

efeihu.modules.global_head.init();

//]]>

efeihu.logic.Login.addEvent('statusChange',function(e, userData){

if(userData){

if($("#JvhdQD")!=null)

$("#JvhdQD").removeClass().addClass("vhd_qiandao").html("");

}

});

$("#JvhdQD").click(function(){

var url="/PublicAjax/AjaxService.aspx?action=qiandaov2";

$.ajax({

url:url,

dataType:'json',

cache : false,

success: function(json){

var othis=$("#JvhdQD");

switch(json.result){

case "-1" :

othis.removeClass();

othis.addClass("vhd_qiandao");

othis.html("");

break;

case "0":

othis.addClass("vhd_qiandaoOK").css({"letterSpacing":"0"});

othis.html("对不起，每天只限签到1次");

break;

case "login" :

othis.addClass("vhd_qiandao_login");

othis.html("请先登录您的飞虎账户");

break;

case "over" :

othis.hide();

break;

default :

othis.addClass("vhd_qiandaoOK");

//othis.html("第" + json.result + "天签到,今天得" + json.result + "分").css({"letterSpacing":"1px"});

if (json.result=="310"){

othis.html("签到满30天，获得310积分").css({"letterSpacing":"1px"});

}

else{

othis.html("恭喜您已获得" + json.result + "分").css({"letterSpacing":"1px"});

}

break;

}

return false;

}

});

});

</script>

Answer 1

您好，请您将您要读取的网页域名告诉我们，我们会进行分析并给您最佳答案，谢谢！

追问

飞虎乐购 首页右上角的积分领取按钮 谢谢

追答

您好，您可以参考以下代码（我设定WebBrowser的name属性为W1）：

W1.Document.getElementById("JvhdQD").Click

以此来模拟按键， 这个便是那个网页并且符合您的要求的代码，您可以直接复制并粘贴在您的工程中；

如果本次回答对您有帮助，请您采纳以支持我们的发展，谢谢！！

追问

会报错

我知道了谢谢