VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 327|回复: 1

请高手看下这个得到源代码的程序为什么不好使

[复制链接]
发表于 2018-10-3 14:28:57 | 显示全部楼层 |阅读模式
我在网上找到了一段可以得到源代码并且中文不会出现乱码的程序:

  1. Private Sub Form_Load()
  2. Text1 = GetBody("http://www.baidu.com")
  3. End Sub

  4. Public Function GetBody(ByVal URL$, Optional ByVal Coding$ = "gb2312")
  5. Dim ObjXML
  6. On Error Resume Next
  7. Set ObjXML = CreateObject("Microsoft.XMLHTTP")
  8. With ObjXML
  9. .Open "Get", URL, False, "", ""
  10. .setRequestHeader "If-Modified-Since", "0"
  11. .Send
  12. GetBody = .responseBody
  13. End With
  14. GetBody = BytesToBstr(GetBody, Coding)
  15. Set ObjXML = Nothing
  16. End Function

  17. Public Function BytesToBstr(strBody, CodeBase)
  18. Dim ObjStream
  19. Set ObjStream = CreateObject("Adodb.Stream")
  20. With ObjStream
  21. .Type = 1
  22. .Mode = 3
  23. .Open.Write strBody
  24. .Position = 0
  25. .Type = 2
  26. .Charset = CodeBase
  27. BytesToBstr = .ReadText
  28. .Close
  29. End With
  30. Set ObjStream = Nothing
  31. End Function
复制代码


这是全部的代码,界面上只加了一个TEXT1外什么也没有,所以保证没有受到其他语句干扰。可不知道为什么不好用,显示不出网页的源代码。请问高手们这段是不是要改一下啊?要怎么改啊?
发表于 2018-10-6 08:18:32 | 显示全部楼层
网址错了
https://www.baidu.com
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2018-12-18 20:50

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表