| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2844 人关注过本帖
标题:如何创建新的浏览器进程并自动登录账号
只看楼主 加入收藏
leilei88
Rank: 2
来 自:青岛
等 级:论坛游民
帖 子:217
专家分:27
注 册:2008-3-30
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:14 
如何创建新的浏览器进程并自动登录账号
我用的浏览器是傲游1.6,所以每次执行InternetExplorer.Navigate都会在当前浏览器中以新标签的方式打开网页,但在同一浏览器中访问同一网页时会使用相同的cookie,或者有其他的冲突。我想让InternetExplorer.Navigate执行后打开一个新的傲游浏览器进程(也就是一个新的浏览器窗口)打开网页,如何做?
我弄的是校内,所以多个进程的浏览器可以开多个号。
搜索更多相关主题的帖子: 浏览器 网页 进程 
2009-07-16 09:27
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
用程序名 + 网址,在新的进程中打开网页.

能用IE的话,建议你这里用IE打开.
明确指出运行 IE 进程,然后通过传递参数的方式来打开指定的网页.

授人于鱼,不如授人于渔
早已停用QQ了
2009-07-16 10:52
leilei88
Rank: 2
来 自:青岛
等 级:论坛游民
帖 子:217
专家分:27
注 册:2008-3-30
收藏
得分:0 
回复 2楼 风吹过b
哦..谢谢
但InternetExplorer.Navigate是通过默认的浏览器登录,我现在默认的浏览器是傲游,在不改变默认浏览器的情况下能不能调用IE去登录?
2009-07-16 15:30
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
InternetExplorer理论上是调用了IE,而傲游拦截了调用IE的请求。这时尝试直接启动iexplore.exe
2009-07-16 18:52
leilei88
Rank: 2
来 自:青岛
等 级:论坛游民
帖 子:217
专家分:27
注 册:2008-3-30
收藏
得分:0 
回复 4楼 multiple1902
不明白。。那应该怎么办呢?我是想直接在代码里启动IE并登录
2009-07-16 19:17
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
这时尝试直接启动iexplore.exe
2009-07-16 22:40
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
'定义IE的位置,只适用于 Win32 ,不适用 于 Win64
Private Const IEPATH = "C:\Program Files\Internet Explorer\IEXPLORE.EXE"

'强制使用IE打开指定的网址,因为 IE位置里包含了 空格,所以要用双引号引起来.
            Shell Chr(34) & IEPATH & Chr(34) & " " & 登录页URL, vbNormalFocus

授人于鱼,不如授人于渔
早已停用QQ了
2009-07-17 08:31
leilei88
Rank: 2
来 自:青岛
等 级:论坛游民
帖 子:217
专家分:27
注 册:2008-3-30
收藏
得分:0 
回复 6楼 multiple1902
这样是用IE打开了多个IE窗口,但他们的进程都是同一个,所以不能实现多帐户的登录。
2009-07-17 13:52
leilei88
Rank: 2
来 自:青岛
等 级:论坛游民
帖 子:217
专家分:27
注 册:2008-3-30
收藏
得分:0 
回复 7楼 风吹过b
但是我是要用InternetExplorer.Navigate这个方法去登录账号,不是仅仅只打开指定页面。。
或者还有没有更深点的办法。。?
2009-07-17 13:54
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
资料:

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

授人于鱼,不如授人于渔
早已停用QQ了
2009-07-17 15:55
快速回复:如何创建新的浏览器进程并自动登录账号
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.051872 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved