11/11/2012, 11:24
bir de birinci kodun firefox için yazılmışı olsa o kadar işime yarayacak ki
şöyle bir kod buldum
şöyle bir kod buldum
Kod:
PublicClass Form1
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Get all opened IE instances
Dim shellWindows As SHDocVw.ShellWindows = New SHDocVw.ShellWindowsClass()
'Iterate each IE instance/object
Dim ie As SHDocVw.InternetExplorer
ForEach ie In shellWindows
' Get window title and URL of IE instance and display on ListBox
ListBox1.Items.Add(ie.LocationName & " " & ie.LocationURL)
' Close/quit this IE instance
ie.Quit()
Next ie
EndSub
EndClass