永发信息网

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
你指定的内容是什么 里面的文字么?还是什么的?
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