博客新地址

http://wyz.67ge.com/
摘要: Function GetPage(url) dim Retrieval Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "Get", url, False ', "", "" .Send GetPage = BytesToBstr(.ResponseBody) End With Set Retrieva... 阅读全文
posted @ 2008-01-22 18:41 yongzhi 阅读(509) 评论(0) 推荐(0) 编辑

博客新地址

http://wyz.67ge.com/