请问如何取得当前运行的ie的标题(存放到字符串中)。
以及如何关闭当前的ie.
首先在工程中加入对Microsoft Internet Controls的引用
代码:
Dim WithEvents objIEMain As WebBrowser_V1
Dim objIE As Object
Dim dWinFolder As New ShellWindows
Dim objDoc As Object
For Each objIE In dWinFolder
List1.AddItem objIE.Document.Title
List2.AddItem objIE.LocationURL
Next
就可以在List1中列出所有IE文档的标题了。 下面是关闭其中一个窗口的代码:
If InStr(objIE.Document.Title, "Apple") Then
objIE.Quit
End If
以及如何关闭当前的ie.
首先在工程中加入对Microsoft Internet Controls的引用
代码:
Dim WithEvents objIEMain As WebBrowser_V1
Dim objIE As Object
Dim dWinFolder As New ShellWindows
Dim objDoc As Object
For Each objIE In dWinFolder
List1.AddItem objIE.Document.Title
List2.AddItem objIE.LocationURL
Next
就可以在List1中列出所有IE文档的标题了。 下面是关闭其中一个窗口的代码:
If InStr(objIE.Document.Title, "Apple") Then
objIE.Quit
End If
HIE:THandle;
begin
HIE:=Findwindow('ieframe',nil);
postmessage(HIE,WM_close,0,0);
end;