VB操作网页

VB > 网络编程
收藏 回复
[问题点数：200分，结帖人northwolves]
更多帖子
私信 空间 博客
版主
northwolves
等级
本版专家分：42353
勋章
Blank
签到新秀
Blank
微软MVP 2006年4月 荣获微软MVP称号
2008年4月 荣获微软MVP称号
2007年4月 荣获微软MVP称号
Blank
红花 2006年6月 VB大版内专家分月排行榜第一
Blank
蓝花 2006年5月 VB大版内专家分月排行榜第三
2005年9月 VB大版内专家分月排行榜第三
结帖率 97.98%
VB6 使用webbrowser 或 xmlhttp 如何取得http://diamonds.com/Main/SearchResult.aspx?CaratSizeFrom=0&CaratSizeTo=100&shape=round 第10页的源代码？
只看楼主 引用 举报 楼主 收起
展开阅读全文
更多帖子
私信 空间 博客
版主
无·法
等级
本版专家分：29562
勋章
Blank
技术圈认证
Blank
签到达人
Blank
GitHub
Blank
黄花 2011年10月 VB大版内专家分月排行榜第二
2011年3月 VB大版内专家分月排行榜第二
2011年2月 VB大版内专家分月排行榜第二
直接修改此a标签为的内容，第一页的比如是javascript:__doPostBack('ctl00$cphMainContent$gvSearchResult','Page$1')，你改成javascript:__doPostBack('ctl00$cphMainContent$gvSearchResult','Page$10')，然后再去点击这个链接

如果要一页页的点也可以，不过得精确了，模拟实际操作，一直点到“10”，遇到“。。。”也照点

另外再一个就是直接抓包，看看它是跟服务器怎么交互的，如果有个中间的数据文件最好了，这样就可以直接xmlhttp直接取得了。
只看TA 引用 举报 #1得分 10
更多帖子
私信 空间 博客
dingyanwei
等级
本版专家分：5797
的确有难度，试图通过url直接传值被系统阻止，看来只能通过form提交才能获得合法认证了。
只看TA 引用 举报 #2得分 10
更多帖子
私信 空间 博客
版主
northwolves
等级
本版专家分：42353
勋章
Blank
签到新秀
Blank
微软MVP 2006年4月 荣获微软MVP称号
2008年4月 荣获微软MVP称号
2007年4月 荣获微软MVP称号
Blank
红花 2006年6月 VB大版内专家分月排行榜第一
Blank
蓝花 2006年5月 VB大版内专家分月排行榜第三
2005年9月 VB大版内专家分月排行榜第三
引用 1 楼 sysdzw 的回复:
直接修改此a标签为的内容，第一页的比如是javascript:__doPostBack('ctl00$cphMainContent$gvSearchResult','Page$1')，你改成javascript:__doPostBack('ctl00$cphMainContent$gvSearchResult','Page$10')，然后再去点击这个链接

如果要一页页的点也可以，不过得精确了，模拟实际操作，一直点到“10”，遇到“。。。”也照点

另外再一个就是直接抓包，看看它是跟服务器怎么交互的，如果有个中间的数据文件最好了，这样就可以直接xmlhttp直接取得了。

 返回：
We're sorry, but an Unexpected Error has occurred.

 
Click here to go back. 
只看TA 引用 举报 #3得分 0
更多帖子
私信 空间 博客
版主
northwolves
等级
本版专家分：42353
勋章
Blank
签到新秀
Blank
微软MVP 2006年4月 荣获微软MVP称号
2008年4月 荣获微软MVP称号
2007年4月 荣获微软MVP称号
Blank
红花 2006年6月 VB大版内专家分月排行榜第一
Blank
蓝花 2006年5月 VB大版内专家分月排行榜第三
2005年9月 VB大版内专家分月排行榜第三
引用 2 楼 dingyanwei 的回复:
的确有难度，试图通过url直接传值被系统阻止，看来只能通过form提交才能获得合法认证了。



WebBrowser1.Document.All("__EVENTTARGET").Value = "ctl00$cphMainContent$gvSearchResult"

WebBrowser1.Document.All("__EVENTARGUMENT").Value = "Page$10"

WebBrowser1.Document.Forms("aspnetForm").submit

