和WebBrowser交互，急！！解决当场就给分！

[hgw520]

我用WebBrowser打开一登录页面，怎么实现单击窗体上“确定”让他触发WebBrowser网页上“登陆”按钮！
在进入checkPwd.asp页面（检察用户名和密码）时，怎么得到判断信息，即：用户名和密码正确或者是密码不正确信息？？？

[ZOU_SEAFARER]

分析里面的原代码，我这里有一文章，关于自动注册的，和你说的差不多
有一些是基于网络协议，需要了解session,cookie这些东西，对于一个新手来说很繁琐，等到把这些东西搞懂，热情也消耗殆尽。VB的优点就在于可以让那些对于计算机底层不是很了解的人迅速实现自己的程序设计，我找到了一种比较简单的办法，要求对HTML标记语言有所了解即可，现在把自己的经验写出来于各位网友共享，该方法也许不值一提，也许对您有所帮助。



我的办法就是利用控件WebBrowser,我想很多人对它都很熟悉，在新建一个工程之后您要做的是添加两个控件，一个是WebBrowser,另一个是Scriptlet，这两个控件配合使用，就可以完成这个任务了，Scriptlet中的IHTMLDocument2对象可以用来获得WebBrowser控件中的HTML文档。这两个控件的名字在组件对话框里分别叫Microsoft HTML Object Library和Microsoft Internet Controls。



这两个控件添加完成之后，你还需要知道WebBrowser的一个事件DocumentComplete，这个事件在整个网页下载完成之后触发，也就是说在页面完成之后这个事件即被执行，有了这些就可以顺利的实现注册了。



下面以eyou网站的免费邮箱注册为例来实现我的程序设计,新建标准工程后向form中添加一个WebBrowser控件。所有代码如下：



Dim ii As Integer







Private Sub form_Load()



WebBrowser1.Navigate "http://freemail.eyou.com/signup.html?bgp=%CE%D2%BD%D3%CA%DC&bgp_enable=on"



End Sub







Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)



Dim doc As IHTMLDocument2



Set doc = WebBrowser1.Document



Dim tmp As String







If InStr(doc.body.innerText, "寻找一个新的用户名") > 0 Then



tmp = "sdfsdf23" + Trim(Str$(ii))



doc.All.Item("uid").focus



SendKeys tmp



SendKeys "{enter}"



End If







If InStr(doc.body.innerText, "输入您的个人资料") > 0 Then







doc.All.Item("Password").value = "123456"



doc.All.Item("Confirm").value = "123456"



doc.All.Item("FirstName").value = "tomcant"



doc.All.Item("question").value = "what is your name"



doc.All.Item("answer").value = "my name is ddd"



doc.All.Item("year").value = "80"



doc.All.Item("month").value = "3"



doc.All.Item("day").value = "18"



doc.All.Item("day").focus



SendKeys "{enter}"



End If











If InStr(doc.body.innerText, "申请邮箱成功") > 0 Then



ii = ii + 1



WebBrowser1.Navigate "http://freemail.eyou.com/signup.html?bgp=%CE%D2%BD%D3%CA%DC&bgp_enable=on"



End If







End Sub



Eyou的免费邮箱注册入口地址为http://freemail.eyou.com/signup.html?bgp=%CE%D2%BD%D3%CA%DC&bgp_enable=on，所以要在form_load事件中使用WebBrowser控件的Navigate方法。



在eyou的注册入口页面完成之后WebBrowser1_DocumentComplete即被执行，在这个函数中主要有三个条件语句，在三个条件语句之前有如下三句：



Dim doc As IHTMLDocument2



Set doc = WebBrowser1.Document



Dim tmp As String



doc定义为IHTMLDocument2对象用以取得WebBrowser1的文档，tmp字符串是循环注册中的用户名，在程序刚开始定义了ii这个integer变量，在每次注册完成之后ii加1附于tmp之后用以改变用户名。



第一个条件语句如下：



If InStr(doc.body.innerText, "寻找一个新的用户名") > 0 Then



tmp = "sdfsdf23" + Trim(Str$(ii))



doc.All.Item("uid").focus



SendKeys tmp



SendKeys "{enter}"



End If



首先判断是否是注册入口页面，通过InStr(doc.body.innerText, "寻找一个新的用户名") > 0语句实现，doc.body.innerText即取得了该页面中的所有文字。如果是则构造一个用户名。doc.All.Item("uid").focus使用户名文本框取得焦点，其中uid是该文本框的ID，这个ID的取得是通过查看HTML源代码得到的，所以要求对HTML标记语言有所了解。使用户名文本框取得焦点之后通过SendKeys函数模拟键盘向文本框发送tmp字符串，这样用户名即填写完成，之后发送回车键提交表单。关于SendKeys函数的使用大家可查阅MSDN帮助。



第二个条件语句首先判断改页面是否是个人资料填写页面，然后填写个人资料，其方法同填写用户名一致，取得个文本框的ID后填写其值，最后提交表单。



最后一个条件语句判断邮箱注册成功后将ii加一，然后将页面重新定位到注册入口页面，至此一个循环完成。



以上代码即实现了自动注册提交。

[qkaibo]

我有一份超级源码 可以不用webbrowser 就可以搞定你以上的问题

msn:[e-mail] 我不在线可以发邮件我

[vansoft]

1、用WebBrowser控件，引用HTML对象来分析网页源码。
这种方法比较简单。

2、取IE窗口句柄，取到网页句柄，然后也是分析。

第2种很难，你自己看着办。

[hgw520]

ZOU_SEAFARER(国际海员),你的例子虽然没用上，但从你的例子上我得到了灵感！谢谢！