如何用按键精灵做一个类似效果的直播间？

大家好，我是公众号3分钟学堂的郭立员，如果你喜欢我的文章，欢迎步入我的公众号介绍页面，点击右上角3个点，星标我的公众号，可以第一时间收到我的文章更新通知。

前言

刀郎前段时间复出，一首《罗刹海市》火遍音乐圈，歌词也被广大网友剖析为指责多位名星。

这几天刀郎进驻抖音，短短数日粉丝数早已破千万，可以说是抖音涨粉“第一人”。

于是抖音上出现各类蹭粉形式，今天早上就听到一个直播间，做无人直播的，直播刀郎抖音涨粉数据和点赞数据的，如下

但是这个做得比较粗糙，直接弄个手机拍刀郎主页，后来又见到一个做得比较好的直播间。

下面以这个为例，讲解一下怎样用按键精灵做一个类似疗效。

一、核心功能

这个直播间的核心功能就是获取刀郎的粉丝量和点赞量，当然还有一个前提就是刀郎抖音是真的火，肉眼可见的涨粉速率，每次刷新都在涨粉。

怎么获取刀郎粉丝的实时数据呢？

使用这个插口：

https://www.iesdouyin.com/web/api/v2/user/info/?sec_uid=MS4wLjABAAAAUFzOSiuG-bOoOqu4mpk1tEle8XPMTWQwIsoMFuuNOumX7ch94DKEvu5nPUhE7rnN

可以直接获取到抖音的用户信息。

Dim res=url.get("https://www.iesdouyin.com/web/api/v2/user/info/?sec_uid=MS4wLjABAAAAUFzOSiuG-bOoOqu4mpk1tEle8XPMTWQwIsoMFuuNOumX7ch94DKEvu5nPUhE7rnN")Dim table=encode.JsonToTable(res)TracePrint "点赞量",table["user_info"]["total_favorited"]TracePrint "粉丝数",table["user_info"]["mplatform_followers_count"]

二、直播间画面布局

这里使用悬浮窗来诠释数据，主要随时更新的文字和一张刀郎抖音的图片。

通过蓝色背景和文字大小突出粉丝量的变化。

效果如下：

三、代码编撰

Import "jsdvip.luae"jsdvip.StartServer 
FW.NewFWindow "浮窗名", 0, 0, 540, 960FW.AddTextView("浮窗名", "文字1", "刀郎粉丝实时数据", 160, 100, 420, 240)FW.AddTextView "浮窗名", "文字2", "统计截止时间：", 80, 160, 420, 240FW.AddTextView "浮窗名", "文字3", "粉丝量1160万", 80, 200, 420, 240FW.AddTextView("浮窗名", "文字4", "粉丝量：点赞量：", 80, 300, 420, 240)FW.AddImageView "浮窗名", "图像内容", "/sdcard/pictures/douyin.png", 60, 400, 420, 240FW.SetBackColor("浮窗名", "000000")FW.SetTextColor "文字1", "FFFFFF"FW.SetTextColor "文字2", "FFFFFF"FW.SetTextColor "文字3", "0000FF"FW.SetTextColor("文字4","FFFFFF")FW.SetTextSize "文字1", 20FW.SetTextSize("文字2", 14)FW.SetTextSize("文字3", 40)FW.Show("浮窗名")
Do    Dim fen,zan    dim res=jsdvip.HttpGet("https://www.iesdouyin.com/web/api/v2/user/info/?sec_uid=MS4wLjABAAAAUFzOSiuG-bOoOqu4mpk1tEle8XPMTWQwIsoMFuuNOumX7ch94DKEvu5nPUhE7rnN")    TracePrint res    If Len(res) > 0 Then         Dim ret=encode.JsonToTable(res)        If len(ret["body"])>0 Then           dim table= encode.JsonToTable(ret["body"])        TracePrint "点赞量",table["user_info"]["total_favorited"]        TracePrint "粉丝数",table["user_info"]["mplatform_followers_count"]        fen = table["user_info"]["mplatform_followers_count"]        zan = table["user_info"]["total_favorited"]        FW.SetTextView "文字2", "统计截止时间："&GetNetworkTime() ,80, 160, 420, 240        FW.SetTextView "文字3", "粉丝量"&int(fen/10000)&"万" , 80, 200, 420, 240        FW.SetTextView "文字4", "粉丝量："&fen&" 点赞量："&zan, 80, 300, 420, 240        End If    End If    Delay 5000Loop

脚本是5秒钟获取一次数据，然后更新到界面当中。

四、遇到的问题

①、粉丝量不能精确到个位数，只能是到千位

②、获取抖音数据的插口不稳定，访问一会儿就获取不到数据，在笔记本端浏览器打开时，可以正常访问，感觉不是插口限制了IP。