用VB怎样获取跳转后的网页源码？

xjl10086 2011-03-18 12:54:39
我用的网络，只要在地址栏上随便打些什么，然后就可以跳转到登录页面。如果用Inet控件，就可以轻松获取到登录页面的代码。如我用inet.openurl("http://baidu.com")就可以返回登录页面的网页源码了。但是我不想用控件。因为生成EXE时要附加它。我查了一个用创建XMLHTTP对象的方法，好像实现不了。大家帮帮忙。
附：
Public Function GetCode(OUrl As String) As String '传入一个网址，获得源码
Dim xmlobj As Object
Set xmlobj = CreateObject("Microsoft.XMLHTTP")
xmlobj.Open "GET", OUrl, False
xmlobj.send
If xmlobj.ReadyState = 4 Then
GetCode = LCase(xmlobj.responseText)
End If
End Function
...全文
787 26 打赏 收藏 转发到动态 举报
写回复
用AI写文章
26 条回复
切换为时间正序
请发表友善的回复…
发表回复
zhengmenghua 2011-05-19
  • 打赏
  • 举报
 回复
[Quote=引用 18 楼 andy95800 的回复:]
VB code
Function YuZheGetTrueUrl(iYuZheUrl)
'On Error Resume Next
YuZheGetTrueUrl = ""
Dim YuZheHttp
Set YuZheHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
YuZheHttp.Opti……
[/Quote]
发现有时候返回的状态是301 比如 17173的游戏下载链接
http://download.17173.com/down.php?cdnflag=1&file=other/17173_wof_ob_v0917.exe

高人啊 太强悍了。
dbcontrols 2011-03-18
  • 打赏
  • 举报
 回复
参考
xjl10086 2011-03-18
  • 打赏
  • 举报
 回复
OK,结帖算了。问题解决。我共有100多分，我现在的级数最高能给100分
xjl10086 2011-03-18
  • 打赏
  • 举报
 回复
会的，你不点击，打开浏览器，转到主页时会有声音。如果点击转到一些丰富的页面时，会随着下载页面完成，有数次“Click”的声音
andy95800 2011-03-18
  • 打赏
  • 举报
 回复
没音箱....
你用webbrowser直接浏览baidu 会有声音？
xjl10086 2011-03-18
  • 打赏
  • 举报
 回复
不对的，只要是控件自动跳转，就算不是跳转，如果打开了一个网页，它也会根据源码，把一些链接地址打开，一样会发出声音啊。没见浏览器点击一次后有好多次“滴”的声音吗[Quote=引用 21 楼 andy95800 的回复:]
WinHttp.WinHttpRequest.5.1是XML4.0之后内置的组件
想实现webbrowser自动跳转或者点击链接时禁止出声音的问题应该也不难，可以考虑在获得webbrowser跳转新页面事件时执行webbrowser.stop 然后再执行webbrowser.navigate newurl 由于这是webbrowser的主动浏览模式 所以不会出声音，可以一试
[/Quote]
andy95800 2011-03-18
  • 打赏
  • 举报
 回复
WinHttp.WinHttpRequest.5.1是XML4.0之后内置的组件
想实现webbrowser自动跳转或者点击链接时禁止出声音的问题应该也不难，可以考虑在获得webbrowser跳转新页面事件时执行webbrowser.stop 然后再执行webbrowser.navigate newurl 由于这是webbrowser的主动浏览模式 所以不会出声音，可以一试
xjl10086 2011-03-18
  • 打赏
  • 举报
 回复
Very　good！确实是解决啦，哈哈。不过你说的这些都看不明白。哈哈。很少接触，只是会用下，没有透彻。上面创建的是什么对象啊，没见过。还有你说的XMLHTTP自动跳到最后的页面，不过好像显示的不是最后的页面吧（不知是什么）？还有，能不能顺便帮我解决一下webbrowser屏蔽声音这个问题啊？分数给定你了。[Quote=引用 19 楼 andy95800 的回复:]
首先我们要了解为什么xmlhttp组件无法获得这样的跳转真实地址
用Response.Redirect跳转，PHP里面是Header("Location",$URL);
这两种方式都是一样的原理，就是在输出的HTTP头里面加上一个Location字段
同时把返回的HTTP状态值设为302，浏览器就会认为当前请求的页面已经
被移动到Location指定的路径
那么为什么xmlhttp无法获……
[/Quote]
andy95800 2011-03-18
  • 打赏
  • 举报
 回复
首先我们要了解为什么xmlhttp组件无法获得这样的跳转真实地址
用Response.Redirect跳转，PHP里面是Header("Location",$URL);
这两种方式都是一样的原理，就是在输出的HTTP头里面加上一个Location字段
同时把返回的HTTP状态值设为302，浏览器就会认为当前请求的页面已经
被移动到Location指定的路径
那么为什么xmlhttp无法获得呢？
原因很简单
XMLHTTP组件在处理包含Location头的302消息时太智能了，直接给跳转到最后的页面，也就是说～我们看不到中间的过程！比尔自作聪明阿 ！
andy95800 2011-03-18
  • 打赏
  • 举报
 回复 
Function YuZheGetTrueUrl(iYuZheUrl)

    'On Error Resume Next

    YuZheGetTrueUrl = ""

    Dim YuZheHttp

    Set YuZheHttp = 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")

    Else

        YuZheGetTrueUrl = iYuZheUrl

    End If

Debug.Print YuZheHttp.responseText

    Set YuZheHttp=Nothing

End Function

