WinHttp.WinHttpRequest--XmlHttp获取跳转页面的功能
作者：雨哲 来源：yz81.com 发布时间：2010-03-22 14:34:00
最近在研究雨哲软件采集程序的时候，需要获取真实软件地址时遇到了需要读取跳转页面跳转后的真实地址的问题。
在网上找了很多方法，使用WinHttp.WinHttpRequest.5.1组件终于找到解决问题的方法了。
下面是详细代码：
'==================================================
'函数名：YuZheGetTrueUrl 雨哲QQ：425162221
'作 用：检测文件是否最重文件路径
'参 数：iYuZheUrl ------将要检测的路径
'==================================================
Function YuZheGetTrueUrl(iYuZheUrl)
'On Error Resume Next
YuZheGetTrueUrl = ""
If IsNull(iYuZheUrl) = True Or Len(iYuZheUrl) < 18 Or iYuZheUrl = "" Then Exit Function
Dim YuZheHttp
Set YuZheHttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
YuZheHttp.Option(6)=0 '禁止自动跳转
YuZheHttp.SetTimeouts 5000, 5000, 30000, 5000 '设置超时
YuZheHttp.Open "GET", iYuZheUrl, False
YuZheHttp.Send
If YuZheHttp.Status=302 Then '查找跳转页面
YuZheGetTrueUrl = YuZheHttp.GetResponseHeader("Location")
'ElseIf YuZheHttp.Status=404 Then '文件不存在
' YuZheGetTrueUrl = ""
Else
YuZheGetTrueUrl = iYuZheUrl
End If
Set YuZheHttp=Nothing
End Function
这里只是只是说说简单过程，具体使用请根据自己的需要进行修改。
0
投稿猜你喜欢
- 环境：A机器和B机器都是LINUX系统，但由于B机器已经空间不足，所以停掉不停操作数据库的服务后 ，准备在A机器进行导出操作。导出语句 ex
- 在 多线程与多进程的比较 这一篇中记录了多进程编程的一种方式.下面记录一下多进程编程的别一种方式,即使用multiprocessing编程i
- 环境：centos7 python3.6测试网址：www.bai.com测试方式：抓取百度100次结果：aio: 10.7021474838
MySQL5.0版本的安装图解教程是给新手学习的,当前mysql5.0.96是最新的稳定版本。mysql 下载地址 https://www.- 一、介绍1、SqlLocalDb全称：SQL Server Express LocalDb。简化SQL Server的本地数据库。SqlLo
- 前言本项目是使用了谷歌开源的框架mediapipe，里面有非常多的模型提供给我们使用，例如面部检测，身体检测，手部检测等。原理首先先进行手部
- 常见的数据库对象对象描述表(TABLE)表是存储数据的逻辑单元，以行和列的形式存在，列就是字段，行就是记录数据字典就是系统表，存放数据库相关
- 1. 在游戏循环中监听事件事件event：就是游戏启动后，用户针对游戏所做的操作例如：点击关闭按钮，点击鼠标，按下键盘监听：在游戏循环中，判
- 一、concat()函数1、功能：将多个字符串连接成一个字符串。2、语法：concat(str1, str2,...)返回结果为连接参数产生
- 那么什么这两个到底有什么区别和联系呢？我在网上搜了一下，发现很多说法，虽然大同小异，但是似乎只有下面这一段来自微软网站的比较高度抽象，而且意
- 在目标检测的模型训练中， 我们通常都会有一个特征提取网络backbone， 例如YOLO使用的darknet SSD使用的VGG-16。为了
- 信号(signals)Flask信号(signals, or event hooking)允许特定的发送端通知订阅者发生了什么（既然知道发生
- 一、什么是集成学习集成学习是一种技术框架，它本身不是一个单独的机器学习算法，而是通过构建并结合多个机器学习器来完成学习任务，一般结构是：先产
- 前言最近在学习python 爬虫方面的知识，网上有一博客专栏专门写爬虫方面的，看到用urllib请求有道翻译接口获取翻译结果。发现接口变化很
- 目标在本章中，将学习使用kNN来构建基本的OCR应用程使用OpenCV自带的数字和字母数据集手写数字的OCR目标是构建一个可以读取手写数字的
- 本篇文章主要介绍在插入数据到表中遇到键重复避免插入重复值的处理方法，主要涉及到IGNORE,ON DUPLICATE KEY UPDATE,
- 访问FTP，无非两件事情：upload和download，最近在项目中需要从ftp下载大量文件，然后我就试着去实验自己的ftp操作类，如下（
- 本文实例讲述了python统计字符串中指定字符出现次数的方法。分享给大家供大家参考。具体如下：python统计字符串中指定字符出现的次数，例
- 本文缘起自《一分钟了解索引技巧》的作业题。假设订单业务表结构为：order(oid, date, uid, status, money, t
- //User 用户的基本信息，也是USERINFO表中的3个列package 登陆判断;public class User { &
