B站粉丝数提取

; 获取粉丝数API的教程：https://www.bilibili.com/video/BV1mQ4y1r7qp

Up主的ID:="372313671"

whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
whr.Open("GET", "https://api.bilibili.com/x/relation/stat?vmid=" Up主的ID "&jsonp=jsonp", true)
whr.Send()
whr.WaitForResponse()
version := whr.ResponseText
提取粉丝数:=StrReplace(SubStr(version,InStr(version,"""follower"":",,0)+11,100), "}}")
MsgBox % "该Up主的粉丝为" 提取粉丝数 "个，请再接再厉！"