webbrowser控件怎么得到,网站上完整代源代码?
或参数详解最好有代码
或参数详解最好有代码
解决方案 »
- WebBrowser与Sock控件也冲突??
- from 子句语法错误,请大侠指点,应该简单
- 求VB6介面设计方法及............
- 各位大侠求救:为什么我用VB的Inet1控件连不上我本地的UNix服务器
- 再问!MSComm1.RThreshold值随着要求接收的数据内容不同而改变。可以实现吗?
- 菜鸟请教关于连接数据库的问题,请各位大虾赐教!
- 可否提供一个免费下载自定义控件的地址。谢谢!
- 谁有微软控件 Spreadsheet1的使用 DEMO 给个下载地址也行阿,谢谢了
- 请教使用Setup Factory生成的安装程序怎么删除掉桌面图标
- 谁知道怎么让4个SHAPE控件不停的循环显示自己的颜色?朋友能告述我么?谢谢!!!
- 请问VB和access怎么连?谢谢!
- 请问如何在richtextbox中的指定位置插入图片?
private sub command1_click()
webbrowser1.navigate http://www.sohu.com/
timer1.enabled=true
end subprivate sub timer1_timer()
dim doc,objhtml as object
dim i as integer
dim strhtml as stringif not webbrowser1.busy then
set doc=webbrowser1.document
i=0
set objhtml=doc.body.createtextrange()
if not isnull(objhtml) then
text1.text=objhtml.htmltext
end if
timer1.enabled=false
end if
end sub
一个例子的链接
http://vbworld.sxnw.gov.cn/Source/index.asp?kind=internet&page=2
方法很多。可以自己用WinSock,可以用IE5.5带的WinHttp。下面我给你一个用XML4.0里的XMLHttp的源代码。这是我刚在一个项目里用的。
Dim oXMLHttp As XMLHTTP40 Set oXMLHttp = New XMLHTTP40 On Error Resume Next
With oXMLHttp
.Open "Get", "http://www.csdn.net/", False
Me.MousePointer = vbHourglass
.Send
Me.MousePointer = vbDefault Text1 = .responseText
End With
Dim Strsource As String
Strsource = Inet1.OpenURL(URL.Text)
HTML.Text = Strsource