WEBBROWSER控件怎样设置为不加载图片？

来源：百度知道 编辑：UC知道 时间：2024/05/29 09:47:10
修改注册表会影响IE，VB用WININET会线程堵塞。有没有办法不让WEBBROWSER不加载图片？或有没有只下载源代码的网页控件或方法？
1楼的，您能补充把c:\baidu.com的源代码复制到text1的代码吗，如果可以我给多10分

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Command1_Click()
Dim F As String, nURL As String, S As Long
nURL = "http://www.baidu.com/"
F = "C:\baidu.htm"
S = URLDownloadToFile(0, nURL, F, 0, 0) '下载网页源文件，返回 0 表示成功
End Sub

补充：------------------------------
'控件： Command1、text1
'在属性窗口设置 text1 属性：MultiLine = True ScrollBars = 2
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Command1_Click()