微信永久免费机器人？微信机器人免费版

教你做一个最简单的「比特币报价微信机器人」

小林的预测只是玩笑和谈资切勿直接作为投资参考

此前写过一篇《用 Perl 语言 Mojo::Weixin 模组开发微信聊天机器人》，小林陆陆续续开发了圣经查询、数字货币价格查询、实时汇率价格转换和类 MUD 动作等趣味小功能。

去年5月上旬比特币价格到达10000美元顶点之后很快进入了熊市，很多此前连睡觉都觉得奢侈的3点钟不眠人作为区块链信仰者有的倾家荡产，有的叛逃了，比特币再次被质疑。

小林以极其无厘头的直觉推测今年6月份比特币会到达1万美金。最近比特币的价格确实又飚升起来了，并且很快就超过了去年的价格，最高将近14000美金，信仰又回来了。

很多人对数字货币报价机器人比较感兴趣，不少人还拉小林进群当真的机器人使，各种调侃，小林可是真人啊，有人问你是机器人吗？小林只好告诉对方：「我不是机器人，但是我有机器人！」。

发送 BTC 查询比特币价格

因为目前 Chatbot 在微信生态属于灰色地带，据了解如果被判恶意，严重的情况会被关闭 Web 版的使用权限，但是 iPad、Mac 和 Windows 版权限 并不会被关闭，这也解释了新注册的 ID 为什么无法使用 Web 版的原因。

小林真不能也不应该被拉到 N 个群去当报价机使唤，如果你们有自己的社群，大可以用自己的 ID 或者小号体验一下，先给出一个最简易的版本大家部署来玩玩，如果不是币圈炒币群，只查询 BTC 够了！

部署方法参考此前的文章，这个版本使用的代码使用 blockchain.info 的免费 API，只返回比特币的美元价格和人民币价格供参考。将代码保存下来，在安装好 json 和 Mojo::Weixin 模组的环境中，执行后会提示一个二维码相关路径，拷贝地址通过浏览器打开再通过微信客户端扫描既可。

小林自己有一个使用 CoinMarketCap 的版本，支持常见的数千种数字货币。因为免费 API 的配额每个月只有10000个信用点，小林只能做到每5分钟更新一次，感兴趣的朋友先加入小林读者群体验。

#!/usr/local/bin/perl
use JSON;
use Mojo::Weixin;
my $client = Mojo::Weixin->new(
http_debug => 0,
log_level => “info”
);
$client->load(“Showmsg”);
$client->on(
ready => sub {
my $client = shift;
$client->on(
receive_message => sub {
my ( $client, $msg ) = @_;
if($msg->format eq ‘text’ && $msg->type eq ‘group_message’ ){ # 群组:group_message / 好友: friend_message
if ( $msg->content =~ /^s*BTCs*$/i ) {
my $message = &btc();
$msg->reply($message);
}
}
}
);
}
);
$client->run();
sub btc {
my $ticker = `curl -s “https://blockchain.info/ticker”`;
if ($ticker) {
my $json = from_json($ticker);
return “1 BTCn$json->{‘USD’}->{‘symbol’}$json->{‘USD’}->{‘last’} USDn$json->{‘CNY’}->{‘symbol’}$json->{‘CNY’}->{‘last’} CNY”;
}
}