yu2n

VBS 获取 IE 浏览器打开网页的 URL 地址

On Error Resume Next
For Each o In CreateObject("Shell.Application").Windows
  If Instr(LCase(o.FullName),"\iexplore.exe") > 0 Then
    sURL = sURL & vbCrLf & o.LocationURL
  End If
Next
Msgbox sURL
复制代码

yu2n

回复 3# tedahan

VBS 无法读取除IE浏览器之外的浏览器信息，可以考虑用VB+API来读取。