国产一区二区欧美精品免费-欧美国产日韩在线视频-欧美亚洲国语精品一区二区-欧美激情五月综合啪啪-国产69精品麻豆久久久久-亚洲人成精品久久久久桥网站-欧美刺激肥熟在线视频-十七岁日本免费完整版BD-黑夜在线拖拽不卡第一页

Sub kao() [a2:c2] = Split("統(tǒng)計(jì)時(shí)間 在線人數(shù) 波動(dòng)值") Dim regx, i%, mh, tt, p, m, PostData Set regx = CreateObject("vbscript.regexp") regx.Pattern = "(.*?)" '注意中文的括號(hào)（全角） regx.Global = True For p = 1 To 7 PostData = "PageIndex=" & p & "&__RequestVerificationToken=CfDJ8Oxgi0PF5dtKgteCEWR3ZKKzhWUHnMIkczUHpAA12yTUk-KolOww9ZYTIz6y8-tIfgH2yCgFH-DCVvplmsOa2aRf8VuJtozMmUX_clPPMks-XT6jl3vSufB9_l7nCiRKDdhrvCjTdqPEx7XgPW2-DTk" With CreateObject("msxml2.xmlhttp") .Open "POST", "http://www.77tj.org/tencent/", False .setRequestHeader "Content-Type", "application/x-www-form-urlencoded" .send (PostData) tt = .responsetext End With tt = Split(tt, "")(1) Set mh = regx.Execute(tt) For i = 0 To mh.Count - 1 Step 3 m = m + 1 For j = 1 To 3 Cells(m + 2, j) = Replace(mh(i + j - 1).submatches(0), "+", "+") Next Next Next Columns("A:C").Columns.AutoFit Calculate End Sub