不懂html也来学网抓（xmlhttp/winhttp+fiddler）

cmcboy

大神，通过你的教程学习好多，实际应用也好多，谢谢。现在我碰到一个问题，能咨询一下吧。谢谢
问题下面地址
winhttp 返回内容中有js代码,并且是分包传输，接收信息不完整的问题？

barry.tan

非常感谢，受教了！！目前工作上正需要！

xuzong

吴女神，有没有什么函数把 这fiddler 中的这些转码转换成中文或者数字
%E9%8D%A5%E6%88%92%E9%AA%87%E9%8D%A3%E3%84%A6%EF%BF%BD
E5%9B%BD%E4%BA%A7%E5%99%A8%E6%A2%B0
对新手来说，中文更加好理解和便于分析，调试，很容易看明白你们这些大师级代码的意思，可惜的是我只看到中文转换这些格式，很少看到转换成中文的函数

wcymiss

xuzong 发表于 2015-5-19 21:23
吴女神，有没有什么函数把 这fiddler 中的这些转码转换成中文或者数字
%E9%8D%A5%E6%88%92%E9%AA%87%E9%8D ...

你一定没仔细看帖吧。

xuzong

应该就是这个函数来解码的decodeURIComponent(URIstring)
到目前为止，还没有找到在VBA的版本，抓狂

xuzong

<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"><soap:Body><ns1:serviceResponse xmlns:ns1="http://www.cneport.com/webservices/superpass" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> <result xsi:type="xsd:base64Binary">PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0iVVRGLTgiPz48UmVzcG9uc2VDb250ZXh0PjxS
ZXNwb25zZUNvZGU+MDwvUmVzcG9uc2VDb2RlPjxSZXNwb25zZU1lc3NhZ2U+c3VjY2VzczwvUmVz
cG9uc2VNZXNzYWdlPjxTZXJ2aWNlUmVzcG9uc2VDb2RlPjA8L1NlcnZpY2VSZXNwb25zZUNvZGU+
PFNlcnZpY2VSZXNwb25zZU1lc3NhZ2U+6LCD55So5oiQ5YqfPC9TZXJ2aWNlUmVzcG9uc2VNZXNz
YWdlPjxFeGNlcHRpb25EZXRhaWw+PC9FeGNlcHRpb25EZXRhaWw+PEdyb3VwIG5hbWU9IkRhdGFQ
cmVzZW50YXRpb24iPjxLZXkgbmFtZT0iQ29tcHJlc3NBbGdvcml0aG0iPjwvS2V5PjxLZXkgbmFt
ZT0iU2lnbmF0dXJlQWxnb3JpdGhtIj48L0tleT48S2V5IG5hbWU9IkVuY3J5cHRBbGdvcml0aG0i

吴女神，这段数据是什么编码方式？用什么函数来解码？

oceanintergy

吴姐，您好，作为新手，想问下flex网页，同样可以用xml抓吗？谢谢

t13564865256

wcymiss 发表于 2014-10-21 13:19
常用代码及自定义函数：

1、网抓主体代码：代码里的很多""就是留给你的填空题。。。

            js.addcode ("suwenkai = " & .responsetext)
            slen = js.eval("suwenkai.content.length") - 1
请问这也是一种转码方式吗？你的文章里面没有提到，能否解释下这两句话什么意思。

wcymiss

xuzong 发表于 2015-5-21 08:34
PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0iVVRGLTgiPz48UmVzcG9uc2VDb250ZXh0PjxS
ZXNwb25zZUNvZGU+MDwvU ...

是base64编码。这个是对二进制数组进行编制的，和我讲的“转码”不同。

解析base64的自定义函数：（将base64文本转为二进制数组）
Function Base64ToByte(strBase As String) As Byte()
    With CreateObject("Microsoft.XMLDOM")
        With .createElement("a")
            .DataType = "bin.base64"
            .Text = strBase
            Base64ToByte = .nodeTypedValue
        End With
    End With
End Function

要转为普通文本的话，还必须预先知道此二进制数组采用的是什么文本编码，然后用adostream转为文本。一般大多都是utf-8编码。

wcymiss

oceanintergy 发表于 2015-5-22 15:53
吴姐，您好，作为新手，想问下flex网页，同样可以用xml抓吗？谢谢

没接触过，查了下百度，估计和flash网页差不多吧？即使抓到数据的话，恐怕也是flash数据，还是必须要用软件才能解析出想要的数据吧。