马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
想从网页中得到包含指定字符串的链接,不知道怎么样获取网页源代码,请大婶们指点。搞定立即采纳!!谢谢大家,菜鸟需要大鸟们的教育和指点,在线等。
=======================
我想要详细一点的代码,这个我翻了百度、GOOGLE,找到一段可以获取网页源代码的VB脚本。
代码我用txt测试过了,可以获取网页源代码,但是我不知道该怎么放用在TC里面。
- set http=createobject("Microsoft.XMLHTTP")
- url=http://www.legoyi.com
- http.open "get",url,false
- http.send
- zhi=zhuanghuan(Http.responsebody)
- msgbox (zhi)
- Function zhuanghuan(vIn)
- strReturn = ""
- For i = 1 To LenB(vIn)
- ThisCharCode = AscB(MidB(vIn,i,1))
- If ThisCharCode < &H80 Then
- strReturn = strReturn & Chr(ThisCharCode)
- Else
- NextCharCode = AscB(MidB(vIn,i+1,1))
- strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
- i = i + 1
- End If
- Next
- zhuanghuan = strReturn
- End Function
复制代码
|