有没有比inet控件更快得到网页源文件的方法？

assa 2003-11-19 02:52:42

请问有没有比inet控件更快得到网页源文件的方法:

dim content as string
Inet1.url="www.sohu.com"
content = Inet1.OpenURL(Inet1.url)
msgbox content

请各位指点
感谢感谢～

...全文

38 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

assa 2003-11-24

打赏
举报

assa 2003-11-23

打赏
举报

我看了一段代码是这样的
IStream * pStream;
URLOpenStream (NULL, L"http://www.msn.com/", &pStream,
0, 0);

char buffer[0x100];

DWORD dwGot;
HRESULT hr = NOERROR;

do {
hr = pStream->Read (buffer, sizeof(buffer),&dwGot);

//.. do something with contents of buffer ...
} while (SUCCEEDED(hr));
.
可是明明URLOpenStream没有定义什么数据输出接口呀
msdn 上是这么定义的

HRESULT URLOpenStream(
LPUNKNOWN pCaller,
LPCSTR szURL,
DWORD dwReserved,
LPBINDSTATUSCALLBACK lpfnCB
)
哪位高手能解释解释如何得到内容，难道也要做个地址指针来循环吗？

assa 2003-11-22

打赏
举报

不懂不懂，看的有点晕了！！！！

Private Declare Function URLOpenStream Lib "urlmon" _
Alias "URLOpenStreamA" _
(ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal content As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long

Private Sub Command1_Click()
Dim content As Variant
URLOpenStream 0, "http://www.sohu.com", content, 0, 0
MsgBox content
End Sub

无法实现！为什么不能直接给content值呢？？

hhjjhjhj 2003-11-22

打赏
举报

URLDownloadToFile 0, "http://www.sohu.com", "c:\test.txt", 0, 0
URLOpenStream如何使用-----看API资料或微软MSDN网站

assa 2003-11-22

打赏
举报

to: hhjjhjhj(大头)

URLDownloadToFile 0, "www.sohu.com", "c:\test.txt", 0, 0

程序没报错，但是找不到test.txt文件，为什么？？

assa 2003-11-22

打赏
举报

请问URLOpenStream如何使用，能说详细点吗？谢谢！

hhjjhjhj 2003-11-21

打赏
举报

其实webbrowser1最慢.它要把所有图片下载完了才行,如果碰到一个图片来自另一个服务器,并且打不开,那你就等着吧!不过它是异步执行的,所以不影响程序的运行.
其实还有更快的------URLOpenStream(类似URLDownloadToFile)

hhjjhjhj 2003-11-21

打赏
举报

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()
URLDownloadToFile 0, "http://office.9zp.com/index.asp", "c:\test.txt", 0, 0
End Sub

online 2003-11-21

打赏
举报

webbrowser1要加载网页
将timer1时间调短一些

captainivy 2003-11-21

打赏
举报

我觉得应该没有了

关注一下

assa 2003-11-21

打赏
举报

我测试过了，的确webbrowser快，可是要立刻得到源代码好像就慢了些
为什么半天都得不到内容呢？text1.text=objhtml.htmltext
感谢

online 2003-11-19

打赏
举报

试试这个
加入timer,commandbutton,text
private sub command1_click()
webbrowser1.navigate http://www.sohu.com/
timer1.enabled=true
end sub

private sub timer1_timer()
dim doc,objhtml as object
dim i as integer
dim strhtml as string

if 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

assa 2003-11-19