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



自动提交网页数据问题!


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


自动提交网页数据问题!
发表于：2007-12-19 11:14:43 楼主
private   sub   command1_click（)
webbrowser1.navigate   "http://ns.gamecamp.cn"  
dim   vdoc,   vtag,   a

dim   i           as   integer

set   vdoc   =   webbrowser1.document
a   =   vdoc.all.length   -   1

for   i   =   0   to   vdoc.all.length   -   1   '检测所有标签
        set   vtag   =   vdoc.all（i)

        if   ucase（vtag.tagname)   =   "input"   then                       '找到input标签

                if   vtag.type   =   "text"   or   vtag.type   =   "password"   then                                       '看看是不是我们需要的

                        select   case   vtag.name               '按标签的名字,对号操做

                                case   "username"

                                        vtag.value   =   "250"             '这里写入你的e-mail

                                case   "password"

                                        vtag.value   =   "1"               '这里写入你的密码

                        end   select
                end   if
        end   if
next   i

for   i   =   0   to   vdoc.all.length   -   1   '检测所有标签
        set   vtag   =   vdoc.all（i)
        if   ucase（vtag.tagname)   =   "a"   then
                if   vtag.innertext   =   "登录"   then   '找到提交按钮

                'vtag.select       '也可以没有这个
       
                        vtag.click       '点击提交了，一切都ok了
       
                end   if

        end   if

next   i

end   sub


webbrowser1.navigate   "http://ns.gamecamp.cn"   '这一句放在form_load（)里面就是可以,如果一定要跟command1里的语句一起,就不能登陆了,怎么办!

发表于：2007-12-19 11:23:351楼 得分:0
为什么都不考虑用winsock完成呢=_=
发表于：2007-12-20 16:33:042楼 得分:0
winsock怎么完成?

相关文章
其他资讯

快速检索
分类导航标签a

最新资讯
热门点击