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

piaopiaolin

wcymiss 发表于 2014-10-22 16:45
获取数据-防盗链的处理-动态参数

相同方式操作网页，抓包能得到相同的参数值，这样的参数是静态的。反之 ...

大师，这种动态参数貌似跟你说的不一样，参数名就是这么个随机数据，我翻页后，那个值就变了。 ，这个网页是动态的，60s刷新一次。

piaopiaolin

piaopiaolin 发表于 2015-11-16 18:49
大师，这种动态参数貌似跟你说的不一样，参数名就是这么个随机数据，我翻页后，那个值就变了。，这个网页 ...

额，我把那个参数省略掉，竟然是可以得到我要的数据，什么原理都不懂。。。

VBA万岁

wcymiss 发表于 2014-11-1 17:13
上传文件
同样，上传文件也可以用fiddler抓包。

在老师的代码基础上，写了一个批量上传活动工作表截图的代码：

Sub 批量上传截图至ExcelHome()
Const Uid As String = "......"
Const Hash As String = "......"
Dim Shp As Shape
Dim Msg, PicName, Boundary As String
Dim n%
Dim SendData
   
Msg = ActiveWorkbook.FullName & "-" & ActiveSheet.name & "：" & Chr(10)
For Each Shp In ActiveSheet.Shapes
    n = n + 1
    Shp.Select
    Selection.name = "myPic"
    Selection.Copy
    ActiveSheet.Shapes("myPic").Delete
    ActiveSheet.PasteSpecial Format:="图片 (JPEG)"
    PicName = "P" & Format(Date, "yyyymmdd" & Format(n, "00"))
    Msg = Msg & PicName & Chr(10)
    Selection.CopyPicture
    With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width + 2, Selection.Height + 2).Chart
        .ChartArea.Border.LineStyle = 0
        .Paste
        .Export ActiveWorkbook.Path & "\" & PicName & ".jpg", "JPG"
        .Parent.Delete
    End With
    Selection.Delete
  
    Boundary = GetBoundary()
    SendData = GetUpLoadSendData(Boundary, ActiveWorkbook.Path & "\" & PicName & ".jpg", _
        "Filename", PicName & ".jpg", _
        "proid", "0", _
        "hash", Hash, _
        "uid", Uid, _
        "title", PicName, _
        "filetype", "rar", _
        "Filedata", PicName & ".jpg", _
        "Upload", "Submit Query")
        
    With CreateObject("MSXML2.XMLHTTP")
        .Open "POST", "http://club.excelhome.net/misc.php?mod=swfupload&fid=2&action=swfupload&operation=upload", False
        .setRequestHeader "Content-Type", "multipart/form-data; boundary=" & Boundary
        .Send SendData
        'Debug.Print .responsetext
    End With
   
    Dim Fso As Object
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Fso.DeleteFile (ActiveWorkbook.Path & "\" & PicName & ".jpg")
Next
MsgBox "图片：" & Msg & "上传完毕！", , "上传图片"
End Sub

lzlichun

请教wcymiss老师：

登陆139邮箱时抓包，如下图：



其中的cguid值每次都不一样，怎样计算（得到）该值？

谢谢！

dengxu

wcymiss 发表于 2014-10-22 16:56
再上一个动态参数的例子：

网站：http://www.abchina.com/cn/Public ... t20101217_45743.htm

仔细学习了一下，但是还是有许多困惑例如http://www.landchina.com/default.aspx?tabid=263目标网址中要指定条件：签订日期2015-01-01到2015-12-31，行政区为：眉山市的如何提取列表中的二级页面中的表格数据？
思考了一个礼拜实在没有答案盼望大师指点迷津！（自己的一点理解这是一个动态网页，如何将指定查询条件带入查询参数？如何提取二级页面的表格？）

想学vba123

内容很丰富，很适合初学者，需要慢慢消化了，希望能学有所得。

sunny_8848

内容很好，感觉有些高深

onlycxb

dengxu 发表于 2015-11-30 17:20
仔细学习了一下，但是还是有许多困惑例如http://www.landchina.com/default.aspx?tabid=263目标网址中要 ...

POST数据中，有一个参数TAB_QuerySubmitPagerData为页号

onlycxb

lzlichun 发表于 2015-11-30 10:56
请教wcymiss老师：

登陆139邮箱时抓包，如下图：

既然是动态值，肯定出现在之前某一个网页中，可以找找

c510000735

VBA万岁 发表于 2014-10-23 15:12
百度结果：
http://zhidao.baidu.com/link?url=-9S1gJlPKiBWbC-e_wBQ8lQUI409P4xuGZ-wtvLjLUZzvwEyDNbpF ...

Sub 删除缓存()
    Dim objSHELL As Object
    Dim BuffDir$
    Set objSHELL = CreateObject("Shell.Application")
    BuffDir = objSHELL.Namespace(32).Self.Path
    Kill BuffDir & "\*.*"
End Sub