【分享】个人制作的html分析插件试用版(可对付动态网站)

lhui 2022-1-20 720

本插件分析网页源码,形成一个大数组里面有selector、idx、Tag名、参数及文本等信息如:
[183, //Tag的编号,从0开始
[14,  //selector 共14层,以下是每层tag,方便查询
"body","div","div","div","div","div","div","div","div","div","div","div","div","div"],
"body>div>div>div>div>div>div>div>div>div>div>div>div>div", //selector
{"class":"datatables_processing","id":"tabunreadworkitem_processing","style":"display:none;"}, //参数或属性字典
"正在努力加载...", //文本
"3"], //idx
使用方法:
IE浏览器 Dim dExt ={"html":{"tagName":"div","attrMap":{"css-selector":"body>div>div>div>div>div>div>div"},"index":13},"wnd":[{"app":"iexplore","cls":"IEFrame","title":"*"},{"cls":"Internet Explorer_Server"}]}
谷歌浏览器 dExt ={"html":{"tagName":"div","attrMap":{"css-selector":"body>div>div>div>div>div>div>div"},"index":13},"wnd":[{"app":"chrome","cls":"Chrome_WidgetWin_1","title":"*"},{"cls":"Chrome_RenderWidgetHostHWND","title":"Chrome Legacy Window"}]}
hWeb = WebBrowser.BindBrowser("ie",10000,{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":200})
sRet = WebBrowser.GetHTML(hWeb,{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":200})
File.WriteFile("d:\\html_tmp.txt",sRet,"gbk")
aHtmlTag = lhui_mmsh.gettag("d:\\html_tmp.txt")
File.Write("d:\\aHtmlTag.txt",CStr(aHtmlTag),"gbk")
atitle = ["id","tags","selector","parameter","text","idx"]
objDatatable = Datatable.BuildDataTable(aHtmlTag,atitle)
Datatable.ConvertColumnDataType(objDatatable,"parameter","str",False,Null)
Datatable.ConvertColumnDataType(objDatatable,"tags","str",False,Null)
sSaiXuan = "id > "&CStr(iQxjLoc)&" and id < "&CStr(iCcLoc)&" and ((selector.str.contains(\"body>form>div>div>div>div>div>div\") and parameter.str.contains(\"row\")))"
objDatatable1 = Datatable.QueryDataTable(objDatatable,sSaiXuan)
atmp = Datatable.GetDataTableByArray(objDatatable1,False)
If Len(atmp) > 0
    dExt["html"]["attrMap"]["css-selector"]=aHtmlTag[atmp[0][0]][2]
    dExt["html"]["index"]=CInt(aHtmlTag[atmp[0][0]][5])
    dExt["html"]["tagName"]=aHtmlTag[atmp[0][0]][1][aHtmlTag[atmp[0][0]][1][0]]
    TracePrint(dExt)
    #icon("@res:64q8jr0f-v1ci-82qt-furo-1a0f364nkhmd.png")
    Mouse.Action(dExt,"left","click",10000,{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":200,"bSetForeground":True,"sCursorPosition":"Center","iCursorOffsetX":0,"iCursorOffsetY":0,"sKeyModifiers":[],"sSimulate":"simulate"})
    iRet = WebBrowser.WaitPage(hWeb,"",60000,{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":200})
Else
End If

插件的使用虚激活码,把机器码回复本贴,我见到会发180天激活码。
有BUG也请发到本帖,谢谢!

(另:不要加我钉钉阿,那是为钉群准备的^_^)

上传的附件:
最新回复 (1)
  • 连 龙 2022-4-20
    2
    这么好的东西,回复为0啊
返回
发新帖