这个可以实现获得跳转后的地址
xjl10086 2011-03-18
  • 打赏
  • 举报
 回复
暂时没找到更好的了。等一天看看。我想知道怎样隐藏运行那个控件，且怎样可以防止有网页跳转或点击的声音找了好久，没有找到结果，CSDN上有人问过，没有完美解决：http://topic.csdn.net/t/20010822/22/251809.html，好像360浏览器上有这样的功能。[Quote=引用 16 楼 andy95800 的回复:]
不是说XMLHTTP不能获得跳转后的源码 而是无法获得一些特殊页面跳转后的源码
试试用XMLHTTP get http://q1.uuplay.com
它将返回如下结果：
<script type="text/javascript">
location.href = "/city/index.ql";
</script>
但如果你继续用XMLHTTP get http://q1.uup……
[/Quote]
andy95800 2011-03-18
  • 打赏
  • 举报
 回复
不是说XMLHTTP不能获得跳转后的源码 而是无法获得一些特殊页面跳转后的源码
试试用XMLHTTP get http://q1.uuplay.com
它将返回如下结果：
<script type="text/javascript">
location.href = "/city/index.ql";
</script>
但如果你继续用XMLHTTP get http://q1.uuplay.com/city/index.ql
服务器将返回空值，因为接下来也是个特殊跳转，转至登录界面，或许想要正确得到这个页面的源码需要正确设置XMLHTTP 的header才行，没做过深入的研究
xjl10086 2011-03-18
  • 打赏
  • 举报
 回复
能不能用代码解决呢？XMLHTTP真的不能实现，或其它用代码实现的方法有没有呢？真的好想知道那些控件是怎样写的，呵呵
andy95800 2011-03-18
  • 打赏
  • 举报
 回复
其实有个简单办法解决这个问题，加入隐藏的webbrowser控件即可 这个是windows系统标配，软件发布时不必附加控件 用webbrowser获取源码也很容易
andy95800 2011-03-18
  • 打赏
  • 举报
 回复
跟页面的跳转方式息息相关
xjl10086 2011-03-18
  • 打赏
  • 举报
 回复
如果这个问题解决了，愿意付出所有分数
xjl10086 2011-03-18
  • 打赏
  • 举报
 回复
看来9楼抢到盐了，哈哈。不过问题是我用了XMLHTTP的方法没有获取到跳转的网址，src="http://10.1.1.3:85/remind/proxy_cookie.php?sinfor_cookie=0&ipdlz1984=3793817772&tm=600" 这个不知道是什么网址呢？我点击XMLHTTP点了N次，就只有第一幅图的代码啊，没有任何关开跳转的代码。[Quote=引用 9 楼 andy95800 的回复:]
inet对待跳转也是执行N次open操作的，只是最后返回的是目标网页的源码
XMLHTTP获取到跳转页面地址后再get获取跳转后的地址就行了
他们都没抢到盐 看不懂楼主的蛋疼问题
[/Quote]
andy95800 2011-03-18
  • 打赏
  • 举报
 回复
不过XMLHTTP只能获取一些简单的跳转地址，对于特殊设置的服务器跳转完全可以让XMLHTTP空手而回。
andy95800 2011-03-18
  • 打赏
  • 举报
 回复
inet对待跳转也是执行N次open操作的，只是最后返回的是目标网页的源码
XMLHTTP获取到跳转页面地址后再get获取跳转后的地址就行了
他们都没抢到盐 看不懂楼主的蛋疼问题
xjl10086 2011-03-18
  • 打赏
  • 举报
 回复
上面三幅图是断网状态下测试的。第一幅是首次点击"inet"按钮，获取百度的源码时的图。第二幅是点击几次"indet"按钮后的图，上面显示已经获得了登录上网页的源码。第三幅是点击"XMLHTTP"时的图，发生错误。
加载更多回复（6）
VB.NET Try Catch Finally用法演示源码.rar
VB.NET 演示带Finally的Try Catch 异常处理用法演示，这个源码就是捕捉VB.NET运行错误的，结合了最常规的try catch组合，并且使用了Finally处理的情况，那么为什么要使用Finally呢？使用Finally的好处是，把资源释放...
自动计算数独VB源码
本程序用Goto跳转方式实现多次执行。 简单的数独，要么所有的点都具有唯一值，第1步执行完成后，就已全部完成。或者具有多个解，随意猜测一个二位数的SY(i, j)的值都能成功。 难的数独是：可唯一确定的点很少，大...
用VB6+GDI+开发交互式CAD系统
本课程用VB6(Visual Basic)结合GDI+，从无到有开发一个功能较完整的小型交互式CAD系统。 作者有交互式CAD系统、动态几何系统开发经验。出版过交互式CAD系统开发方面的图书。 课程先讲准备知识，然后讲整个系统...
VB增强查找插件 Ver 3.3
一个可以在VB开发环境增强查找的插件工具，可以和VB的IDE环境融为一体，支持查找自动定位（即点击查找的内容，即自动跳转到代码的位置，类似VC的查找功能，经常使用VC的应该能感觉到这个好功能的方便性），当然，还...
精易模块源码V6.9.0
精易模块V6.9.0 what's new：（20181101）。一、新增。1、“类_快速文本”新增17个子命令，丰富该类模块命令；感谢【@jr21066 】提供源码...10、新增“网页_IE浏览器网页跳转静音”将当前进程中的IE浏览器网页跳转静音
VB基础类

7,763

社区成员

197,609

社区内容

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章