WebBrowser1控件 打开默认位置设置 还有模拟点击 请教！

我想让 WebBrowser1 打开网页一个默认的位置 比如打开页面 位置就在底部信息。。 
模拟点击不知道有谁研究过没！ 请教高手了

解决方案 »

  1.   


            If browser.Document.Title = "投票调查" Then
                '获得浏览器地文档对象
                Set Doc = browser.Document
                                            
                           
                Doc.body.All("按纽名").Click
                '提交“按纽名”是网页源码中的名子
      

  2.   

    If browser.Document.Title = "投票调查" Then
                '获得浏览器地文档对象
                Set Doc = browser.Document
                                            
                           
                Doc.body.All("按纽名").Click
                '提交“按纽名”是网页源码中的名子完全没看懂 谁能解释清楚点嘛？
      

  3.   

    <html>
    <head>
    <title>"testPage"</title>
    </head><body><FORM name=chh method = "POST" action = "login.asp">  <table width="100%" border="0" cellspacing="0" cellpadding="2">
        <tr> 
          <td width="31%" align="center">用户：</td>
          <td width="69%" align="left"> 
           <input name="LoginName" type="text" id="LoginName" size="12"> 
          </td>
        </tr>
        <tr> 
          <td width="31%" align="center">密码：</td>
          <td width="69%" align="left"> 
           <input name="LoginPassword" type="password" id="LoginPassword" size="12"> 
          </td>
        </tr>
      </table>
    <input type = "submit" id = "clickme" value = "提交">
    </FORM>
    </body>
    </html>
    保存为HTML文件，并打开
      

  4.   

    VB填充IE上的输入框并提交 
    假设登录页面的HTML代码如下：<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html>
    <head>
    <title>testPage</title>
    </head><body><FORM name=chh method = "POST" action = "login.asp">  <table width="100%" border="0" cellspacing="0" cellpadding="2">
        <tr> 
          <td width="31%" align="center">用户：</td>
          <td width="69%" align="left"> 
           <input name="LoginName" type="text" id="LoginName" size="12"> 
          </td>
        </tr>
        <tr> 
          <td width="31%" align="center">密码：</td>
          <td width="69%" align="left"> 
           <input name="LoginPassword" type="password" id="LoginPassword" size="12"> 
          </td>
        </tr>
      </table>
    <input type = "submit" id = "clickme" value = "提交">
    </FORM>
    </body>
    </html>
    很简单的页面，在上面有一个登录的Form，一个用户名输入框LoginName，一个密码输入框LoginPassword和一个提交按钮clickme然后用IE打开这个页面，注意页面的title设置为testPage。然后打开VB，在工程中引用Microsoft internet controls：Private Sub Command1_Click()
        Dim IEList As New ShellWindows
        Dim browser
        Dim Doc
        
        On Error Resume Next
        
        '遍历当前地浏览器窗口
        For Each browser In IEList
            '找到需要地IE窗口
            If browser.Document.Title = "testPage" Then
                '获得浏览器地文档对象
                Set Doc = browser.Document
                
                '填写用户名字段
                Doc.body.All("LoginName").Value = "eddie"
                '填写密码字段
                Doc.body.All("LoginPassword").Value = "123456"
                
                '提交
                Doc.body.All("clickme").Click
            End If
        Next
    End Sub
      

  5.   


    WebBrowser1.Navigate "主页"
      

  6.   

    是 WebBrowser 的默认位置啊！！