一、vb webbrowser 重新载入 AxWebBrowser1.ExecWB(22, 1) 跟刷新AxWebBrowser1 .Refresh 的区别
己打开网页重新载入与.refresh的区别,可以参考IE大概相当于IE打开了网址,然后进入地址栏(原地址)直接敲回车,与刷新按钮的区别。
二、VB如何判断WEBBROWSER网页的更改
建一个WebBrowser1,Text1。代码如下。
===========
Private Sub WebBrowser1_TitleChange(ByVal Text As String)
Text1.Text = WebBrowser1.LocationURL
End Sub
三、VB WebBrowser 若变换了网页,则关闭
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If WebBrowser1.LocationURL <> "http://www.baidu.com" Then
End
end if
End Sub
四、vb 判断webbrowser加载网页完成
我用webbrowser打开一个网页,这个网页打开有点慢。所以想让他在未加载完成前让他不显示。加载完成后再显示出来。
1、方法1:
1.输入网址并打开
2.启动一个Timer,循环检查webbrowser.busy属性,如果为TRUE则代表还没打开 如果为FALSE,就打开了,然后关掉Timer代码:
Private Sub Form_Load()
'打开并启动Timer1
WebBrowser1.Navigate "www.baidu.com"
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If WebBrowser1.Busy Then
Exit Sub
Else
'这里就打开了,可以在这加你的代码了
Timer1.Enabled = False
End If
End Sub
2:方法2:
Private Sub Form_Load()
WebBrowser1.Visible=flase
WebBrowser1.Navigate "www.baidu.com"
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If WebBrowser1.Busy Then
Exit Sub
Else
WebBrowser1.Visible=true
Timer1.Enabled = False
End If
End Sub
3:方法3:
让webbrowser一直保持visible=false状态然后在他的NavigateComplete2事件中让他为true就成了!
4:方法4:vb 如何判断 WebBrowser.Navigate 载入的网页完全加载完,或者加载完后会触发什么事件。
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If pDisp = WebBrowser1.Object Then
MsgBox "网页完全加载完了!!!"
End If
End Sub
5:方法5:vb中判断webbrowser打开网页是否成功
一般标准的网页最后都有</html>标签,如何让VB webbrowser进行判断</html>已经完全打开.如果发现了</html>弹出提示"加载完成"如果没有发现</html> 则不出现任何提示 不能通过判断代码进行提示吗? 应为我的部分HTML文件不包含</html> 所以不想让他提示
VB里可以通过检测Webbrowser控件的ReadState属性获取载入完成情况。比如
Webbrowser1.Navigate "http://www.baidu.com"
Do
DoEvents
If Webbrowser1.ReadState = 4 Then Msgbox "载入完成":Exit Do
Loop
六、VB 6.0 WebBrowser控件的 ExecWB方法是怎么用的,各个参数的意义是什么?
WebBrowser.ExecWB(1,1) 打开
WebBrowser.ExecWB(2,1) 关闭现在所有的IE窗口,并打开一个新窗口
WebBrowser.ExecWB(4,1) 保存网页
WebBrowser.ExecWB(6,1) 打印
WebBrowser.ExecWB(7,1) 打印预览
WebBrowser.ExecWB(8,1) 打印页面设置
WebBrowser.ExecWB(10,1) 查看页面属性
WebBrowser.ExecWB(15,1) 好像是撤销,有待确认
WebBrowser.ExecWB(17,1) 全选
WebBrowser.ExecWB(22,1) 刷新
WebBrowser.ExecWB(45,1) 关闭窗体无提示
七、
提取所有链接倒可以,但手机号码和邮件地址要以网页而定。
提取所有链接代码:点击按钮后,所有网址都保存在d:\1.txt里
Private Sub Command1_Click()
Open "d:\1.txt" For Output As #1
Close
Dim x As Long
Dim y As String
For x = 0 To WebBrowser1.Document.links.length - 1
Print WebBrowser1.Document.links.Item(x)
y = WebBrowser1.Document.links.Item(x)
Open "d:\1.txt" For Append As #1
Write #1, y
Close (1)
Next
End Sub
八、vb用WebBrowser打开网页后失去了光标????
Private Sub Form_Load()
WebBrowser1.Navigate "http://freereg.qq.com/"
End Sub
Private Sub WebBrowser1_DownloadComplete()
SendKeys "{TAB}"
SendKeys "+{TAB}"
End Sub
你继续sendkeys "{TAB}" 看看要多少次才到那里 写个循环 要不就只要获取坐标模拟点击那里
九、用WEB加载网页成功,但是,我想在VB中,用IMG控件来显示网页的上验证码?怎么做?最好有详细实例说明~~,我做的IMG显示出来的验证码总是和WEB加载网页中的,不相同?怎么做才能使得相同??请高手指教!
Private Sub Command1_Click()
Dim CtrlRange, x
For Each x In WebBrowser1.Document.All
If UCase(x.tagName) = "IMG"
Set CtrlRange = WebBrowser1.Document.body.createControlRange()
CtrlRange.Add (x)
CtrlRange.execCommand ("Copy")
Image1.Picture = Clipboard.GetData
End If
Next
End Sub
- 1
- 2
前往页