返回同样的错误
只看TA 引用 举报 #4得分 0
更多帖子
私信 空间 博客
lyserver
等级
本版专家分：35604
勋章
Blank
红花 2009年6月 VB大版内专家分月排行榜第一
2009年5月 VB大版内专家分月排行榜第一
Blank
黄花 2010年12月 VB大版内专家分月排行榜第二
2010年11月 VB大版内专家分月排行榜第二
2009年7月 VB大版内专家分月排行榜第二
修改哪些项目提交后表示第10页？我没找到page之类的单词。
只看TA 引用 举报 #5得分 5
更多帖子
私信 空间 博客
版主
northwolves
等级
本版专家分：42353
勋章
Blank
签到新秀
Blank
微软MVP 2006年4月 荣获微软MVP称号
2008年4月 荣获微软MVP称号
2007年4月 荣获微软MVP称号
Blank
红花 2006年6月 VB大版内专家分月排行榜第一
Blank
蓝花 2006年5月 VB大版内专家分月排行榜第三
2005年9月 VB大版内专家分月排行榜第三
引用 5 楼 lyserver 的回复:
修改哪些项目提交后表示第10页？我没找到page之类的单词。

这个函数返回的：
function __doPostBack(eventTarget, eventArgument) {

    if (!theForm.onsubmit || (theForm.onsubmit() != false)) {

        theForm.__EVENTTARGET.value = eventTarget;

        theForm.__EVENTARGUMENT.value = eventArgument;

        theForm.submit();

    }

}
只看TA 引用 举报 #6得分 0
更多帖子
私信 空间 博客
版主
northwolves
等级
本版专家分：42353
勋章
Blank
签到新秀
Blank
微软MVP 2006年4月 荣获微软MVP称号
2008年4月 荣获微软MVP称号
2007年4月 荣获微软MVP称号
Blank
红花 2006年6月 VB大版内专家分月排行榜第一
Blank
蓝花 2006年5月 VB大版内专家分月排行榜第三
2005年9月 VB大版内专家分月排行榜第三 
WebBrowser2.Navigate "http://diamonds.com/Main/SearchResult.aspx?CaratSizeFrom=0&CaratSizeTo=100&shape=round", False

While WebBrowser2.Busy

DoEvents

Wend

WebBrowser2.Navigate "javascript:__doPostBack('ctl00$cphMainContent$gvSearchResult','Page$10')"

返回同样错误
只看TA 引用 举报 #7得分 0
更多帖子
私信 空间 博客
版主
northwolves
等级
本版专家分：42353
勋章
Blank
签到新秀
Blank
微软MVP 2006年4月 荣获微软MVP称号
2008年4月 荣获微软MVP称号
2007年4月 荣获微软MVP称号
Blank
红花 2006年6月 VB大版内专家分月排行榜第一
Blank
蓝花 2006年5月 VB大版内专家分月排行榜第三
2005年9月 VB大版内专家分月排行榜第三 
WebBrowser2.Navigate "http://diamonds.com/Main/SearchResult.aspx?CaratSizeFrom=0&CaratSizeTo=100&shape=round", False

While WebBrowser2.Busy

DoEvents

Wend

WebBrowser2.Navigate "javascript:__doPostBack('ctl00$cphMainContent$gvSearchResult','Page$10')"

返回同样错误
只看TA 引用 举报 #8得分 0
更多帖子
私信 空间 博客
supergreenbean
等级
本版专家分：45025
勋章
Blank
微软MVP 2006年7月 荣获微软MVP称号
2005年7月 荣获微软MVP称号
2008年7月 荣获微软MVP称号
2007年7月 荣获微软MVP称号
Blank
黄花 2004年6月 VB大版内专家分月排行榜第二
2004年5月 VB大版内专家分月排行榜第二
出错时因为那个页面上没有 Page$10 这个东西, 所以，先翻到有Page$10的页面，再调用Page$10

Private Sub Form_Load()

    WebBrowser1.Navigate2 " http://diamonds.com/Main/SearchResult.aspx?CaratSizeFrom=0&CaratSizeTo=100&shape=round"

End Sub



Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

    Static lStep As Long

    

    If lStep = 2 Then Exit Sub

    

    Dim oWindow As HTMLWindow2

    Set oWindow = pDisp.Document.parentWindow

    

    Select Case lStep

    Case 0

        oWindow.execScript "javascript:__doPostBack('ctl00$cphMainContent$gvSearchResult','Page$6')"

    Case 1

        oWindow.execScript "javascript:__doPostBack('ctl00$cphMainContent$gvSearchResult','Page$10')"

    End Select

    

    lStep = lStep + 1

End Sub
只看TA 引用 举报 #9得分 100
更多帖子
私信 空间 博客
lyserver
等级
本版专家分：35604
勋章
Blank
红花 2009年6月 VB大版内专家分月排行榜第一
2009年5月 VB大版内专家分月排行榜第一
Blank
黄花 2010年12月 VB大版内专家分月排行榜第二
2010年11月 VB大版内专家分月排行榜第二
2009年7月 VB大版内专家分月排行榜第二
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Dim link As Object
    
    Set link = Me.WebBrowser1.Document.getElementsByTagName("A")(89)
    If link.innerText = "..." Or link.innerText = "10" Then
        link.Click
    Else
        MsgBox Me.WebBrowser1.Document.body.innerHTML
    End If
