Private Sub Command1_Click() Dim IEwin As New ShellWindows Dim IE As InternetExplorer List1.Clear For X = 0 To IEwin.Count - 1 Set IE = IEwin.Item(X) List1.AddItem "X" List1.ItemData(List1.ListCount - 1) = IE.hWnd NextEnd SubPrivate Sub Command2_Click() Dim IEwin As New ShellWindows Dim IE As InternetExplorer For X = 0 To IEwin.Count - 1 Set IE = IEwin.Item(X) If List1.ItemData(List1.ListIndex) = IE.hWnd Then Text1.Text = IE.Document.URL IE.Document.write "<P>禁止</P>" End If Next End Sub
访问IE里的内容是可以通过一个系统类遍历IE窗口,用API获得当前窗口句柄,
然后与遍历的窗口句柄对比,如果一致表示当前使用的就是这个IE窗口,然后
更具类的HTML属性获得IE窗口的HTM代码。
详细的可以参考以下地址:
http://community.csdn.net/Expert/topic/3808/3808822.xml?temp=.1660578
Dim IEwin As New ShellWindows
Dim IE As InternetExplorer
List1.Clear
For X = 0 To IEwin.Count - 1
Set IE = IEwin.Item(X)
List1.AddItem "X"
List1.ItemData(List1.ListCount - 1) = IE.hWnd
NextEnd SubPrivate Sub Command2_Click()
Dim IEwin As New ShellWindows
Dim IE As InternetExplorer
For X = 0 To IEwin.Count - 1
Set IE = IEwin.Item(X)
If List1.ItemData(List1.ListIndex) = IE.hWnd Then
Text1.Text = IE.Document.URL
IE.Document.write "<P>禁止</P>"
End If
Next
End Sub