VB复制网页上指定的内容
答案:3 悬赏:0 手机版
解决时间 2021-05-06 12:03
- 提问者网友:记得曾经
- 2021-05-06 01:19
需要什么控件?最好把代码写一下
最佳答案
- 五星知识达人网友:神鬼未生
- 2021-05-06 02:08
如果只是复制网页里的文件内容的话,不需要什么控件,只要写一个自定义函数,再调用就行了。
函数代码如下:
Dim textcontent as string
Private Function GetCode(URL As String) As String '得到URL网页的内容函数
On Error GoTo abc
Dim xmlHttp
Set xmlHttp = CreateObject("Microsoft.XMLHTTP")
xmlHttp.Open "GET", URL, True
xmlHttp.send (Null)
While xmlHttp.ReadyState <> 4
DoEvents
Wend
GetCode = StrConv(xmlHttp.responsebody, vbUnicode)
abc:
End Function
textcontent=GetCode("你的网址") '网址一定要有HTTP协议头,比如 http://wenwen.soso.com/
得到的网页内容存在textcontent变量里,再根据所要获取内容的特征作相应的代码编写。
全部回答
- 1楼网友:过活
- 2021-05-06 03:56
inet控件,具体百度查
- 2楼网友:封刀令
- 2021-05-06 02:49
你指定的内容是什么 里面的文字么?还是什么的?
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