' 引用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 看看这段代码,不知道vb中怎么调用ieframe.dll,然后就可以控制了。
谢谢帮助,vbs控制弹出窗口的表单,是怎样的
vbs可以做到,简单演示再下面 具体的代码需要按照你的要求修改 ie.document.formlogin.username.value="admin" ie.document.formlogin.password.value="admin" ie.document.formlogin.submit 这三行就是填写表单和点击按钮的行为,我这个是模拟登陆路由器dim ie set ie=createobject("internetexplorer.application") ie.visible=true ie.navigate " http://192.168.1.1 " while ie.busy or ie.readystate<>4 wend ie.document.formlogin.username.value="admin" ie.document.formlogin.password.value="admin" ie.document.formlogin.submit
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 看看这段代码,不知道vb中怎么调用ieframe.dll,然后就可以控制了。
具体的代码需要按照你的要求修改
ie.document.formlogin.username.value="admin"
ie.document.formlogin.password.value="admin"
ie.document.formlogin.submit
这三行就是填写表单和点击按钮的行为,我这个是模拟登陆路由器dim ie set ie=createobject("internetexplorer.application")
ie.visible=true ie.navigate " http://192.168.1.1 "
while ie.busy or ie.readystate<>4
wend
ie.document.formlogin.username.value="admin"
ie.document.formlogin.password.value="admin"
ie.document.formlogin.submit