怎样取得网页中的HTML源代码

最新推荐文章于 2022-08-24 15:40:45 发布

aspczlover

最新推荐文章于 2022-08-24 15:40:45 发布

阅读量1.1k

点赞数

分类专栏：常用代码文章标签： html vbscript function xml button div

本文链接：https://blog.csdn.net/aspczlover/article/details/123173

版权

常用代码专栏收录该内容

10 篇文章 0 订阅

订阅专栏

客户端的

用xmlhttp获取数据

用innertext得到源码

<body>
xmlhttp
<div id="demo"> <div style="width: 677; height: 70">
<input type="button" value="按钮" name="B3">

sub b3_onclick

Dim objXMLHTTP, xml
Set xml = CreateObject("Microsoft.XMLHTTP")

xml.Open "GET", "http://www.eyou.com", False
xml.Send
demo.innertext= bytes2BSTR(xml.responsebody)
Set xml = Nothing
end sub

Function bytes2BSTR(vIn)
  dim strReturn
  dim i1,ThisCharCode,NextCharCode
  strReturn = ""
  For i1 = 1 To LenB(vIn)
   ThisCharCode = AscB(MidB(vIn,i1,1))
   If ThisCharCode < &H80 Then
    strReturn = strReturn & Chr(ThisCharCode)
   Else
    NextCharCode = AscB(MidB(vIn,i1+1,1))
    strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
    i1 = i1 + 1
   End If
  Next
  bytes2BSTR = strReturn
End Function

</script>

</body>