' 引用ieframe.dll Private Sub Command1_Click() Dim w Dim s As New SHDocVw.ShellWindows For Each w In s If InStr(w.LocationURL, "baidu.com") > 0 Then w.Navigate ("www.google.cn") End If Next End Sub '百度要疯了
Powered by: 博客园 Copyright © 2024 随风飘零0 Powered by .NET 8.0 on Kubernetes