怎么获得网页的源代码 _ 常见问题

查看: 7086\|回复: 0	[知识类问题] 怎么获得网页的源代码 [复制链接]

发送短消息 UID 211464 帖子 21164 精华 13 鲜花 258 朵铜币 47817 个银币 60 个性别在线时间 263800 注册时间 2008-12-23 最后登录 2022-11-28 1094599314 1094599314 查看公共资料搜索主题搜索帖子兄弟工程师01 组别版主 UID211464 帖子21164 精华13 鲜花258 朵铜币47817 个银币60 个在线时间263800 注册时间2008-12-23 按键精灵开发者4级可通过提升认证等级来升级勋章：rz.anjian.com 兔年勋章兔年纪念勋章论坛MM 按键论坛女性用户勋章小红帽对论坛提出良好建议（可向管理员申请）学有所成学有所成勋章，新手步入按键学堂的第一枚勋章按键元老资深按键用户的尊贵荣誉勋章管理人员按键论坛的管理团队专属勋章	1^# 字体大小: t T 发表于 2009-04-17 11:56 \| \|只看楼主怎么获得网页的源代码 VBSBegin 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 VBSEnd set http=createobject("Microsoft.XMLHTTP") url="http://www.jdyou.com/" http.open "get",url,false http.send zhi=zhuanghuan(Http.responsebody) msgbox (zhi) 复制代码
	点赞【按键精灵手机版】按键精灵安卓版v3.0发布啦~体验送现金红包哦！！【按键精灵2014.03.16412版】这是有史以来最稳定的版本，不信你用一个？ .

	回顶部

上一主题| 下一主题

[知识类问题] 怎么获得网页的源代码 [复制链接]