只做了一部份,IP查询请大家自己照着我里边的样例自己完成吧!
演示:application/x-www-form-urlencoded"
.Send(PostStr)
GetURL = .ResponseBody
End With
Set Retrieval = Nothing
GetURL=ByteToStr(GetURL)
End Function
Function RegExpText(strng,regStr)
Dim regEx,Match,Matches,RetStr
Set regEx = New RegExp
regEx.Pattern = regStr
regEx.IgnoreCase = True
regEx.Global = True
Set Matches = regEx.Execute(strng)
For Each Match in Matches
RetStr = RetStr & regEx.Replace(Match.Value,"$1") & ","
Next
RegExpText = RetStr
set regEx=nothing
End Function
%>
本文来源:
网梦CMS小程序,转载请注明出处!如果需要
合肥网站建设 合肥小程序开发 合肥微信开发 合肥APP开发请联系刘经理,我们将提供上门服务!
联系方式:手机:13355693937 QQ:43171398 或扫一扫下面二维码加我微信: