vb中怎么让WebBrowser控件点击网页的ie隐藏

Question

Set xxx = WebBrowser1.Document.getElementsByTagName("a") 
xxx(0).Click让这种点击出来的IE隐藏，怎么做啊？不要使用
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
      Set ppDisp = WebBrowser2.object      
End Sub是真正IE打开点击的网页的

Answer 1

做一个判断逻辑,判断DataGrid1.BackColor的颜色

Answer 2

做一个判断逻辑,判断DataGrid1.BackColor的颜色这个怎么做啊？我的初衷是为了打开IE网页的统计代码获取到WebBrowser1的来路，这种能够是打开的网页获取到来路吗？期待您的回答！

Answer 3

貌似有一种SHELL HOOK,可以监视窗口的创建与销毁在那里面你把最新出现的句柄得到,然后判断一下是否是IE的类如果是,那就改变外观样式,使其不在任务栏出现;同时再将它最小化.

Answer 4

如果你无所谓的话可以用time刷新进程的snap然后判断新窗体的出现把他隐藏最小化

Answer 5

请问有代码给个参考吗？
其实我对是否一定用ie打开是无所谓的，关键是从WebBrowser1用xxx(0).Click 点击的网页上的统计能够判断来路是WebBrowser1的网址
即使提交到WebBrowser2也可以的，只要能够达到这种要求即可希望能够花时间看看，谢谢！

Answer 6

Sub zcy_click(url) '自动点击
  On Error Resume Next
  Set xxx = WebBrowser1.Document.getElementsByTagName("a")
  For i = 0 To xxx.length - 1
      bb = LCase(xxx(i).href)
      If InStr(bb, LCase(url)) > 0 Then
         xxx(i).Click
         Exit For
      End If
  Next
  
End Subcall zcy_click("baidu.com") '自动点击这种是一种虚拟点击，但是我想让点击出来的网页可以检测到来路用隐藏IE或者Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) 
      Set ppDisp = WebBrowser2.object       
End Sub 
都可以，只是要得到来路是WebBrowser1的URL

Answer 7

"用隐藏IE " 这是中国话吗？
是不是要隐藏某个IE，这个IE是call zcy_click("baidu.com")自动点击产生的的？IE的URL是特定的？
如果是，哪么我想隐藏IE和怎么产生的没什么关系，关键就在IE的URL，你可以检查IE的URL，如是你想要的，就让这个IE隐藏就行了。
用shellwindow可以得到IE对象，IE对象中的locationURL就是你要的URL，让IE隐藏，很简单，只要取得IE对象，哪么:IE对象.visible=false就隐藏了

Answer 8

"用隐藏IE "是中国话，语法不对，绝对不是日本话，打倒日本，哈哈感谢回答，url是特定的，xxx(i).Click 之前我就可以获取这个特定的URL了，我shellwindow先做做看，不知道会不会用，不行再请教！！

Answer 9

已经处理成功，不过有个小问题，怎么让Sub zcy_click(url)  '自动点击 
  On Error Resume Next 
  Set xxx = WebBrowser1.Document.getElementsByTagName("a") 
  For i = 0 To xxx.length - 1 
      bb = LCase(xxx(i).href) 
      If InStr(bb, LCase(url))  > 0 Then 
         xxx(i).Click 
         Exit For 
      End If 
  Next 
   
End Sub 这里的xxx(i).Click 自动用IE打开，否则用默认浏览器比如遨游等打开则For Each objIE In dWinFolder
     If objIE.LocationURL = url Then        
        objIE.Visible = False '隐藏IE
        Exit For
     End If
Next
会失效，因为objIE不能获取这样浏览器的信息！

Answer 10

Dim dWinFolder  As New ShellWindows
Dim objIE
For Each objIE In dWinFolder
     If objIE.LocationURL = url Then
        objIE.Visible = False  '隐藏IE
        Exit For
     End If
Next
这有什么问题吗？
我想你一定引用了Microsoft Internet Controls了吧，记住，是引用

Answer 11

Sub zcy_click(url)   '自动点击  
  On Error Resume Next  
  Set xxx = WebBrowser1.Document.getElementsByTagName("a")  
  For i = 0 To xxx.length - 1  
      bb = LCase(xxx(i).href)  
      If InStr(bb, LCase(url))   > 0 Then  
         xxx(i).Click  
         Exit For  
      End If  
  Next  
    
End Sub  我指这个函数，xxx(i).Click  能够自动调用IE打开xxx(i).href，有什么方法吗？否则如果这个url是用遨游等其他浏览器打开的，则objIE.Visible = False 会无效的，隐藏的目的也就没有达到了

Answer 12

如果是其它浏览器，根本就不在shellwindows之列，当然就不能用上面所说的方法了
你可以取得xxx的href,你要以用ShellExecute(API函数）
如：
ShellExecute Me.hwnd, "open", "http://www.163.com/", vbNullString, App.Path, 1

Answer 13

用ShellExecu则xxx(i).href的网址统计不能统计到来路是WebBrowser1的网址了
看来不好处理了，呵呵，谢谢！！

Answer 14

没有测试，用shellexecute也是用默认的浏览器打url
哪么，现在只要是用IE打开URL就能实现哪样的功能是吧？
引用Microsoft Internet Controls
Dim objIE As New InternetExplorer
objIE.Navigate xxx(i).href
objIE.Visible = True
这样，肯定是用IE打开的

Answer 15

Dim objIE As New InternetExplorer 
objIE.Navigate xxx(i).href 这样xxx(i).href 网页的统计代码统计的来路会是空，不会是WebBrowser1.LocationURL这与我想要达到统计来路目的矛盾我的主要目的是打开目标网页，让目标网页的统计代码统计的来路是我设置的网址，同时目标网页还是隐藏打开！
例如：我想让www.39kan.com的站长统计代码统计到来路是www.baidu.com,并不一定要打开www.baidu.com