TC官方合作论坛

 找回密码
 立即注册
查看: 1802|回复: 4

[已解决] 求大神指点怎么获取网页源代码

[复制链接]
发表于 2012-5-16 13:42:28 | 显示全部楼层 |阅读模式

马上加入TC

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
想从网页中得到包含指定字符串的链接,不知道怎么样获取网页源代码,请大婶们指点。搞定立即采纳!!谢谢大家,菜鸟需要大鸟们的教育和指点,在线等。
=======================
我想要详细一点的代码,这个我翻了百度、GOOGLE,找到一段可以获取网页源代码的VB脚本。
代码我用txt测试过了,可以获取网页源代码,但是我不知道该怎么放用在TC里面。

  1. set http=createobject("Microsoft.XMLHTTP")
  2. url=http://www.legoyi.com
  3. http.open "get",url,false
  4. http.send
  5. zhi=zhuanghuan(Http.responsebody)
  6. msgbox (zhi)
  7. Function zhuanghuan(vIn)
  8. strReturn = ""
  9. For i = 1 To LenB(vIn)
  10. ThisCharCode = AscB(MidB(vIn,i,1))
  11. If ThisCharCode < &H80 Then
  12. strReturn = strReturn & Chr(ThisCharCode)
  13. Else
  14. NextCharCode = AscB(MidB(vIn,i+1,1))
  15. strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
  16. i = i + 1
  17. End If
  18. Next
  19. zhuanghuan = strReturn
  20. End Function
复制代码

回复

使用道具 举报

发表于 2012-5-16 13:43:52 | 显示全部楼层
字符型 内容=网络.url读内容("www.baidu.com)
辅助.消息框(内容)
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-5-16 13:48:55 | 显示全部楼层
回复 2楼tyuyan的帖子

谢谢指点,我去试试。。
回复 支持 反对

使用道具 举报

发表于 2012-5-16 14:06:17 | 显示全部楼层
来看看 。。
回复 支持 反对

使用道具 举报

发表于 2012-5-16 14:33:23 | 显示全部楼层
看看 。 学习下啊!
回复 支持 反对

使用道具 举报

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

本版积分规则

关闭

推荐上一条 /2 下一条

关闭

小黑屋|TC官方合作论坛 (苏ICP备18045623号)

GMT+8, 2024-6-14 18:33 , Processed in 0.033887 second(s), 23 queries .

Powered by 海安简单软件服务部

© 2008-2019 版权所有 保留所有权利

快速回复 返回顶部 返回列表