您的位置：程序门 -> vb -> 网络编程

js触发的onclick事件的模拟

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

js触发的onclick事件的模拟

发表于：2007-12-17 13:30:50 楼主

1.对于一个在js内触发的onclick事件，在vb中，用webbrowser1.document（"id").click不行。
请问应该怎么样模拟此点击事件。
2.textarea中输入値，用vb如何提交到网页textarea中，text有value属性，而textarea应该如何操作。

发表于：2007-12-18 18:58:231楼得分:0

用webbrowser打开网页后,网页内的所有元素你都可以通过代码来操作,
方法是:1.根据标记名（tagname)的和元素名name来找到元素,
2.给元素赋值或是执行相关的事件.

例1: 给username文本框内填充内容:
private sub webbrowser1_documentcomplete（byval pdisp as object, url as variant)
dim doc
dim tg
set doc = webbrowser1.document
for i = 0 to doc.all.length - 1
if （lcase（doc.all（i).tagname)) = "input" then
if （lcase（doc.all（i).name)) = "username" then
set tg = doc.all（i)
tg.value=text1.text
end if
end if
next i
end sub

例2: 找到提交按钮并点击
private sub webbrowser1_documentcomplete（byval pdisp as object, url as variant)
dim doc
dim tg
set doc = webbrowser1.document
for i = 0 to doc.all.length - 1
if （lcase（doc.all（i).tagname)) = "input" then
if （lcase（doc.all（i).type)) = "submit" then
set tg = doc.all（i)
tg.click
end if
end if
next i
end sub

发表于：2007-12-28 16:16:202楼得分:0

关键这个按钮没有定义type.不是submit.

发表于：2007-12-29 00:11:083楼得分:0

关注中.我也在寻找这个问题的答案

想自动点击qq空间的登陆链接
藏在js内的代码

vb.net code

lgb.innerhtml=' [ <a href="javascript:void（0)" onclick="_tgvshowloginbox（)">登录</a> ] ';....................
function _tgvshowloginbox（para){
    if（checklogin（)>10000){
        toolbarrefresh（);
    }
    else{
        _tgvsendstat（"showlogin");
        if（!!para) showloginbox（para);
        else showloginbox（);
    }
    return false;
}

下一篇：vb中webbrowser控件怎么将自己的菜单添加到webbrowser原来的右击菜单中？
上一篇：纯c语言开发的网站开源了!

其他资讯