Dim dWinFolder As New SHDocVw. ShellWindows
Dim objIE As InternetExplorer
For Each objIE dWinFolder In
The Debug. Print objIE. FullName 'can find all the IE Windows exe
If InStr (1, objIE FullName, "* * * * *. Exe," vbTextCompare) & lt;> 0 Then
The Debug. Print objIE. LocationURL
End the If
Next
On the system of Internet explorer or the webbrowser control basic programming can be available, such as flash browser can get normal, but like candy browser, it doesn't, I don't know the reason? Window type as below:
Flash swim browser
Shell DocObject View \ Shell Embedding \ 1.0 \ SAclass SABrowser
Candy browser
Shell DocObject View \ Shell Embedding \ Afx: 00400000:8, 010003:00000006-00000000 \ Afx: 00400000:8, 010003:00000006-00000000
Mystery, warrior, please grant instruction?
Or if there are other methods can be obtained by VB,
CodePudding user response:
With candy open ip.chinaz.com see if ie kernel, if not, is expected to be judged by acquiring of the handle,