End Sub
只看TA 引用 举报 #10得分 50
1 2
收起
收藏 回复
northwolves

等级：

Blank
签到新秀
Blank
微软MVP 2006年4月 荣获微软MVP称号
2008年4月 荣获微软MVP称号
2007年4月 荣获微软MVP称号
Blank
红花 2006年6月 VB大版内专家分月排行榜第一
Blank
蓝花 2006年5月 VB大版内专家分月排行榜第三
2005年9月 VB大版内专家分月排行榜第三
关注 私信 TA的帖子
VB功能模块：最全的VB操作网页功能模块

Public Function HtmlStr$(URL$) '提取网页源码函数  Dim XmlHttp  Set XmlHttp = CreateObject("Microsoft.XMLHTTP")  XmlHttp.Open "GET", URL, False  XmlHttp.Send  If ...

VB操作网页元素

VB操作网页元素 2010年01月23日 　用webbrowser打开网页后,网页内的所有元素你都可以通过代码来操作, 　方法是: 　1.根据标记名(tagname)的和元素名name来找到元素, 　2.给元素赋值或是执行相关的事件. 　...

VB webbrower操作网页代码汇总

VB webbrower操作网页代码汇总，包含22个方面，有具体实例代码。

VB webkit内核 利用控件操作网页内元素

VB webkit内核 利用控件操作网页内元素。VB webkit内核 利用控件操作网页内元素。

网页脚本(javascript)调用VB函数的另类方法

不用通过IDocHostUIHandler接口，让网页调用VB程序中的函数的方法。 该方法原理是：在网页中通过导航到一个特定的自定义网址，这个网址 就表示我们要调用的VB中的函数，然后在WebBrowser控件的BeforeNavigate2 事件...

给初学者:VB如何操作WEB页的浏览提交———一：在百度中自动搜索

最近写了点东西，关于网页的自动提交等问题，不会写就上网找，发现代码比较乱，没有什么条理，虽然自己的程序写完了，但是不敢独享，斗胆班门弄斧一下，高手莫xiào ！闲话少说，来点正经的，首先简单叙述一下网页...

Vb实现 另存为网页的功能，一个小软件.rar

Vb实现 另存为网页的功能，一个小软件，下载网页文件的小工具，类似于IE浏览器的网页另存为的功能，可保存网页上的HTML、IMAGES等图像和CSS文件，是由国外网友写的一个小程序，对于理解网络编程有一定的参考帮助作用...

VB 编写的一个非常漂亮网页浏览器(支持多标签)

VB编写的一个非常漂亮网页浏览器(支持多标签)，和IE浏览器功能一样

vb.net 网页控制教学实现撷取按钮自动填写

vb.net 网页控制教学实现撷取按钮自动填写 想要控制网页的赶快来看看

用VB读取指定网页内容

用VB读取指定网页内容 vb写的很简陋 只是个演示代码

vb6操作谷歌浏览器源码.rar

Selenium操作各种浏览器的原理就是利用WebDriver，我查阅了一下资料VB6也可以，所以做了一个基本的WebDriver类，用来操作谷歌浏览器，目前完成的功能有：打开浏览器、获得当前网页标题、获得网页源码、cookie。...

vb excel提取网页中特定数据_Excel中数据提取的4种方法，你想到几种？

提取数据是对数据处理的基本操作，便捷有效的方法能大大提高工作效率。以下几种Excel中提取数据的方法，你都知道吗？如下图，要将身份证里面的出生日期提取出来不是一件难事，关键是你能想到几种。1、 函数法所用...

vb.net 操作注册表

Dim r As Microsoft.Win32.RegistryKey Dim WebBrowser32 As String = “SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION” r = Microsoft.Win32.Registry.LocalMachine....

VB 制作网页浏览器

'如果你希望新打开的网页出现在同一个窗口，可以这样做 Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1 Private Sub Form_Load() Set Web_V1 = WebBrowser1.Object WebBrowser1.Navigate2 ...

VB6免控件实现HTTP请求并进行网页编码处理

直接调用系统的WinHttp对象实现网页访问和提交数据。 不使用inet1控件和winsock控件，也不使用API函数，更不用xmlhttp这种卡顿的方式。 对网页编码支持UTF-8和Unicode以及GBK/gb2312的正常处理。

VB自动获取网页中的链接和Img图形

　VB自动查找并获取Web网页中的超级链接和Img图形，将其它标签元素剔除，仅保留A标签，并识别了图像标签，对获得的总链接数量进行统计，并列出这些标签，你也可以输入其它的网址，进行统计，内核心是基于IE的。

自动填写网页标签的VB6程序

用于自动填写网页标签的VB6程序,涉及Windows API,Active DLL 操作,引用了Microsoft Internet control and Microsoft HTML control..

vb.net用来获取网页的类

Imports System.Net Imports System.IO Public Class HttpDriverClass HttpDriver  Public Function GetPage()Function GetPage(ByVal url As String, Optional ByRef postPara As String = "", Optional ByRe

vb分割文件 另存网页程序源码.rar

vb分割文件 另存网页程序源码,指定远程访问URL，还有批量转换文件的功能，将HTML转换成TXT文本文件，保存的纯文本文件,位于源html文件夹中。

VB6.0 json操作与中文乱码处理

VB6太老了，怎样处理json，是否有现成的第三方库呢？经过一番探索，找到了VBJSON这个库。 使用过程如下： 1. 下载VBJSON:http://www.ediy.co.nz/vbjson-json-parser-library-in-vb6-xidc55680.html 目录内容如下...

VB6一句话获取Webbrowser控件句柄【史上最强】

我用VB6创建多线程，在线程中加载Web控件，结果控件出来了，但是显示不了网页. 正常的应该有3层句柄树（Shell Embedding》Shell DocObject View》Internet Explorer_Server），结果他只有Shell Embedding。 所以...

VB.net实现的网页小工具

VB.net实现的网页小工具。 练习及理解：多线程操作，窗口消息，事件响应以及非托管API的调用方法。 主要思路： 将网页画面复制到另一个小窗口上，实现小窗口预览。 将小窗口上的鼠标及键盘事件发送到网页上，...

VB制作网页自动填表（强烈推荐）

VB制作网页自动填表（强烈推荐） VB制作简单模拟器教程入门版 第一讲　如何用VB编程打开一个网页： 由于是为做模拟器做铺垫，所以就不介绍别的方法，只介绍一种最简单的用webbrowser控件实现（实际是其他的方法我还...

vb.net 教程 4-11 Json文件操作 1

json格式作为轻量级数据交换格式，在网页上也得到大量应用。json与xml格式各有优缺点，本教程中不做讨论，有兴趣的朋友请在网上自行搜索。 目前vb.net中支持解析json的类有两个：JavaScriptSerializer和...

VB.net使用CefSharp笔记

获取js执行返回值 Imports CefSharp Imports CefSharp.WinForms Public Class Form1 '定义cef浏览器控件的全局变量,方便后面调用,注意WithEvents Private WithEvents browser As ChromiumWebBrowser ...

用VB自动关闭网页广告窗口。vb实现的是更改代理ip。vb 操作 iframe

用VB自动关闭网页广告窗口 经常上网冲浪的人，在打开网页的时候经常遇到同时弹出多个广告窗口的情况，不但影响视线，还会影响网速。如果用鼠标一个个关闭，实在很麻烦。我经过观察分析，找到了解决的办法，可以让你...

请问如何用vb6.0调用网页代码，html语言和function函数啊

由于特效问题，我需要利用vb6.0的webbrowser控件加载网上下载的网页特效代码，举个栗子：（我如何将这个代码写进vb语言中并且能将图片地址转换成从外部读取的） <!DOCTYPE ...

vb.net 使用CefSharp的webbrowser，将当前的网页内容保存下html

我于vb.net 使用CefSharp的webbrowser 里面会动态的加入json ...(不是一开启前载入的网页)，是在载入后，动态加工后的 ![图片说明](https://img-ask.csdn.net/upload/201906/09/1560058328_310942.jpg)

利用vb向网页提交表单数据的实现代码

首先，先建立一个工程，加一个窗体form1，上面添加一个textbox控件text1，和两个按钮分别为command1和command2，然后实现按下command1按钮就向网页提交text1的内容先打开菜单里的，工程-〉引用-〉选中microsoft xml...

MATLAB2019b

共三个文件，其中前两个为 MATLAB R2019b 软件安装包的分卷压缩文件，将两个压缩包下载至同一个文件目录下随意解压一个即可；第三个为软件jihuo所需要的文件。

相关热词 c# 负数补码 c# 读取json c# 画图超出画布判断 c#在注册表下创建个文件 c#中的数组添加元素 c#逆向 c#输出xml文件中元素 c#获取系统盘符 c# 微信发送图片消息 c# 对时间